Question

Дано целое число х. если число кратно 3, то построить зеленую окружность, иначе-построить желтый квадрат. В PascalABC​

Answer 1

uses graphabc;

var

 x: integer;

begin

 setwindowsize(200, 200);

 read(x);

 if (x mod 3 = 0) then  

 begin

   setbrushcolor(clgreen);

   fillcircle(100, 100, 60);

 end

 else

 begin

   setbrushcolor(clyellow);

   fillrectangle(150, 150, 50, 50);

 end;

end.

Answer 2

Для построения зеленой окружности или желтого квадрата в зависимости от того, кратно ли целое число х трём, можно использовать PascalABC, используя графическую библиотеку GraphABC. Вот пример кода:

pascalCopy code
uses
  GraphABC;

procedure DrawGreenCircle();
begin
  SetBrushColor(clGreen);
  Circle(200, 200, 100);
end;

procedure DrawYellowSquare();
begin
  SetBrushColor(clYellow);
  Rectangle(150, 150, 250, 250);
end;

var
  x: integer;

begin
  Write('Введите целое число x: ');
  ReadLn(x);

  InitGraph;

  if x mod 3 = 0 then
    DrawGreenCircle()
  else
    DrawYellowSquare();

  ReadLn;
  CloseGraph;
end.

При запуске программы она попросит ввести целое число x. Затем, в зависимости от того, кратно ли оно трём, будет нарисована зеленая окружность или желтый квадрат на графическом экране. Если оконная библиотека GraphABC не установлена, ее можно скачать и установить перед запуском программы.