Тест программы

Лабораторная работа №2.

Студента 2 курса

Группа ДЛП-101

Дмитракова С.И.

Преподаватель:

Рачина Е.А.

Цели работы:

1.Закрепить знания теоритического материала по теме «Условный оператор».

2.Рассмотреть использование конструкций условного оператора при программировании расчётных задач.

3.Рассмотреть использование простых и сложных условий в условном операторе оператора при программировании расчётных задач.
4.Продолжить работу по усовершенствованию методов и способов визуального программирования в среде Delphi.

Формулировка задачи.

Из двух данных чисел отрицательное замените удвоенным произведением этих чисел, а положительное - их полусуммой.

Начало

Блок схема:

a,b

a<0

a=(a*b)*2

b=(a+b)/2

B<0

b=(a*b)*2

b=(a+b)/2

a= b= b=

Конец

Текст программы.

procedure TForm1.Button1Click(Sender: TObject);

var a,b:real;

begin

a:=strtofloat(Edit1.Text);

b:=strtofloat(Edit2.Text);

if a<0 then a:=(a*b)*2 else a:=(a+b)/2;

if b<0 then b:=(a*b)*2 else b:=(a+b)/2;

label3.caption:=floattostr(a);

label4.caption:=floattostr(b);

end;

Комментарии к программе.

Название объекта	Свойство	Значение свойства	Наименование объекта
Label1	Text	Введите число	Ввод значений
Label2	Text	Введите число	Подпись текстового поля
Label3	Caption	Пустая	Вывод значений
Label4	Caption	Пустая	Вывод значений
Label5	Text	Описание задачи	Пояснение
Label6	Text	Окно ответов	Подпись текстового поля
Label7	Text	Первое число	Подпись текстового поля
Label8	Text	Второе число	Подпись текстового поля
Edit1	Text	Пустая	Ввод значений переменной
Edit2	Text	Пустая	Ввод значений переменной
Button		Ок	По нажатию проводит расчёт