ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:ЦИКЛЫ
Нарисуйте вертикальные линии от левого края графического окна до правого. Расстояние между линиями задаётся с клавиатуры. (Функция WindowWidth возвращает ширину графического окна)
__________________________________________________________
желательно в решении использовать процедуры.Буду очень благодарна !!!
Answers & Comments
procedure vvod(var r: integer);
begin
writeln('Введите ширину отступа');
read(r);
end;
procedure linii(r: integer);
var
x: integer;
begin
x:=0;
while x<windowwidth do
begin
line(x,0,x,100);
x:=x+r;
end;
end;
var
r:integer;
begin
vvod(r);
linii(r);
end.