Question

ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:ЦИКЛЫ Нарисуйте вертикальные линии от левого края графического окна до правого. Расстояние между линиями задаётся с клавиатуры. (Функция WindowWidth возвращает ширину графического окна) __________________________________________________________ желательно в решении использовать процедуры.Буду очень благодарна !!!

Answer 1

Uses graphabc;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.