• Даны три прямоугольника, каждого из которых известны координаты вершин одной диагонали: 1) 20, 20 и 80, 200;
    2) 200, 97 и 500, 156;
    3) 300, 120 и 400, 420. Составьте программу, которая рисует эти прямоугольники красным, жёлтым и зелёным цветами, соответственно.

    ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ

Ответы 1

  • PascalABCNETuses graphABC;beginsetpencolor (clRed);line(20,20,20,200);line(20,200,80,200);line(80,200,80,20);line(80,20,20,20);setpencolor (clYellow);line(200,97,200,156);line(200,156,500,156);line(500,156,500,97);line(500,97,200,97);setpencolor (clGreen);line(300,120,300,420);line(300,420,400,420);line(400,420,400,120);line(400,120,300,120)end.
    • Автор:

      cano
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years