Тема 5

Label1 – Caption – Табулирование функции

Label2 – Caption – a

Label3 – Caption – b

Label4 – Caption – h

Button1– Caption – Выполнить

Button2– Caption – Очистить

Edit1 – Text – пусто

Edit2 – Text – пусто

Edit3 – Text – пусто

Memo1 – Lines – пусто

ScrollBars – ssVertical

12

procedure TForm1.Button1Click(); var a,b,h,y,x:real;

begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); h:=StrToFloat(Edit3.Text); x:=a;

while x<=b do begin

y:=exp(x)-exp(-x)-2;

Memo1.Lines.Add('х='+FloatToStr(x)+' у='+FloatToStr(y));

x:=x+h;

end;

end;

14

Пример задачи итоговой контрольной работы

Дана блок-схема.

1.Найти значения переменных a и b при b=10, y=5. Решение записать по шагам.

2.Сколько раз выполнится тело цикла?

3.Записать процедуру, соответствующую блок-схеме.

16

b:=strtoint(edit1.text);

y:=strtoint(edit2.text);

a:=0;

k:=5;

Repeat b:=b-y*2; a:=a+2; k:=k+2;

Until k>10; edit3.text:=inttostr(a); edit4.text:=inttostr(b);

19