Тема: Практическая работа «Решение задач»

Тема: Практическая работа «Решение задач»

Задача №1

Создайте приложение, которое при нажатии кнопки складывало бы два целых числа, введенных пользователем, и показывало бы результат сложения.

Знакомство с функциями IntToStr и StrToInt.

1. Создайте форму и включите в неё нужные компоненты.

2. Напишите обработчик событий для кнопок «Рассчитать» и «Очистить»

«Рассчитать»	«Очистить»

var A,B,Res:integer; «объявляются переменные A,B,Res целого типа» begin A:=StrToInt(Edit1.Text); «целой переменной A присваивается значение взятое из компонента Edit1.Text в виде текста и преобразованное в число с помощью функции StrToInt» B:=StrToInt(Edit2.Text);«целой переменной В присваивается значение взятое из компонента Edi2.Text в виде текста и преобразованное в число с помощью функции StrToInt» Res:=A+B;«переменной Res присваивается значение суммы целых переменных А и В» Edit3.Text:=IntToStr(Res);«В компонент Edit3.Text кладется значение целой переменной Res преобразованное в текс с помощью функции IntToStr» end;	begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end; «Компонентам Edit1.Text, Edit2.Text, Edit3.Text присваивается значение пустого текста»
StrToInt– преобразует текс в целое число (integer) IntToStr– преобразует целое число(integer) в текс

Ваше приложение готово, можете его выполнить. Для этого выполните команду Ran или нажмите горячую клавишу F9, или воспользуйтесь быстрой кнопкой.