Лабораторная работа № 4

Решим простейший пример: найти сумму трех чисел.

1. Описываем после служебного слова VAR несколько переменных целого типа для удобства решения: Var a, b, c, s: integer;

2. На форму заводим 3 метки: Label1, Label2, Label3. У каждой из них в свойстве Caption написать соответственно а=, в=, с=.

3. Наносим однострочные элементы управления Edit1, Edit2, Edit3. В них будем вводить числа. Для этого в свойстве Text нужно удалить надписи.

4. Заводим кнопку, которую называем Cумма

5. Наносим элемент управления Memo1 и удаляем все надписи в многострочном редакторе. Для этого в окне Свойства объекта выбираем свойство Lines и удаляем все надписи в нем.

Примерно ваша форма должна выглядеть так:

6. Активируем двойным щелчком мыши кнопку. Появляется процедура TForm1.Button1Click(Sender: TObject);

7. В теле процедуры присваиваем заведенным переменным значения строк следующим образом a:=StrToInt(Edit1.text); (аналогично для b и c)

8. Вычисляем сумму s:=a+b+c;

9. Выводим результат в Memo1. Для этого записываем Memo1.Text:=IntToStr(s);

Продумать свое графическое оформление этой задачи.

Задания для самостоятельной работы:

1. Вычислить произведение четырех чисел. Графическое оформление задачи самостоятельное.

2. Решить пример a=b+c/m*k. Графическое оформление задачи самостоятельное.