Графические задачи на циклы.

Рассмотрим три различных способа решения одной графической задачи.

Необходимо вывести на экран следующую картинку.

В большинстве языков программирования существует три вида циклов. И мы рассмотрим три способа решения этой задачи.  Первый способ - используя цикл с параметром. Если брать расстояние между линиями десять пикселей, то при размере формы 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.