Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс - Turbo Pascal

  1. Написать программу, которая рисует на экране флажок красного цвета. Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс. сделайте пожалуйста!!!


textual

Код:

uses graph;
var x,y,x1,y1:integer;
    p:array[1..6] of pointtype;
begin
randomize;
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2-50;
y:=getmaxY div 2-100;
p[1].x:=x;p[1].y:=y;
p[2].x:=x+150;p[2].y:=y;
p[3].x:=x+120;p[3].y:=y+60;
p[4].x:=x+150;p[4].y:=y+120;
p[5].x:=x;p[5].y:=y+120;
p[6].x:=x;p[6].y:=y;
x1:=x;y1:=y+180;
setcolor(12);
setfillstyle(1,12);
fillpoly(6,p);
setlinestyle(0,0,3);
line(p[5].x+1,p[5].y,x1+1,y1);
readln
end.


Похожие ответы
  1. (Фотография текста заменена текстом)

  1. В Паскале цикл for исполняется с шагом 1 (-1). А как выполнить любой другой шаг?

  1. Пусть входной поток литер содержит по крайней мере одну цифру. Считая первую из них началом записи числа (целого или вещественного с фиксированной точкой), выполнить преобразование этой записи в число

  1. Как сделать чтобы объект двигался еще снизу вверх?

  1. Смоделировать движение окружности, по внешней границе квадрата!!! ХЭЛЛЛЛЛПППП

  1. Ввести любой символ в середине экрана. Нажатием клавиши Enter сделать движение этого символа по кругу с радиусом 4.

  1. Помогите пожалуйста. Нужно выполнить «обратный ход» в решении системы линейных алгебраических уравнений методом Гаусса. Нужно вводить только элементы матрицы системы, стоящие выше главной диагонали, и вектор свободных членов.

  1. Приветствую всех. Нужно выполнить проверку для задач с процедурой val для данных задач.

  1. Сформировать вектор из строки с наименьшим весом , а вес строки взять формула:

  1. Помогите пожалуйста! Дано 2 числа и символ. Символы обозначают математическую операцию(+,-,*,\).необходимо считать числа и символы с клавиатуры и выполнить над числами заданную операцию,результат вывести на экран.если введен не верный символ ,то вывести сообщение о ошибке.