Задать вопрос
7 апреля, 08:16

Составьте программу в Pascal по следующему сценарию: при нажатии на клавишу а произвольном месте экрана появляется квадратик, при нажатии на клавишу - окружность.

+2
Ответы (1)
  1. 7 апреля, 10:41
    0
    Uses GraphABC;

    var

    s:char;

    x, y, r:integer;

    begin

    readln (s) ;

    x:=Random (100) + 200;

    y:=Random (100) + 200;

    r:=Random (100) + 100;

    if s='к' then DrawRectangle (x, y, x+r, y+r) ;

    if s='о' then DrawCircle (x, y, r) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу в Pascal по следующему сценарию: при нажатии на клавишу а произвольном месте экрана появляется квадратик, при нажатии ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Для изменения значения других клавиш необходимо нажать клавишу Backspace клавишу Insert клавишу Enter клавишу Caps Lock клавишу Delete клавишу Ctrl клавишу Shift клавишу Tab клавишу Alt
Ответы (1)
Что такое разрешение экрана монитора? А) Разновидность монитора Б) Степень освещения экрана монитора в горизонтальном и вертикальном направлениях В) Число пикселей в горизонтальном и вертикальном направлениях экрана Г) размер экрана по диагонали
Ответы (1)
Как описывают переменные в Pascal? Какие стандартные числовые типы языка Pascal вам известны? Что вам известно о соответствии типов переменных в языке Pascal? Какие арифметические операции можно выполнять в Pascal?
Ответы (1)
1. Составьте программу в Pascal ABC. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет. 2. Составьте программу в Pascal ABC. Дано двузначное число. Найти сумму и произведение его цифр. 3.
Ответы (1)
1. Составьте программу в Pascal ABC. Даны три числа. Найти сумму двух наибольших из них. 2. Составьте программу в Pascal ABC.
Ответы (1)