Задать вопрос
16 августа, 07:15

Построить траекторию случайных блужданий по квадратной решетке паскаль

+4
Ответы (1)
  1. 16 августа, 09:30
    0
    Uses GraphABC;

    begin

    Window. Height:=600;

    Window. Width:=800;

    var y:=10;

    while y
    Line (10, y, 790, y) ;

    y+=10

    end;

    var x:=10;

    while x
    Line (x, 10, x, 590) ;

    x+=10

    end;

    Randomize;

    Pen. Color:=clRed;

    Pen. Width:=3;

    x:=Window. Width div 2;

    x:=10*Round (x/10) ;

    y:=Window. Height div 2;

    y:=10*Round (y/10) ;

    MoveTo (x, y) ;

    repeat

    case Random (1,4) of

    1:LineTo (PenX+10, PenY) ;

    2:LineTo (PenX, PenY-10) ;

    3:LineTo (PenX-10, PenY) ;

    4:LineTo (PenX, PenY+10) ;

    end;

    Sleep (100) ;

    until false;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Построить траекторию случайных блужданий по квадратной решетке паскаль ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
Помгите! Программа Паскаль Вопрос 1. Функция служебного слова Var. Вопрос 2. С какими числами можно работать в программе Паскаль? Вопрос 3. Оператор ввода. Как он записывается в Паскаль? Вопрос 4. Функция служебного слова Const. Вопрос 5.
Ответы (1)
N3 Составь цепочки А - из одной жёлтой треугольной бусины; Б - из двух зелёных бусин квадратной и круглой формы В - из жёлтой квадратной и синей треугольной бусин; Г - из красной квадратной и жёлтой треугольной бусин;
Ответы (1)