Реализовать движение звездочек по экрану - Pascal ABC

Формулировка задачи:

Написать программу, используя всего два цикла: в одном цикле звездочки бегут сразу по верхней и нижней строкам экрана, в другом - сразу по левому и правому краю. Пусть каждая следующая звездочка выводится случайным цветом. Pascal ABC

Код к задаче: «Реализовать движение звездочек по экрану - Pascal ABC»

textual
uses crt;
var i:integer;
begin
hidecursor;
randomize;
for i:=1 to 79 do
 begin
  textcolor(random(15));
  gotoXY(i,1);
  write('*');
  gotoXY(i,25);
  write('*');
  delay(100);
 end;
clrscr;
for i:=1 to 25 do
 begin
  textcolor(random(15));
  gotoXY(1,i);
  write('*');
  gotoXY(79,i);
  write('*');
  delay(100);
 end;
end.

8   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ