задача

знайти суму двох чисел

1 . Заведемо 3 змінні а , б, в. ( Var , б , в: ціле ;)
2 . Запис з : = а + б означатиме , що результат суми двох чисел, що лежать в осередках і б буде записаний в змінну с. Звернемо увагу , що в мові програмування Delphi запис з = а + Ь означатиме , що сума чисел а і б дорівнює с.
Тепер , якщо нам необхідно вирішити приклад 2 +4 = 6 , при запуску програми ми в змінну з покладемо 2 , в B - 4 і програма видасть відповідь 6 .
Використовуючи для введення даних у мові програмування Delphi рядкові поля ( наприклад , класів TEdit , TMemo ) , для вирішення математичних завдань необхідно використовувати функції:
StrToInt ( < змінна> ) ( переклад з рядка в цілий тип даних);
StrToFloat ( < змінна> ) ( переклад з рядка в речовинний тип даних);
Для виведення результату потрібно назад переводити з числового в рядковий тип за допомогою функцій :
IntToStr ( < змінна> ) ( переклад числа з цілого в рядковий тип) ;
FloatToStr ( < змінна> ) ( переклад числа з речового в рядковий тип) ;
Розглянемо алгоритм вирішення арифметичної задачі :
1 . введення даних
наприклад:
: = StrToInt ( Memo1.text ) ; { занести в змінну а вміст многострочного редактора Memo1 , перекладене з строкового в числову форму для виконання математичних дій } .
б : = StrToInt ( Edit1.Text ) ; { занести в змінну б вміст однострочного редактора Edit1 , перекладене з строкового в числову форму для виконання математичних дій } .
2 . проведення певних дій , необхідних в умові завдання.
Наприклад , знаходження суми а і б - з : = а + б; { відповідь з }
3 . висновок результату або повідомлення про проведений аналіз даних.
Висновок результату :
Memo1.text : = IntToStr ( с); { висновок результату рішення прикладу в багатостроковий редактор Memo1 шляхом переведення відповіді з числової в строкову форму } .
Висновок повідомлення :
Edit1.Text : = ' Завдання вирішена успішно ! '; { Виведення повідомлення про проведений аналіз даних в багатостроковий редактор Edit1 } . У даному випадку переклад повідомлення з числового типу в строкову форму НЕ ЗДІЙСНЮЄТЬСЯ !