Пятница, 29 Марта 2024, 13:36

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Записи участника » Nes [2]
Результаты поиска
NesДата: Среда, 27 Июня 2012, 15:29 | Сообщение # 1 | Тема: [MMORPG] Haru
был не раз
Сейчас нет на сайте
Quote
На вселенную Haru напали напали адские монстрыЦитата из сообщения

и все испугались испугались и побежали побежали


Сообщение отредактировал Nes - Среда, 27 Июня 2012, 15:31
NesДата: Четверг, 09 Февраля 2012, 12:32 | Сообщение # 2 | Тема: Midlet pascal
был не раз
Сейчас нет на сайте
Code

d:=(brp*brp)-(4*arp*crp);  

dr:=FormGetText(d);  


у тебя d является переменной, в которой хранится значение дискриминанта, а ты пытаешься использовать её как id какого-то несуществующего TextFiled'а

Code

program ax2_bx_c_mobile;  
var okCommand:command;  
a,b,c,x1,x2,x:integer;  
d:integer;  
dr,x1r,x2r,ar,br,cr:string;  
drp,x1rp,x2rp,arp,brp,crp:integer;  
begin  
okCommand := createCommand('OK', CM_OK, 1);  
showForm;  
addCommand(okCommand);  
a := formAddTextField('Введите a', '', 20, TF_NUMERIC);  
b := formAddTextField('Введите b', '', 20, TF_NUMERIC);  
c := formAddTextField('Введите c', '', 20, TF_NUMERIC);  
while (getClickedCommand <> okCommand) do  
delay(100);  
ar:=FormGetText(a);  
br:=FormGetText(b);  
cr:=FormGetText©;  
arp:=StringToInteger(ar);  
brp:=StringToInteger(br);  
crp:=StringToInteger(cr);  
d:=(brp*brp)-(4*arp*crp);  
   
ShowTextBox('Дискрименант равен:',''+d,100,TF_NUMERIC);  
while (getClickedCommand <> okCommand) do  
delay(100);  
End.  

вот так будет работать
Форум игроделов » Записи участника » Nes [2]
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг