forum.boolean.name - Помогите переделать!!!

forum.boolean.name (http://forum.boolean.name/index.php)

- MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)

- - Помогите переделать!!! (http://forum.boolean.name/showthread.php?t=8229)

SerJi

29.04.2009 20:20

Помогите переделать!!!

Я недавно сел за MIDletPascal.
Я для начала хочу попробовать переделать програмку с обичного Турбо, но у меня чёто не получаетса. :dontknow:
Напишите ,плиз, пример от такой програмки:
var a,b,c,d:integer;
begin
readln(a,b,c,d);
if a=1 then
if b=3 then
if c=0 then
if d=7 then writeln(№3);
end.
За любые ответы буду благодарен.

odd	03.05.2009 19:53

Ответ: Помогите переделать!!!

В MP нету readln и writeln. Это через формы всё надо делать.

SerJi

04.05.2009 19:17

Ответ: Помогите переделать!!!

как ввести, я розобралвя, а от вивести... не знаю(((((

ViNT	04.05.2009 21:38

Ответ: Помогите переделать!!!

Выводить можно с помощью DrawText(s, x, y), где
s - выводимая строка;
x,y - координаты левого верхнего угла текста.
После отрисовки всего, что нало вывести подряд (без действий пользователя) вызывается Repaint.

И еще

Код:

if a=1 then

if b=3 then 

if c=0 then

if d=7 then

гораздо лучше писать так:

Код:

if a=1 and b=3 and c=0 and d=7 then

таким образом, получится примерно так:

Код:

var a,b,c,d:integer;

begin 

//ввод a, b, c, d

showcanvas;

if a=1 and b=3 and c=0 and d=7 then

DrawText('№1',0,10);

//другие условия

repaint;

end.

SerJi

05.05.2009 00:25

Ответ: Помогите переделать!!!

Цитата:

Сообщение от ViNT (Сообщение 104341)

Код:

var a,b,c,d:integer;

begin 

//ввод a, b, c, d

showcanvas;

if a=1 and b=3 and c=0 and d=7 then

DrawText('№1',0,10);

//другие условия

repaint;

end.

спасибо за ответ, я так и думал что надо перейти до холста, гдето в хеле
прочитал.

SerJi

05.05.2009 00:35

Ответ: Помогите переделать!!!

твоим способом после введения цифр ничего не выводит, просто белий екран(((

ViNT	05.05.2009 01:21

Ответ: Помогите переделать!!!

Странно, как именно сделан вывод? Напиши код.

SerJi

05.05.2009 02:51

Ответ: Помогите переделать!!!

уже всё хорошо,работает, спасибо за помощь

SerJi

07.05.2009 17:21

Ответ: Помогите переделать!!!

опять чтото не так вот код посмотрыте пожалуйста

Код:

var

a,b,c,d: integer;

cmdNext:command;

begin

ShowForm; 

a:= FormAddTextField('введіть відповідь 1 ', '', 6, TF_ANY ); 

b:= FormAddTextField('введіть відповідь 2 ', '', 6, TF_ANY ); 

c:= FormAddTextField('введіть відповідь 3 ', '', 6, TF_ANY ); 

d:= FormAddTextField('введіть відповідь 4 ', '', 6, TF_ANY ); 

cmdNext:= CreateCommand('Go!', CM_OK, 1);

AddCommand(cmdNext); 

repeat until GetClickedCommand = cmdNext;

clearform;

showcanvas;

if a=1 then

if b=1 then 

if c=1 then

if d=1 then

DrawText('№1',0,22);

if a=0 then

if b=0 then 

if c=0 then

if d=0 then

DrawText('№2',0,40);

repaint;

delay(2000);

end.

demon112

07.05.2009 17:59

Ответ: Помогите переделать!!!

FormGetText(a):string; - возвращает текст из формы....

SerJi

07.05.2009 18:11

Ответ: Помогите переделать!!!

всё, спасибо, я уже разобрался. Ура работает!!!!!!!!!!!!!!!!

Часовой пояс GMT +4, время: 19:33.