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

Содержание

 

1.... Задание 1. 2

1.1 Постановка задачи. 2

1.2 Блок-схема программы.. 2

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

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

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

2.... Задание 2. 5

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

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

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

2.4 Исходные данные программы.. 7

2.5 Экранная форма программы.. 8

3.... Задание 3. 9

3.1 Постановка задачи. 9

3.2 Блок-схема программы.. 9

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

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

3.5 Экранная форма программы.. 12

4.... Задание 4. 13

4.1 Постановка задачи. 13

4.2 Блок-схема программы.. 13

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

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

4.5 Экранная форма программы.. 19

 

 

Задание 1

 

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

 

Даны действительные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее – их удвоенным произведением.

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

 

Рисунок 1. Блок-схема действий над числами

Продолжение рис.1.

 

 

Рисунок 1. Блок-схема действий над числами

 

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

 

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

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

 

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

 

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;

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

 

 

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

 

Задание 2

 

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

 

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

 

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

 

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

 

 

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

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

 

 

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

 

 

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

 

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

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