Чем отличаются procedure и function

wolfman, функция должна что-то возвращать

HoldFast, А procedure типа void?

wolfman, так точно

Хочу спросить у знатоков, как будет лучше в плане оптимизации?

Вариант 1:

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program BlaferMP;
2.  
3. var
4.     x, y, key: integer; // x, y - координаты курсора, key - клавишы
5.     hand, home, mouse: image; // переменные картинок
6.  
7. begin
8.  
9.     // Загрузка картинок
10.     hand:= loadImage('/hand.png'); // рука
11.     home:= loadImage('/home.png'); // фон, главная вк
12.     mouse:= loadImage('/mouse.png'); // курсор (стрелка)
13.  
14.     repeat
15.  
16.         key:= keyToAction(getKeyPressed); // клава
17.  
18.         drawImage(home, 0, 0); // выводим фон
19.         drawImage(mouse, x, y); // выводим курсор
20.  
21.         // Управление
22.         if key = GA_RIGHT then x:= x + 2; // вправо
23.         if key = GA_LEFT then x:= x - 2; // влево
24.         if key = GA_UP then y:= y - 2; // вверх
25.         if key = GA_DOWN then y:= y + 2; // вниз
26.  
27.         repaint; // прорисовка
28.  
29.     until false;
30.  
31. end.

Вариант 2:

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program BlaferMP;
2.  
3. var
4.     x, y, key: integer; // x, y - координаты курсора, key - клавишы
5.     hand, home, mouse: image; // переменные картинок
6.  
7. begin
8.  
9.     // Загрузка картинок
10.     hand:= loadImage('/hand.png'); // рука
11.     home:= loadImage('/home.png'); // фон, главная вк
12.     mouse:= loadImage('/mouse.png'); // курсор (стрелка)
13.  
14.     drawImage(home, 0, 0); // выводим фон
15.     drawImage(mouse, x, y); // выводим курсор
16.     repaint; // прорисовка
17.  
18.     repeat
19.  
20.         key:= keyToAction(getKeyPressed); // клава
21.  
22.         // Управление
23.         if key = GA_RIGHT then
24.             begin
25.                 drawImage(home, 0, 0); // выводим фон
26.                 drawImage(mouse, x, y); // выводим курсор            
27.                 x:= x + 2; // вправо
28.                 repaint; // прорисовка
29.             end;
30.  
31.         if key = GA_LEFT then
32.             begin
33.                 drawImage(home, 0, 0); // выводим фон
34.                 drawImage(mouse, x, y); // выводим курсор            
35.                 x:= x - 2; // влево
36.                 repaint; // прорисовка
37.             end;
38.  
39.         if key = GA_UP then
40.             begin
41.                 drawImage(home, 0, 0); // выводим фон
42.                 drawImage(mouse, x, y); // выводим курсор            
43.                 y:= y - 2; // вверх
44.                 repaint; // прорисовка
45.             end;
46.  
47.         if key = GA_DOWN then
48.             begin
49.                 drawImage(home, 0, 0); // выводим фон
50.                 drawImage(mouse, x, y); // выводим курсор            
51.                 y:= y + 2; // вниз
52.                 repaint; // прорисовка
53.             end;
54.  
55.     until false;
56.  
57. end.

Helltar, второй вариант, но он тоже плохо оптимизирован, как минимум вынеси это
в отдельную процедуру. Ну и желательно в repeat until проверять нажата ли клавиша, и как только происходит нажатия передавать управление процедуре обработке нажатия которой передать код нажатой клавиши.

1JavaMods1 (05.04.2013/13:46)Моя первая игрушка на мидлет паскале (учу 1 день)
Пост #252625Копипаста! Это пример из: Электронный журнал про MIDlet Pascal

где кнопка собрать в jar? От паблоида! Моб паскаль.

limil, просто нажми в середину на джои

какую игруху начать делать? Гонки? К.С.? Программа Акаи?