Предмет: Информатика,
автор: nikyarkov2001
Составить программу на паскале, которая формирует на экране изображение. Если не сложно можно пожалуйста с комментариями. К сведению на рисунке 20 линий. Помогите пожалуйста буду очень благодарен.
Приложения:
g0golmogol:
я надеюсь эта картинка делается с помощью знаков - _ / I и тому подобных?
Ответы
Автор ответа:
0
//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.
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.
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.
Похожие вопросы
Предмет: Химия,
автор: viktoriarifak
Предмет: Українська мова,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: bednarchuk1980