Инструкция for
Инструкция for
Рассмотрим следующую задачу. Пусть нужно написать программу, которая вычисляет значение функции у = 5х2 - 7 в точках —1, -0.5, 0, 0.5 и 1
(таблица должна быть выведена в поле метки формы приложения). Процедура, обеспечивающая решение поставленной задачи, может выглядеть так:
procedure TForm1.ButtonlClick(Sender: TObject); var
у: real; // значение функции
x: real; // аргумент функции
dx: real; // приращение аргумента
st: string; // изображение таблицы
begin
st:='';
x := -1; dx := 0.5;
у := 5*х*х -7;
st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13);
x :=x + dx;
у := 5*х*х -7;
st := st+ FloatToStr(x)+* '+ FloatToStr(y)+chr(13);
x :=x + dx;
у := 5*х*х -7;
st := st+ FloatToStr(x)+* '+ FloatToStr(y)+chr(13);
x :=x + dx;
у := 5*х*х -7;
st := st+ FloatToStr(x)+' ' + FloatToStr(y)+chr(13);
x :=x + dx;
у := 5*х*х -7;
st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13);
x :=x + dx;
Label1.Caption := st;
end;
Из текста процедуры видно, что группа инструкций
у := 5*х*х -7;
st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13);
x :=x + dx;
обеспечивающая вычисление значения функции, формирование строки таблицы и увеличение аргумента, выполняется 5 раз.
Воспользовавшись инструкцией for, приведенную процедуру можно переписать следующим образом:
procedure TForm1.ButtonlClick(Sender: TObject);
var
у: real; // значение функции
x: real; // аргумент функции
dx: real; // приращение аргумента
st: string; // изображение таблицы
i : integer; // счетчик циклов
begin
st:=''; x := -1; dx := 0.5;
for i:=l to 5 do begin
у := 5*x*x -7;
st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13); x :=x + dx; end;
Label1.Caption := st;
end;
