• 
  • 29 November 2020
  Информатика
  • Автор: 1qwerty205456

  

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

• 
  • 29 November 2020
  • Ответ оставил: neznai94

  Машинка

  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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (23.09.2025) наш сайт содержит 109575 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы