не могу понять несколько строчек в pascal в простом исходнике

[zhenka619]

Нашел исходник но не могу понять его помогите пожалуйста, заранее благодарю.

uses crt;
const
  h='O';
  xmin=1;
  ymin=1;
  xmax=80;
  ymax=25;
var
	x,y,vx,vy:integer;
  ch:char;
  xe,ye,i:integer;
begin
	clrscr;
  Randomize;
  x:=xmin;
  y:=ymax div 2;
  xe:=12;
	ye:=12;
  gotoxy(xe,ye);
  write ('a');
  while (x>=1) and (x<=80) and (y>=1) and (y<=25) do begin
  	GoTOXY(x,y);
  	write(h);
    delay(20);
    if keypressed then
    begin
    	ch:=readkey;
    	case ch of
      	'd':begin vx:=1; vy:=0 end;  {:confused:    вот здесь не могу понять
      	'a':begin vx:=1; vy:=0 end;  :confused:	зачем нужны vx ,vy		 	
	'w':begin vx:=0; vy:=-1 end; :confused:  и вообще не понимаю как 	
      	's':begin vx:=0; vy:=1 end;    :confused: 	это влияет на программу ? }
      end;
    end;               {:confused: вот здесь тоже не понимаю ? 
    gotoxy(x,y);     вообще можете пожалуйста обьяснить всю программу,
    write(' ');         я просто недавно начал изучать pascal и многого не 
    inc(x,vx);        понимаю}
    inc(y,vy);
    if (x=xe) and (y=ye) then begin
    	i:=i+1;
      clrscr;
      xe:=random(70);
      ye:=random(20);
      gotoXY(xe,ye);
      write(h);
    end;
  end;{while}
  write('i=',i);
  readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[McFrey]

о Ужас метки...ужасный стиль программирования

[whatever]

McFrey, поддерживаю. Точно сказать не могу, но похоже прога заставляет бегать курсор по методу WSAD (любой CS'ер поймет :D).

if keypressed then
 begin
 ch:=readkey;
 case ch of
 'd':begin vx:=1; vy:=0 end; { вот здесь не могу понять
 'a':begin vx:=1; vy:=0 end;  зачем нужны vx ,vy 
 'w':begin vx:=0; vy:=-1 end;  и вообще не понимаю как 
 's':begin vx:=0; vy:=1 end;  это влияет на программу ? }

"если кнопка нажата то
читаем кнопку
если D то vx:=1, vy:=0
....
....
...."
Далее я теряюсь... По логике должно быть
inc(x,vx);
inc(y,vy);

а потом GOTOXY(x,y)

По крайней мере так есть хоть какой-то смысл...

Программа вообще работала? ДО того, как ты ее закоментировал (ПОСЛЕ уж точно не будет, комент в {} на туеву хучу строк не позволит)

[ViktorR]

Всю программу предлагаю понять самому
Но вот кусочек после приведения в некоторый порядок читается так:

if keypressed then begin {Если нажата клавиша}
   ch:=readkey;  {читаем нажатый символ}
   case ch of      {Это оператор варианта: переход на }
      'd':begin vx:=1; vy:=0 end; {сюда, если ,была нажата клавиша d}
      'a':begin vx:=1; vy:=0 end; {сюда, если ,была нажата клавиша а}
      'w':begin vx:=0; vy:=-1 end; {или сюда, если нажали клавишу w}
      's':begin vx:=0; vy:=1 end;  {а вот тут нажали клавишу s} 
   end; {Завершение оператора выбора}
end; { Завершение составного оператора, который отрабатывает, если нажали какую либо клавишу}

Данные клавиши используются в играх как стрелки, для указания направления перемещения.
vx и vy - переменные, которые используются в процедурах Inc(x,vx) и Inc(x,vx).
Эти процедуры позволяют более быстро выполнить операцию:

x := x + vx;
y := y + vy;

McFrey

о Ужас метки...ужасный стиль программирования

Пугаться не надо
Это не Label.
Тут ничего ужасного нет. Это нормальный код.

[McFrey]

ViktorR
с другой стороны "go to" .....и это маленькая программа, а если использовать такие фокусы в больших проектах то хорошего не выйдет ничего, сам запутаешься, ды еще и друзей-программистов запутаешь.

[ViktorR]

ViktorR
с другой стороны "go to" .....и это маленькая программа,

И где там Goto ?

Это обычный оператор варианта - Case.
Некоторый аналог группы условных операторов, но более быстрый код:

if ch = 'd' Then begin ..... end;
if ch = 'a' Then begin ..... end;
if ch = 'w' Then begin ..... end;
if ch = 's' Then begin ..... end;

Такая структура существует и в C и в VBA, и во многих других языках.
И очевидно, что такая структура (Case) более читаема, чем набор If'ов.

[McFrey]

у каждого своя точка зрения, но в большинстве своем программисты отказываются от "goto"

[Serge_Bliznykov]

ОМГ! McFrey, что вы спорите то?!!!

в этой программе вообще НЕТ GOTO! Ни одного!

А то, что Вы приняли за goto - GotoXY это процедура позиционирования курсора (позиции вывода) для текстового экрана.