VPF::[pascal] описать програму звездное небо

aylaz

Дата 26.4.2008, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 8.4.2008

Репутация: 0
Всего: 0

здравстауйте.
Помогите описать програму где что означает
uses crt;
const max=50;
var koordX,koordY:array[1..max] of byte;c:char;x,y,i,zvezda:byte;
begin
clrscr;
zvezda:=90;
repeat
delay (100);
gotoxy (koordX[1],koordY[1]);
write(' ');
for i:=2 to max do
begin
koordX[i-1]:=koordX[i];
koordY[i-1]:=koordY[i];
end;
textcolor (random(2));
x:=random(80);
y:=random(70);
koordX[max]:=x;
koordy[max]:=y;
gotoxy(x,y);
if random (100) > zvezda then write ('*') else write ('*');;
if keypressed then c:=readkey;
if c=chr (43)then begin zvezda :=zvezda-5;c:=' ';end;
if c=chr (43)then begin zvezda :=zvezda-5;c:=' ';end;
if zvezda<0 then zvezda :=0;
if zvezda>100 then zvezda :=100;
until c=#27;end.

Arch1S

Дата 26.4.2008, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 14.1.2008
Где: Беларусь, Гомель

Репутация: нет
Всего: 3

aylaz, а что тебе именно не понятно?

aylaz

Дата 26.4.2008, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 8.4.2008

Репутация: 0
Всего: 0

мне нужно примерно так
uses crt {начало програмы}
begin { продолжение }
и т.д. типа обьяснение что и для чего оно

THandle

Дата 26.4.2008, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

aylaz, пользуйся кнопкой код с подсветкой конкретного языка к тому же smile

Код


uses crt;  //подключаем модуль crt

const 
  max=50; //Объявляем константу max для определения максимального размера массива

var 
  koordX,koordY:array[1..max] of byte;//объявляем два массива байт с координатами
  c:char; // переменная c типа char:)
  x,y,i,zvezda:byte; //4 переменных типа byte:)
begin  //Ну, с Богом!!!... Вперед, пошла!!!!
  clrscr;  //Очищаем экранчик
  zvezda:=90;//переменной zvezda присваеваем значение 90
  repeat//запускаем цикль в котором будем производить все дальнейшие действия
    delay (100);//ждем 100 миллисекунд
    gotoxy (koordX[1],koordY[1]);//идем к координатам спрятавшимся в первых элементах массивов координат
    write(' ');//пишем пустой знак
    for i:=2 to max do //запускаем цикл от 2 до нашей недавно объявленной константы max
      begin
        koordX[i-1]:=koordX[i];//присваиваем элементу массива с x координатами с индексом i-1 значение находящееся в элементе с индексом i
        koordY[i-1]:=koordY[i];//тоже самое только с массивом y координат
      end;//цикл кончился
   textcolor (random(2));//цвет равен случайному числу - 0 или 1
   x:=random(80);// задаем случайное значение переменной x
   y:=random(70);//а теперь еще и y!!! Наглость то какая, а?:)
   koordX[max]:=x;//последний элемент массива теперь будет равен случайному значению(а зачем x нужен был? просто koordx[max] := random(80) уже не в мде?
   koordy[max]:=y; // тоже самое с y
   gotoxy(x,y);// идем к этим случайным значениям(неплохо бы в начале программы еще и randomize вызвать:)
   if random (100) > zvezda then 
     write ('*') 
   else 
     write ('*');//если случайное число от 100 больше значения переменной zvezda, то пишем звездочку иначе тоже самое(бред однако:))
   if keypressed then c:=readkey; //читаем кнопочку с клавы
   if c=chr (43)then begin zvezda :=zvezda-5;c:=' ';end; // если с клавиатуры введен +, то уменьшаем значение переменной zvezda на 5, и обнуляем c
   if zvezda<0 then zvezda :=0;//если звезда меньше нуля, то звезда равна 0
   if zvezda>100 then zvezda :=100;//если звезда больше 100, то звезда равна 100
  until c=#27;//если введена кнопочка Esczpe, то конец программы
end.//Всё, каюк

aylaz

Дата 26.4.2008, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 8.4.2008

Репутация: 0
Всего: 0

благодарчик

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »