Реферат: Программирование на языке высокого уровня 2

В качестве исходных данных выберем произвольные 2 действительных числа a, bи проверим работу программы, нажав на кнопку «Выполнить».

Результаты можно посмотреть в рабочем окне программы на рис.2.

1.4 Исходный текст программы

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,d:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

if (a=b) then ShowMessage('Числа равны! Введите разные числа.');

if (a>b) then begin

c:=2*a*b;

d:=(a+b)/2;

end ;

if (a<b)then

begin

c:=(a+b)/2;

d:=2*a*b;

end;

Edit3.Text:=FloatToStr(c);

Edit4.Text:=FloatToStr(d);

end;

1.5 Экранная форма программы

Рисунок 2. Результат выполнения программы

2 Задание 2

2.1 Постановка задачи

Протабулировать функцию заданной формулой:

где с=4, a=2.8, b=-0.3,, h=0.05.

2.2 Блок – схема программы

Рисунок 3. Блок-схема табулирования функции

Продолжение Рис.3.

Рисунок 3. Блок-схема табулирования функции

2.3 Исходные данные для отладки и тестирования программы

В качестве исходных данных выберем значения a=1, b=2, h=0.05 и проверим работу программы, нажав кнопку «Табулировать».