Написать программу, где с верху и снизу экрана пробегают звездочки

@BakhtiyarZ · Регистрация: 25.04.2011

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

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

Вот моя попытка. Проблемы:
1. Все звездочки случайным цветом.
2. Где надо вставить clrscr, чтобы предыдущие звездочки исчезали.

Pascal

var
  x,y:integer;
  cl:0..15;
begin
   clrscr;
   x:=0;
   y:=0;
   for x:=1 to 80 do
   begin
       x:=x+1;
       if (x mod 2)=0 then 
          begin
              randomize;
              cl:=random(16);
              textcolor(cl);
              gotoxy(x,1);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
          end
       else 
          begin
              textcolor(white);
              gotoxy(x,1);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
              clrscr;
          end;
      readln;
   end
end.

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

@P1Na4eTo · 28.11.2011, 14:59

2 цикла в задание было сказано скорей всего для обратного движения звезд

Pascal

Uses crt;
var
  x:integer;
  cl:0..15;
begin
   clrscr;
   x:=0;
   repeat 
   for x:=1 to 80 do
   begin
   If keypressed=true then break;
              clrscr;
              randomize;
              cl:=random(16);
              textcolor(cl);
              gotoxy(x,2);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
              delay(100);
              end;
   for x:=80 downto 1 do
   begin
   If keypressed=true then break;
              clrscr;
              randomize;
              cl:=random(16);
              textcolor(cl);
              gotoxy(x,2);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
              delay(100); 
   end;
   until keypressed=true;
end.

@BakhtiyarZ · 28.11.2011, 15:41 **[ТС]**

Спасибо. Но это не решило проблем с которыми я столкнулся. Почему то все звездочки окрашиваются случайным цветом. Хотя необходимо чтоб каждая вторая. Потом чтоб предыдущая звездочка исчезала..У меня при вставке clrscr..звездочки которые идут сверху исчезают вообще а вот снизу появляеться нормально, но опять же все в случайной окраске....

@P1Na4eTo · 28.11.2011, 15:52

ты не указал чтоб каждая 2 должна изменятся

@BakhtiyarZ · 28.11.2011, 15:56 **[ТС]**

В самом первом сообщении... Каждая следующая.. А как на счет clrscr?

@P1Na4eTo · 28.11.2011, 15:58

до конца не понял задания, 2 варианта
1:

Pascal

Uses crt;
var
  x:integer;
  cl:0..15;
begin
   clrscr;
   x:=0;
   repeat 
   for x:=1 to 80 do
   begin
   If keypressed=true then break;
             randomize; 
             if x mod 2=0 then 
                begin 
                cl:=random(16); 
                clrscr; 
                end;
              textcolor(cl);
              gotoxy(x,2);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
              delay(100);
              end;
   for x:=80 downto 1 do
   begin
   If keypressed=true then break;
              randomize;
              if x mod 2=0  then begin 
              cl:=random(16);
              clrscr; 
              end;
              textcolor(cl);
              gotoxy(x,2);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
              delay(100); 
   end;
   until keypressed=true;
end.

2:

Pascal

Uses crt;
var
  x:integer;
  cl:0..15;
begin
   clrscr;
   x:=0;
   repeat 
   for x:=1 to 80 do
   begin
   If keypressed=true then break;
             randomize; 
                clrscr;             
             if x mod 2=0 then
                cl:=random(16); 
              textcolor(cl);
              gotoxy(x,2);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
              delay(100);
              end;
   for x:=80 downto 1 do
   begin
   If keypressed=true then break;
              randomize;
              clrscr;
              if x mod 2=0  then 
                cl:=random(16); 
              textcolor(cl);
              gotoxy(x,2);
              writeln('*');
              gotoxy(x,25);
              writeln('*');
              delay(100); 
   end;
   until keypressed=true;
end.

@BakhtiyarZ · 28.11.2011, 16:08 **[ТС]**

Ух ты).. Большое спс... А ты не мог бы посмотреть на мою прогу... Куда бы там вставить очистку экрана? и почему все звездочки рандом не каждая вторая?

@P1Na4eTo · 28.11.2011, 16:21

у тебя ошибка gotoxy(x,1); writeln('*'); надо писать write(x,1);

Pascal

1
2
3

   for x:=1 to 80 do 
   begin
       clrscr;{здесь надо вставить}

вот исправленная твоя прога

Pascal

Uses Crt;
var
  x:integer;
  cl:0..15;
begin
   clrscr;
   for x:=1 to 80 do
   begin
       clrscr;
       if (x mod 2)=0 then 
          begin
              randomize;
              cl:=random(16);
              textcolor(cl);
              gotoxy(x,1);
              write('*');
              gotoxy(x,25);
              write('*');
          end
       else 
          begin
              textcolor(white);
              gotoxy(x,1);
              write('*');
              gotoxy(x,25);
              write('*');
              
          end;
      readln;
   end
end.

Написать программу, где с верху и снизу экрана пробегают звездочки

Решение

Решение

Решение

@BakhtiyarZ 2 / 2 / 3 Регистрация: 25.04.2011 Сообщений: 122
	28.11.2011, 15:41 [ТС]	3
	Спасибо. Но это не решило проблем с которыми я столкнулся. Почему то все звездочки окрашиваются случайным цветом. Хотя необходимо чтоб каждая вторая. Потом чтоб предыдущая звездочка исчезала..У меня при вставке clrscr..звездочки которые идут сверху исчезают вообще а вот снизу появляеться нормально, но опять же все в случайной окраске.... 0

@P1Na4eTo 11 / 11 / 17 Регистрация: 14.09.2011 Сообщений: 62
	28.11.2011, 15:52	4
	ты не указал чтоб каждая 2 должна изменятся 0

@BakhtiyarZ 2 / 2 / 3 Регистрация: 25.04.2011 Сообщений: 122
	28.11.2011, 15:56 [ТС]	5
	В самом первом сообщении... Каждая следующая.. А как на счет clrscr? 0

@BakhtiyarZ 2 / 2 / 3 Регистрация: 25.04.2011 Сообщений: 122
	28.11.2011, 16:08 [ТС]	7
	Ух ты).. Большое спс... А ты не мог бы посмотреть на мою прогу... Куда бы там вставить очистку экрана? и почему все звездочки рандом не каждая вторая? 0

	28.11.2011, 16:21