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

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

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;

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

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

3 Задание 3

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

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

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

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