ВитаминКО, щьто, зачем RMS?

Просто код, показать что все роби:

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

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

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

1. var
2.   q, m: array[1..2] of integer;
3.   img: array[1..10] of image;
4.  
5.   procedure LoadImages;
6.   var
7.     i: integer;
8.  
9.   begin
10.     for i := 1 to 5 do
11.       img[i] := LoadImage('/' + IntegerToString(i) + '.png');
12.   end;
13.  
14.   procedure BotDelaetHod;
15.   begin
16.     q[2] := 10;
17.     m[2] := m[2] - q[2];
18.   end;
19.  
20. begin
21.   q[2] := 50;
22.   m[2] := 40;
23.  
24.   LoadImages;
25.  
26.   DrawImage(img[1], 100, 100);
27.   DrawImage(img[5], 80, 100);
28.  
29.   BotDelaetHod;
30.  
31.   DrawText('q = ' + IntegerToString(q[2]), 5, 5);
32.   DrawText('m = ' + IntegerToString(m[2]), 50, 5);
33.  
34.   Repaint;
35.   Delay(5000);
36. end.

Ты кстати Ctrl+D нажимай, или в чем ты там пишешь...

Дефолтная среда мидлетпаскаля 2.02

а что дает эта комбинация?

ВитаминКО, ну в дефолтной ничего (думал юзаешь 3.x.x или мой блокнот).

Форматирование кода. Улучшение читаемости

ВитаминКО, Вижу что ты обижаешь не виновных процедур.

Helltar (01.02.2014/01:48)
ВитаминКО, ну в дефолтной ничего (думал юзаешь 3.x.x или мой блокнот).Форматирование кода. Улучшение читаемости он юзает mob.pascal

kingdosya, на твой пост (01.02.2014 / 09:11) отвечу, тебе уроком будет пусть :йода:

kingdosya (01.02.2014/12:46)
он юзает mob.pascalЩито? Упрлс? Покажи место, где я это написал

ВитаминКО, Забей на питекантропа.

ВитаминКО (01.02.2014/14:31)
Щито? Упрлс? Покажи место, где я это написалВ л.с. Сказал

kingdosya, на твой пост (01.02.2014 / 19:20) отвечу, 1) мои посты с претензиями ты увидел, а вот на название темы и сообщение-ответ Helltar'у внимания не обратил.
2) Зачем мне писать про моб паскаль в теме мидлет паскаля?