Altana

Помогите объяснить каждую команду пожалуйста

Задача 1:
сделать мигающий квадрат.. Т.е в центре экрана появляется квадрат, затем исчезает, затем появляется другой, но уже другого цвета и другого размера, затем исчезает, затем другой и т.д. Это продолжается, пока пользователь не нажмет Esc.

Program pr1;
Uses CRT, graph;
var gd,gm:integer;
n,x1,y1,x2,y2,i:integer;
a:char;

Begin
gd:=0;
Initgraph(gd,gm,'c:\TP7\bgi');

While not keypressed do
begin
n:=random(100);
x1:=320-n;
y1:=240-n;
x2:=320+n;
y2:=240+n;

i:=random(16);
Setcolor(i);
Rectangle(x1,y1,x2,y2);
Delay(200);
Setcolor(0);
Rectangle(x1,y1,x2,y2);
end;

Readkey;
Closegraph;
End.

Vladimir_S

Altana, в чем дело? Ведь только что "по косточкам" разобрали эту эту задачку здесь, и всё вроде было хорошо и понятно, так теперь опять двадцать пять здрасьте приехали?

Altana

Да да, я это помню, но мой преподаватель сказал переделать эту задачу с другими командами, более простыми... вот что поделать)

Vladimir_S

Ну хорошо, "более простыми", но что непонятно-то? Алгоритм остался ровно тем же, только что в явном виде заданы длины и координаты... а так...

Altana

Я отстаивала ту задачу как могла)) Но она у нас оооочень вредная.. -_-

Altana

поможете, м? пожалуйста) с момента 'while....'

Vladimir_S

Абсолютно не вижу принципиальной разницы с предыдущим вариантом, ну да ладно:
While not keypressed do {Цикл до нажатия любой клавиши}
begin {Начало цикла}
n:=random(100); {Задание полустороны квадрата случайным образом в диапазоне 0..99 пикселов}
x1:=320-n; {Определение X-координаты левого верхнего угла квадрата}
y1:=240-n; {Определение Y-координаты левого верхнего угла квадрата}
x2:=320+n; {Определение X-координаты правого нижнего угла квадрата}
y2:=240+n; {Определение Y-координаты правого нижнего угла квадрата}

i:=random(16); {Выбор цвета квадрата путем случайного задания индекса от 0 до 15}
Setcolor(i); {Установка выбранного цвета}
Rectangle(x1,y1,x2,y2); {Рисование квадрата}
Delay(200); {Задержка на 0.2 секунды}
Setcolor(0); {Установка фонового цвета}
Rectangle(x1,y1,x2,y2); {Рисование того же квадрата фоновым цветом. Квадрат исчезает}
end; {Конец цикла}

Readkey; {В таком варианте - абсолютно лишняя команда. Можете убрать}
Closegraph; {Выход из графического режима}
End. {Глобальное ВСЁ!}

Altana

благодарю вас))

Altana

ааа.. можно ещё вопрос))
Почему в начале цикла:
"While not keypressed do"
я не могу написать:
"While ord(a)=27"?
в описании переменных добавила переменную a:char.. что тут не так?

Daniellos

Удл. сообщение, т.к. дублирует предыдущее