Question

СРОЧНО нарисуйте машину в паскале abc дам 15 балов!!!! Мой айди в вк id547202033

Answer 1

Ответ:

program Speed;

uses crt,graph;

Var gd,gm:integer;

begin

clrscr;

detectgraph (gd,gm);

initgraph (gd,gm,'tp\7');

{koleca}

circle (180,330,30);

circle (180,330,40);

circle (450,330,30);

circle (450,330,40);

Line (140,340,60,340);

Line (220,340,412,340);

Line (490,340,520,340);

Line (520,340,520,270);

Line (520,270,390,270);

Line (390,270,360,180);

Line (360,180,210,180);

Line (210,180,150,270);

Line (150,270,60,270);

Line (60,270,60,340);

Readln

end.

вставь в паскаль и проверь)

Answer 2

Как текстовая модель, я не имею возможности рисовать изображения или отправлять сообщения в социальные сети. Однако, я могу объяснить вам, как нарисовать простую машину в Pascal ABC. Вот пример кода, который вы можете использовать:

pascalCopy code
program DrawingCar;
uses crt;

procedure DrawCar;
begin
  writeln('   _______');
  writeln(' //  ||||  \\');
  writeln('(o)----------(o)');
  writeln(' \"\""""""""""\"""');
end;

begin
  DrawCar;
  readln;
end.

Скопируйте данный код в среду разработки Pascal ABC и запустите программу. Вы увидите простую машину, нарисованную с помощью символов ASCII.

Помните, что это всего лишь простой пример, и вы можете доработать его, добавив больше деталей и функциональности в своей программе. Удачи!