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

@Denis3961 · Регистрация: 21.09.2015

Author24 — интернет-сервис помощи студентам

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

@Puporev · 27.10.2015, 10:01

Так?

Pascal

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.

@Denis3961 1 / 1 / 0 Регистрация: 21.09.2015 Сообщений: 79
		1
	Реализовать движение звездочек по экрану 27.10.2015, 09:07. Показов 2121. Ответов 1 Метки нет (Все метки) Написать программу, используя всего два цикла: в одном цикле звездочки бегут сразу по верхней и нижней строкам экрана, в другом - сразу по левому и правому краю. Пусть каждая следующая звездочка выводится случайным цветом. Pascal ABC 0

	27.10.2015, 10:01

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

Решение