Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 29.04.2009, 20:20   #1
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Вопрос Помогите переделать!!!

Я недавно сел за MIDletPascal.
Я для начала хочу попробовать переделать програмку с обичного Турбо, но у меня чёто не получаетса.
Напишите ,плиз, пример от такой програмки:
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.
За любые ответы буду благодарен.
(Offline)
 
Ответить с цитированием
Старый 03.05.2009, 19:53   #2
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: Помогите переделать!!!

В MP нету readln и writeln. Это через формы всё надо делать.
(Offline)
 
Ответить с цитированием
Старый 04.05.2009, 19:17   #3
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите переделать!!!

как ввести, я розобралвя, а от вивести... не знаю(((((
(Offline)
 
Ответить с цитированием
Старый 04.05.2009, 21:38   #4
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Помогите переделать!!!

Выводить можно с помощью 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.
(Offline)
 
Ответить с цитированием
Старый 05.05.2009, 00:25   #5
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите переделать!!!

Сообщение от ViNT Посмотреть сообщение
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 в 03:01.
(Offline)
 
Ответить с цитированием
Старый 05.05.2009, 00:35   #6
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите переделать!!!

твоим способом после введения цифр ничего не выводит, просто белий екран(((
(Offline)
 
Ответить с цитированием
Старый 05.05.2009, 01:21   #7
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Помогите переделать!!!

Странно, как именно сделан вывод? Напиши код.
(Offline)
 
Ответить с цитированием
Старый 05.05.2009, 02:51   #8
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите переделать!!!

уже всё хорошо,работает, спасибо за помощь
(Offline)
 
Ответить с цитированием
Старый 07.05.2009, 17:21   #9
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите переделать!!!

опять чтото не так вот код посмотрыте пожалуйста
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.
(Offline)
 
Ответить с цитированием
Старый 07.05.2009, 17:59   #10
demon112
Знающий
 
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений
(для 17 пользователей)
Ответ: Помогите переделать!!!

FormGetText(a):string; - возвращает текст из формы....
__________________
И суслики вам не помогут
(Offline)
 
Ответить с цитированием
Старый 07.05.2009, 18:11   #11
SerJi
AnyKey`щик
 
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите переделать!!!

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

Последний раз редактировалось SerJi, 07.05.2009 в 18:49.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com