Лабораторная работа №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 | Ок | По нажатию проводит расчёт |
Тест программы.
Тест программы.
Если =-2, =1 тогда, =-4, =-1,5
При этих значениях , , , программа дает тот же результат, значит программа работает правильно.
Если =10, =-11,тогда =-05, =11.
При этих значениях , , , программа дает тот же результат, значит программа работает правильно.
Сдал:
Принял: