Question

Составить программу, выводящую изображение: на синем фоне экрана 250 точек желтого цвета с произвольными координатами.PASCAL ABC

Answer 1

program randomDots;

uses graphabc;

const

windowWidth = 640;

windowHeight = 480;

var

i:integer;

begin

setwindowsize(windowWidth, windowHeight);

clearwindow(clblue);

for i:=1 to 250 do

setpixel(round(random() * windowWidth), round(random() * windowHeight), clyellow);

end.

Answer 2

Для создания программы, которая будет выводить изображение синего фона и 250 желтых точек с произвольными координатами, можно использовать библиотеку GraphABC, которая доступна в среде программирования Pascal ABC. Вот пример программы:

pascalCopy code
uses
  GraphABC;

const
  ScreenWidth = 800; // Ширина экрана
  ScreenHeight = 600; // Высота экрана
  NumPoints = 250; // Количество точек

procedure DrawBackground;
begin
  SetBrushColor(clBlue);
  SetPenColor(clBlue);
  Rectangle(0, 0, ScreenWidth, ScreenHeight);
end;

procedure DrawRandomYellowPoints;
var
  i, x, y: Integer;
begin
  SetBrushColor(clYellow);
  SetPenColor(clYellow);
  
  for i := 1 to NumPoints do
  begin
    x := Random(ScreenWidth); // Генерируем случайную координату x
    y := Random(ScreenHeight); // Генерируем случайную координату y
    Point(x, y);
  end;
end;

begin
  SetWindowSize(ScreenWidth, ScreenHeight);
  DrawBackground;
  DrawRandomYellowPoints;
end.

Скопируйте этот код в среду программирования Pascal ABC и запустите программу. Вы должны увидеть окно с синим фоном и 250 желтыми точками, расположенными на экране. Каждый раз при запуске программы точки будут располагаться в новых случайных местах.