Составить программу ** паскале, которая формирует ** экране изображение. Если не сложно...

Question

Составить программу на паскале, которая формирует на экране изображение. Если не сложно можно пожалуйста с комментариями. К сведению на рисунке 20 линий. Помогите пожалуйста буду очень благодарен.

---

Comments

я надеюсь эта картинка делается с помощью знаков - _ / I и тому подобных?

---

Нет, конечно.

Answer 1

//PascalABC.NET
uses GraphABC;
var  c: integer;
begin
  window.IsFixedSize := true;//запрет изменения размера экрана
  window.Clear(cllightblue);//очистка экрана синим цветом
  pen.Color := clred;//меняем цвет пера на красный
  for var i := 0 to 19 do//цикл для отрисовки линий
  begin
    c := (window.Height div 19) * i;//сдвиг линнии по y
    line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
  end;
end.

Comments

Нужно просто Pascal abc

---

uses GraphABC;
var c,i: integer;
begin
ClearWindow(rgb(173,216,230));
SetPenColor(clred);
SetWindowSize(600,440);
for i := 0 to 19 do
begin
c := (440 div 19) * i;
line(0, 0 + c, 600, 440 - c);
end;
end.

---

В следующий раз пишите конкретный язык програмирования

---

спасибо большое