Вниз  MIDlet Pascal
<< 1 ... 8 9 10 11 12 ... 160 >>
- 10.03.2011 / 19:18
#56701
hilettsa
  Пользователь
hilettsa 
Сейчас: Offline
вот кароче вся прога

  1. program LMtool;
  2. var
  3.  
  4. s, m, l, h:integer;
  5. cmd : command;
  6. sila, mudrost, lovkost, hitrost : string;
  7. mana, ataka, zashita, torgov, lider, udar: string;
  8.  
  9. begin
  10.  
  11. ShowForm;
  12.  
  13. s:=FormAddTextField('Введите количество силы :', '', 20, TF_NUMERIC);
  14. m:=FormAddTextField('Введите количество мудрости :', '', 20, TF_NUMERIC);
  15. l:=FormAddTextField('Введите количество ловкости :', '', 20, TF_NUMERIC);
  16. h:=FormAddTextField('Введите количество хитрости :', '', 20, TF_NUMERIC);
  17.  
  18. cmd:=CreateCommand('OK',CM_OK,50);
  19.  
  20. AddCommand(cmd);
  21.  
  22. repeat Delay(100) until GetClickedCommand=cmd;
  23.  
  24. sila:=formgettext(s);
  25. mudrost:=formgettext(m);
  26. lovkost:=formgettext(l);
  27. hitrost:=formgettext(h);
  28.  
  29.  
  30.  
  31. mana:=(sila*1)+(mudrost*2);
  32. ataka:=(sila*2)+(lovkost*2);
  33. zashita:=(sila*1)+(lovkost*1);
  34. torgov:=(mudrost*1)+(lovkost*1);
  35. lider:=hitrost*1;
  36. udar:=(lovkost*2)+(hitrost*2);
  37.  
  38.  
  39.  
  40. ShowCanvas;
  41.  
  42. DrawText('Мана: '+mana,0,0);
  43. DrawText('Атака: '+ataka,0,30);
  44. DrawText('Защита: '+zashita,0,60);
  45. DrawText('Торговля: '+torgov,0,90);
  46. DrawText('Лидерство: '+lider,0,120);
  47. DrawText('1-й удар: '+udar,0,150);
  48.  
  49. Repaint;
  50.  
  51. Delay (10000);
  52.  
  53. end.

- 10.03.2011 / 19:24
#56703
ScRoLiS
  Пользователь
ScRoLiS 
Сейчас: Offline
hilettsa, С каких это пор в программировании разрешено проводить математические операции со строками?
__________________
 Чпок... Добрый вечер!
- 10.03.2011 / 19:26
#56705
ScRoLiS
  Пользователь
ScRoLiS 
Сейчас: Offline
Mishko_na_severe (10.03.2011/19:18)
program porn; Vara, b, c:integer;Beginc:=3 * 6;b:=c - 1;a:=c + a;end.очень полезная прога.
__________________
 Чпок... Добрый вечер!
- 10.03.2011 / 19:41
#56708
Mishko_na_severe
  Пользователь
Mishko_na_severe 
ScRoLiS, ну я его код не читал, прочитал только то, что православными буквами написано. Ну а у чела проблемы с переменными, вот и накатал замёрзшими руками.
- 10.03.2011 / 19:43
#56709
Mishko_na_severe
  Пользователь
Mishko_na_severe 
Код распространяется по лицензии GPL2
- 10.03.2011 / 21:36
#56772
hilettsa
  Пользователь
hilettsa 
Сейчас: Offline
ScRoLiS (10.03.2011/19:24) hilettsa, С каких это пор в программировании разрешено проводить математические операции со строками?
да я начинающий, прост с бесика перешел на паскаль вот путаюсь еще, объясни плиз что именно не так или поправь код
- 10.03.2011 / 22:32
#56786
Mishko_na_severe
  Пользователь
Mishko_na_severe 
hilettsa, как ты представляешь себе умножение строки на число? Храни скиллы в integer, a He string
- 11.03.2011 / 07:12
#56800
hilettsa
  Пользователь
hilettsa 
Сейчас: Offline
все равно ошибки плюс еще в других строках
- 11.03.2011 / 07:20
#56803
hilettsa
  Пользователь
hilettsa 
Сейчас: Offline
  1. sila:=formgettext(s);
  2. mudrost:=formgettext(m);
  3. lovkost:=formgettext(l);
  4. hitrost:=formgettext(h);

error, left and right operands to ':=' must have the same type
- 11.03.2011 / 07:35
#56804
ScRoLiS
  Пользователь
ScRoLiS 
Сейчас: Offline
hilettsa, Выложи сюда исходник.
__________________
 Чпок... Добрый вечер!
<< 1 ... 8 9 10 11 12 ... 160 >>
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)