Question

Составить программу для построения 8 элементов узора.
Считать, что 1 клетка составляет 20 пикселей. Раскрасить
ромбики разными цветами, используя для заливки процедуру
floodfill, а в качестве цвета clrandom.
Сохранить под именем дата_ПР1_v1_2.pas

Answer 1

Ответ:

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

Однако, я могу предложить вам общую структуру программы, используя графический модуль и процедуру floodfill. Вам может потребоваться использовать Pascal с поддержкой графики (например, Turbo Pascal).

program PatternGenerator;

uses

 Graph, Crt;

var

 gd, gm: integer;

procedure DrawPattern;

var

 x, y, size: integer;

 color: longint;

begin

 size := 20;

 for x := 1 to 8 do

 begin

   for y := 1 to 8 do

   begin

     if (x + y) mod 2 = 0 then // Четные клетки

       color := GetRGBColor(Random(256), Random(256), Random(256))

     else

       color := GetRGBColor(Random(256), Random(256), Random(256));

     SetFillStyle(SolidFill, color);

     Bar(x * size, y * size, (x + 1) * size, (y + 1) * size);

   end;

 end;

end;

begin

 gd := Detect;

 InitGraph(gd, gm, 'C:\BGI');

 if GraphResult <> grOk then

 begin

   writeln('Graphics mode not supported');

   Halt(1);

 end;

 Randomize; // Инициализация генератора случайных чисел

 DrawPattern;

 Delay(5000); // Оставить окно открытым на 5 секунд

 CloseGraph;

end.