|
29.04.2009, 20:20
|
#1
|
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
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Помогите переделать!!!
В MP нету readln и writeln. Это через формы всё надо делать.
|
(Offline)
|
|
04.05.2009, 19:17
|
#3
|
AnyKey`щик
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите переделать!!!
как ввести, я розобралвя, а от вивести... не знаю(((((
|
(Offline)
|
|
04.05.2009, 21:38
|
#4
|
Модератор
Регистрация: 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
|
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
|
AnyKey`щик
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите переделать!!!
твоим способом после введения цифр ничего не выводит, просто белий екран(((
|
(Offline)
|
|
05.05.2009, 01:21
|
#7
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помогите переделать!!!
Странно, как именно сделан вывод? Напиши код.
|
(Offline)
|
|
05.05.2009, 02:51
|
#8
|
AnyKey`щик
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите переделать!!!
уже всё хорошо,работает, спасибо за помощь
|
(Offline)
|
|
07.05.2009, 17:21
|
#9
|
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
|
Знающий
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений (для 17 пользователей)
|
Ответ: Помогите переделать!!!
FormGetText(a):string; - возвращает текст из формы....
__________________
И суслики вам не помогут
|
(Offline)
|
|
07.05.2009, 18:11
|
#11
|
AnyKey`щик
Регистрация: 29.04.2009
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите переделать!!!
всё, спасибо, я уже разобрался. Ура работает!!!!!!!!!!!!!!!!
Последний раз редактировалось SerJi, 07.05.2009 в 18:49.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 17:57.
|