Question

Напишите код для не трудного рисунка в паскале

Answer 1

Машинка

program avto;

Uses crt,GraphABC;

Var x,y:integer;

Begin

X:=300; y:=200;

SetPenColor(clgray);

//колесо

Circle(x+10,y+50,20);

//колесо

Circle(x+100,y+50,20);

//корпус машины

MoveTo (x+30,y+50);

LineTo (x+80,y+50);

MoveTo (x+120,y+50);

LineTo (x+140,y+50);

MoveTo (x+140,y+50);

LineTo (x+140,y+20);

MoveTo (x+140,y+20);

LineTo (x+120,y+20);

MoveTo (x+120,y+20);

LineTo (x+100,y-30);

MoveTo (x+100,y-30);

LineTo (x+30,y-30);

MoveTo (x+30,y-30);

LineTo (x+10,y+20);

MoveTo (x+10,y+20);

LineTo (x-25,y+20);

MoveTo (x-25,y+20);

LineTo (x-25,y+50);

MoveTo (x-25,y+50);

LineTo (x-10,y+50);

//первое окно

MoveTo (x+20,y+20);

LineTo (x+60,y+20);

MoveTo (x+60,y+20);

LineTo (x+60,y-20);

MoveTo (x+60,y-20);

LineTo (x+35,y-20);

MoveTo (x+35,y-20);

LineTo (x+20,y+20);

//второе окно

MoveTo (x+70,y+20);

LineTo (x+110,y+20);

MoveTo (x+70,y+20);

LineTo (x+70,y-20);

MoveTo (x+70,y-20);

LineTo (x+95,y-20);

MoveTo (x+95,y-20);

LineTo (x+110,y+20);

End.

Answer 2

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

pascalCopy code
program DrawRectangle;
uses Graph;

var
  gd, gm: smallint;

begin
  // Инициализируем графический режим
  gd := D4bit;
  gm := m640x480; // Вы можете выбрать другой режим, если хотите

  InitGraph(gd, gm, '');

  // Проверяем на успешную инициализацию
  if GraphResult <> grOk then
  begin
    Writeln('Не удалось инициализировать графический режим');
    Halt(1);
  end;

  // Рисуем прямоугольник
  Rectangle(100, 100, 300, 200);

  // Задерживаем выполнение программы
  ReadLn;

  // Завершаем графический режим
  CloseGraph;
end.

Этот код инициализирует графический режим, рисует прямоугольник с координатами (100, 100) и (300, 200), а затем ожидает, пока пользователь не нажмет Enter для завершения программы. Не забудьте, что для выполнения этого кода вам потребуется компилятор Pascal с поддержкой библиотеки Graph.

Если вам нужно нарисовать что-то более сложное или у вас есть конкретные требования, пожалуйста, уточните задачу, и я с удовольствием помогу вам дальше.