Вопрос Помогите с паскалем

[Баяман]

кто может написать код для паскаля абс с использованием графа абс, чтобы он нарисовал какую-нибудь красивую разноцветную картинку? для домашки надо

 

[ильюха21]

Как такой вариант? Uses GraphABC;

Begin
SetWindowTitle('Разноцветная картинка');
SetWindowSize(600, 400);

For i := 0 To WindowWidth Do
Begin
r := Round(255 * i / WindowWidth);
g := Round(128 * (WindowWidth - i) / WindowWidth);
b := 0;
SetColorRGB(r, g, b);
Line(i, 0, i, WindowHeight);
End;

For i := 1 To 10 Do
Begin
x := Random(WindowWidth);
y := Random(WindowHeight);
radius := Random(50) + 20;
r := Random(256);
g := Random(256);
b := Random(256);
SetColorRGB(r, g, b);
Circle(x, y, radius);
End;

For i := 1 To 5 Do
Begin
x := Random(WindowWidth);
y := Random(WindowHeight);
side := Random(80) + 20;
r := Random(256);
g := Random(256);
b := Random(256);
SetColorRGB(r, g, b);
Rectangle(x, y, x + side, y + side);
End;

ReadKey;
End.

 

[vladislav22]

uses GraphABC;

procedure DrawSpiral;
var
angle, radius: Real;
x, y, i: Integer;
colors: array[1..7] of Color;
begin
// Задаем цвета
colors[1] := clRed;
colors[2] := clOrange;
colors[3] := clYellow;
colors[4] := clGreen;
colors[5] := clBlue;
colors[6] := clIndigo;
colors[7] := clViolet;

// Устанавливаем начальные значения
angle := 0;
radius := 0;

// Рисуем спираль
for i := 1 to 1000 do
begin
x := Round(200 + radius * Cos(angle));
y := Round(200 + radius * Sin(angle));

SetPixel(x, y, colors[i mod 7 + 1]);

// Увеличиваем угол и радиус
angle := angle + 0.1;
radius := radius + 0.1;
end;
end;

begin
// Устанавливаем размер окна
SetWindowSize(400, 400);

// Вызов процедуры рисования спирали
DrawSpiral;

// Ожидание закрытия окна
ReadLn;
end.

 

[AHAHAHAH]

Думай

 

[сафрон]

uses GraphABC;

procedure DrawColorfulSpiral;
var
x, y: Integer;
angle, radius: Real;
i, colorStep: Integer;
begin
// Установим размеры окна
Window.SetSize(800, 600);
Window.CenterOnScreen;

// Центр экрана
x := Window.Width div 2;
y := Window.Height div 2;

// Начальные значения
angle := 0;
radius := 5;
colorStep := 1;

// Цикл для рисования спирали
for i := 1 to 360 * 4 do
begin
// Установка цвета, постепенно изменяющегося по кругу
SetPenColor(RGB((i * colorStep) mod 256, (i * colorStep * 2) mod 256, (i * colorStep * 3) mod 256));

// Вычисление новых координат
x := Round(Window.Width div 2 + radius * Cos(angle));
y := Round(Window.Height div 2 + radius * Sin(angle));

// Рисуем линию до новых координат
LineTo(x, y);

// Увеличение угла и радиуса
angle := angle + 0.1;
radius := radius + 0.1;
end;
end;

begin
// Вызов процедуры рисования спирали
DrawColorfulSpiral;
// Ожидание нажатия клавиши перед закрытием окна
Readln;
end.
Программа проверялась на PascalABCNET