Вниз  MIDlet Pascal
<< 1 ... 39 40 41 42 43 ... 160 >>
- 10.10.2012 / 19:45
#209686
gtasase
  Пользователь
gtasase 
Сейчас: Offline
HoldFast, описание комманд примеры
- 10.10.2012 / 19:49
#209687
HoldFast
  Пользователь
HoldFast 
Сейчас: Offline
http://annimon.com/download/index.php?act=view&id=167 не, не видел?
__________________
 Да, детка, я - Король Ящериц!!!
- 12.10.2012 / 12:07
#209896
gtasase
  Пользователь
gtasase 
Сейчас: Offline
ошибка процедура или функция Else() не найдена
  1. var
  2. n:integer;
  3. begin
  4. n:=random(11);
  5. If n>=5 then drawtext('?????? 5',50,50);
  6. else drawtext('?????? 5',50,50);
  7. drawtext('?????'+integer to string(n),2,40);
  8. repaint;
  9. delay(5000);
  10. End.

- 12.10.2012 / 12:24
#209898
boNNdaR
  Пользователь
boNNdaR 
Сейчас: Offline
Лучше блоки then и else брать в begin end.
- 12.10.2012 / 12:27
#209899
gtasase
  Пользователь
gtasase 
Сейчас: Offline
boNNdaR, как это ?
Открыть спойлер

- 12.10.2012 / 19:09
#209966
Evil_Angel
  Пользователь
Evil_Angel 
Сейчас: Offline
gtasase, перед else точка с запятой не ставится.
- 12.10.2012 / 19:17
#209975
gtasase
  Пользователь
gtasase 
Сейчас: Offline
теперь
размер стека <0
- 21.10.2012 / 20:32
#212340
gtasase
  Пользователь
gtasase 
Сейчас: Offline
  1. VAR
  2. x: integer;
  3. begin
  4. x:=1
  5. repeat
  6. setcolor(255,0,0);
  7. if (getKeyPressed = KE_KEY4) then x:=x-1;
  8. if (getKeyPressed = KE_KEY6) then x:=x+1;
  9. fillrect(x,50,5,5);
  10. repaint;
  11. until getkeyclicked = ke_key0;
  12. end.
ошибка [Pascal Error] newproject.mpsrc(5): E203 keyword 'end' expected, 'repeat' found
ERROR: an error occurred compiling NewProject.mpsrc
- 26.10.2012 / 19:20
#213981
Evil_Angel
  Пользователь
Evil_Angel 
Сейчас: Offline
gtasase, 4: x:=1 (<<= ;)
- 26.10.2012 / 19:31
#214008
Serg
  Пользователь
Serg 
Сейчас: Offline
В условиях нельзя присваивать вроде как.
<< 1 ... 39 40 41 42 43 ... 160 >>
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)