ВУЗ:
Составители:
20
Инструкция
;
end;
В этом случае на каждом шаге значение счетчика уменьшается. Не-
обходимо отметить, что в качестве счетчика могут использоваться пере-
менные символьного и интервального типа.
Пример использования for - цикла для вывода на экран графика
функции y=sin(x):
………………………………………..
for I:=0 to PaintBox1.Width do
begin
Y:=Round(100*Sin(I/20));
PaintBox1.Canvas.Pixels[I,Y]:=clAqua;
end;
………………………………………...
6) Циклы с предусловием. Здесь набор инструкций повторятся до тех пор,
пока выполняется некоторое условие. В качестве условия используется ло-
гическое выражение. Проверка условия происходит перед тем, как выпол-
няется следующий шаг. Если значение логического выражения равно true
("истина"), продолжается выполнение цикла, если – false ("ложь"), цикл
заканчивается. Общий вид инструкции:
while
логическое выражение
do
begin
Инструкция;
……………………….
Инструкция;
end;
Пример использования цикла с предусловием
………………………………………
with Image1 do
while ((X>0) and (X<Width)) and ((Y>0) and (Y<Height)) do
begin
EField(x,y);
X:=X+dl*Ex/E;
Y:=Y+dl*Ey/E;
Canvas.Pixels[Round(X),Round(Y)]:=clLime;
Refresh;
end;
………………………………………..
PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com
Инструкция;
end;
В этом случае на каждом шаге значение счетчика уменьшается. Не-
обходимо отметить, что в качестве счетчика могут использоваться пере-
менные символьного и интервального типа.
Пример использования for - цикла для вывода на экран графика
функции y=sin(x):
………………………………………..
for I:=0 to PaintBox1.Width do
begin
Y:=Round(100*Sin(I/20));
PaintBox1.Canvas.Pixels[I,Y]:=clAqua;
end;
………………………………………...
6) Циклы с предусловием. Здесь набор инструкций повторятся до тех пор,
пока выполняется некоторое условие. В качестве условия используется ло-
гическое выражение. Проверка условия происходит перед тем, как выпол-
няется следующий шаг. Если значение логического выражения равно true
("истина"), продолжается выполнение цикла, если – false ("ложь"), цикл
заканчивается. Общий вид инструкции:
while логическое выражение do
begin
Инструкция;
……………………….
Инструкция;
end;
Пример использования цикла с предусловием
………………………………………
with Image1 do
while ((X>0) and (X0) and (Y Страницы
- « первая
- ‹ предыдущая
- …
- 15
- 16
- 17
- 18
- 19
- …
- следующая ›
- последняя »
