Задача:
Нарисовать вертикальные линии с начальной координатой (10, 10), длиной линий (L), количеством линий (N) и шагом step.
Сделать эту задачу по теме "Организация циклов в программе", "Цикл с постусловием". В Паскаль.
Нарисовать вертикальные линии с начальной координатой (10, 10), длиной линий (L), количеством линий (N) и шагом step.
Сделать эту задачу по теме "Организация циклов в программе", "Цикл с постусловием". В Паскаль.
Answers & Comments
//PascalABC.Net
uses GraphABC;
var l,n,step,x,y,k:integer;
begin
read(l,n,step);
x:=10;
y:=10;
k:=0;
repeat
line(x,y,x,y+l);
x:=x+step;
k:=k+1;
until k>=n;
end.