С какой игры начать? Опции

[Гелла]

Я вот хочу научится программировать..один очень хороший человек на этом форуме подсказал, что лучше учиться программировать в процессе написания игр........какую самую простую игру вы можете посоветовать..Заранее Большое Спасибо....Не умею правильно пользоваться поиском по форуму..поэтому не отсылайте плиз в поиск........

[Гелла]

Программа работает!У меня был неправильный паскаль...стоило переустапновить паскаль и всё заработало...вроде во всём разобралась...

Goodwind: "..это неправильные пчелы.. "© Винни-Пух

Сообщение отредактировано: GoodWind - 11.04.2006 6:26

[Lapp]

Гелла, привет. Режь меня - не могу представить ситуацию, чтоб "неправильный" Паскаль компилил прогу так, чтоб она неправильно работала! Мистика какая-то.. У Турбо Паскаля и установки-то как таковой нету - просто копируй файлы, да и все.

Ну, что ж - можно топать вперед.. Но только движение вперед всегда относительно. Сейчас мы сделаем программу, которая делает в точности то же самое .
Мы оптимизируем, или просто улучшим программу. Любая сколь-нибудь серьезная программа может быть улучшена сразу после написания. Сначала ты пишешь текст, отлаживаешь, видишь - все работает. Но после этого замечаешь, что программа может быть улучшена.. Посмотри текст внизу. Запусти его (можешь на этот раз скопировать), убедись, что все действительно работает по-старому.
После этого сравни его со старым текстом. Найди, как грится, десять отличий. И попытайся тут высказать, какие улучшения мне удалось сделать в этой совсем небольшой программке . Ок?

{Version 02}
uses
  CRT;

const
  xn=1;      {Left screen limit}
  xx=80;     {Right screen limit}
  yn=1;      {Top screen limit}
  yx=25;     {Bottom screen limit}
  H='8';     {Snake head}
  dt=500;    {Delay}

var
  x:integer=xn;          {Snake location}
  y:integer=yx div 2;
  vx:integer=1;           {Snake direction}
  vy:integer=0;

var
  c:char;

begin
  ClrScr;
  while (x>=xn)and(x<=xx)and(y>=yn)and(y<=yx) do begin
    GoToXY(x,y);Write(H);
    Delay(dt);
    if KeyPressed then begin
      c:=ReadKey;
      case c of
        'i':begin vx:=0;vy:=-1 end;
        'm':begin vx:=0;vy:=1 end;
        'j':begin vx:=-1;vy:=0 end;
        'k':begin vx:=1;vy:=0 end;
      end;
    end;
    GoToXY(x,y);Write(' ');
    Inc(x,vx);Inc(y,vy);
  end
end.

[Гелла]

program snake_2;
uses crt;

const
    xn=1;
    xx=80;
    yn=1;
    yx=25;
    H='8';
    dt=500;


var x,y,vx,vy:integer;
    c:char;

begin
    clrscr;
    while (x>=xn) and (x<=xx) and (y>=yn) and (y<=yx) do
    begin
        GoToXY(x,y);
        write(H);
        Delay(dt);
        if KeyPressed then
        begin
            c:=ReadKey;
            case c of
                'i':begin vx:=0; vy:=-1 end;
                'm':begin vx:=0; vy:=1 end;
                'j':begin vx:=-1; vy:=0 end;
                'k':begin vx:=1; vy:=0 end;
           end;
       end;
       GoToXY(x,y);
       write('');
       Inc(x,vx);
       Inc(y,vy);
    end;
end.

Она не работает...только не понимаю почему..ошибок никаких, а на экране вообще ничего не появляется...
просто чёрный экран...

Сообщение отредактировано: volvo - 2.11.2006 12:33