Question

Помогите пожалуйста нарисовать флаг Италии в Паскаль

Answer 1

Uses graphabc;
begin
Setbrushcolor:=clred;
rectangle (0,0,50,50);
Setbrushcolor:=clwhite;
rectangle(0,50,100,100);
Setbrushcolor:=clgreen;
rectangle(0,100,150,150);
end.

Answer 2

Конечно! Вот пример кода на языке Pascal для рисования флага Италии, используя графические возможности Pascal:

pascalCopy code
program ItalianFlag;

uses
  Graph;

const
  Width = 600; // Ширина окна
  Height = 400; // Высота окна

var
  Gd, Gm: Smallint;

procedure DrawItalianFlag;
var
  StripeWidth: Integer;
begin
  // Определение ширины полоски в соответствии с шириной окна
  StripeWidth := Width div 3;

  // Фон белого цвета
  SetColor(White);
  SetFillStyle(SolidFill, White);
  Bar(0, 0, Width, Height);

  // Зеленая полоска
  SetColor(Green);
  SetFillStyle(SolidFill, Green);
  Bar(0, 0, StripeWidth, Height);

  // Белая полоска
  SetColor(White);
  SetFillStyle(SolidFill, White);
  Bar(StripeWidth, 0, 2 * StripeWidth, Height);

  // Красная полоска
  SetColor(Red);
  SetFillStyle(SolidFill, Red);
  Bar(2 * StripeWidth, 0, Width, Height);
end;

begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  SetWindowSize(Width, Height);
  DrawItalianFlag;
  ReadLn;
  CloseGraph;
end.

Убедитесь, что ваша среда разработки поддерживает графику в Pascal, например, Turbo Pascal или Free Pascal с графическими библиотеками. При запуске этой программы вы должны увидеть окно с флагом Италии, состоящим из трех вертикальных полосок зеленого, белого и красного цветов.