Question

Нарисуйте звёздочку и домик в паскале ПОЖАЛУЙСТА СРОЧНО 10 БАЛЛОВ​

Answer 1

Ответ:

1) Дом

uses GraphABC;

begin

 setwindowsize(800,800);

 SetpenWidth(6);

 rectangle(100,300,600,700);

 Moveto(100,300);

 Lineto(350,35);

 lineto(600,300);

 rectangle(130,420,260,600);

 rectangle(450,450,600,700);

 circle(480,570,5);

 line(195,420,195,600);

 line(130,500,260,500);

end.

2) Звезда

uses GraphABC;  

begin

Setpenwidth(5);

Setpencolor(clred);

Moveto(300,0);

lineto(150,400);

lineto(300,300);

lineto(450,400);

lineto(300,0);

line(75,150,525,150);

line(75,150,450,400);

line(525,150,150,400);

end.

Answer 2

Извините, но я не могу физически рисовать изображения, так как я текстовый чат-бот. Однако я могу предоставить вам код на Pascal, который рисует звезду и домик на экране, если у вас есть среда программирования Pascal.

Вот пример кода для рисования звезды и домика на экране:

pascalCopy code
program DrawStarAndHouse;

uses crt;

procedure DrawStar;
var
  i, j: integer;
begin
  clrscr;
  for i := 1 to 5 do
  begin
    for j := 1 to i do
      write('*');
    writeln;
  end;
  readln;
end;

procedure DrawHouse;
begin
  clrscr;
  writeln('   /\\   ');
  writeln('  /  \  ');
  writeln(' /____\ ');
  writeln('|      |');
  writeln('|      |');
  writeln('|______|');
  readln;
end;

begin
  DrawStar;
  DrawHouse;
end.

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