ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:ЦИКЛЫ Нарисуйте вертикальные линии от левого края графического...

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 xend.

Comments

ща

---

по другому отправлю

---

uses graphabc;
procedure vvod(var r: integer);
begin
  writeln('Введите ширину отступа');
  read(r);
end;
procedure linii(r: integer);
var
  x: integer;
begin
  x:=0;
  while x  begin
    line(x,0,x,100);
    x:=x+r;
  end;
end;
var
  r:integer;
begin
  vvod(r);
  linii(r);
end.