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

 

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,a1,b1,c1,h,x,y:extended;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

h:=StrToFloat(Edit3.Text);

a1:=2.8;

b1:=-0.3;

c1:=4;

x:=a;

Memo1.Clear;

Memo1.Lines[0]:=' x | y ';

Memo1.Lines.Add('----------');

while x<=b do begin

if (x<1.2) then y:=a1*x*x+b1*x+c1;

if (x=1.2) then y:=a1/x+sqrt(x*x+1);

if (x>1.2) then y:=(a1+b1*x)/sqrt(x*x+1);

Memo1.Lines.Add(FloatToStrf(x,fffixed,5,2)+'|'+FloatToStrf(y,fffixed,5,2));

x:=x+h;

end;

end;

 

 

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

 

 

 

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

Задание 3

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

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20]. Найти сумму элементов, имеющих нечетные индексы.

2. Подсчитать количество элементов массива, значения которых больше заданного числа А и кратных 5.

3.Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.

 

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

 

 

 

Рисунок 5. Блок-схема процедуры заполнения массива случайными числами

 

 

 

                  

Рисунок 6. Блок-схема процедуры для необходимых вычислений и вывода результатов на экран

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

 

В качестве исходных данных вводим любое целое число n – количество элементов массива и, нажав на кнопку «Создать массив», формируем одномерный массив, заполненный случайным образом целыми числами из промежутка [-10,20].

При нажатии на кнопку «Выполнить» происходит вычисление, заданные в задании.

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