Задачка: Нарисовать вертикальные полосы с исходной координатой (10, 10), длиной линий

Задача:
Нарисовать вертикальные полосы с исходной координатой (10, 10), длиной линий (L), количеством линий (N) и шагом step.
Сделать эту задачку по теме "Организация циклов в программке", "Цикл с постусловием". В Паскаль.

Задать свой вопрос
1 ответ
Не приверженец так учить тему "Организация циклов". Но задача поставлена, вот вариант решения:

//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 kgt;=n;
end.
  

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт