Графические задачи на циклы.
Рассмотрим три различных способа решения одной графической задачи.
Необходимо вывести на экран следующую картинку.
В большинстве языков программирования существует три вида циклов. И мы рассмотрим три способа решения этой задачи. Первый способ - используя цикл с параметром. Если брать расстояние между линиями десять пикселей, то при размере формы 640х380 их получится 64 штуки. По этому используем цикл с параметром, где точно устанавливается количество повторений.
Program n;
Uses Crt, GraphABC;
var x,y,i:Integer;
begin
x:=1; // устанавливаем координату Х первой линии
For i:=1 to 64 do begin // перебираем от 1 до 64
Line (x,0,x,400); // рисуем очередную линию
x:=x + 10; // увеличиваем координату на 10 пикселей
end;
end.
В цикле с предусловием количество повторений определяется условием X<640. Т.е. пока условие истинно будут рисоваться очередная линия и координата увеличивается на 10 пикселей. Как только Х станет больше 640 выполнение цикла прекратиться.
Program n;
Uses Crt, GraphABC;
var x:Integer;
begin
x:=1;
while(x<640) do begin // повторять пока Х меньше 640
Line (x,0,x,400);
x:=x+10;
end;
end.
Цикл с постусловием выполняется пока условие ложно. Увеличивая координату Х рано или поздно ее значение превысит 640, т.е. условие станет истинным и цикл прекратиться.
Program n;
Uses Crt, GraphABC;
var x:Integer;
begin
x:=1;
repeat
Line (x,0,x,400);
x:=x+10;
until (x>640) // повторять до тех пор пока условие ложно Х больше 640
end.
|