Главная
Регистрация
Вход
Зарегистрироватся
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 4 из 4
  • «
  • 1
  • 2
  • 3
  • 4
Модератор форума: ADMIN, Nextik  
Форум » MidletPascal » Основной » Консоль
Консоль
12121Дата: Четверг, 26.11.2009, 23:47 | Сообщение # 46
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Немного изменил функцию ввода. Теперь есть режим ввода только цифр. В нем для завершения ввода нужно нажимать * а не 0. Все другие клавиши работают как и раньше.
При переключении режима ввода (джойстик вверх или вниз) теперь отображается какой будет ввод
Прикрепления: vvod3.zip (8.2 Kb)
 
RumataДата: Пятница, 27.11.2009, 15:52 | Сообщение # 47
Программист
Группа: Проверенные
Сообщений: 325
Награды: 0
Репутация: « 43 »
Статус: Offline
Quote (12121)
опережающее объявление

Ты имеешь ввиду функцию forward? В хелпе ее нету, я в инете нашел
Однако, спасибо.
А где ты нашел эту информацию?

Сообщение отредактировал Rumata - Пятница, 27.11.2009, 15:55
 
RumataДата: Пятница, 27.11.2009, 15:59 | Сообщение # 48
Программист
Группа: Проверенные
Сообщений: 325
Награды: 0
Репутация: « 43 »
Статус: Offline
Блин, он чего-то не компилится...
 
12121Дата: Пятница, 27.11.2009, 17:27 | Сообщение # 49
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Нашел в справке к русскому МП.
Выложи может вместе разберемся.
 
RumataДата: Пятница, 27.11.2009, 19:30 | Сообщение # 50
Программист
Группа: Проверенные
Сообщений: 325
Награды: 0
Репутация: « 43 »
Статус: Offline
Да там выкладывать нечего: процедура, создающая 3 пункта меню;
Quote (12121)
Нашел в справке к русскому МП

Что там написано?
P.S.
Ошибка такая:
"only forward declaration supplied; the implementation is missing"
Я подозреваю, что эта штука применима только в создании либ. Ты ее использовал?

Сообщение отредактировал Rumata - Пятница, 27.11.2009, 20:16
 
RumataДата: Пятница, 27.11.2009, 20:20 | Сообщение # 51
Программист
Группа: Проверенные
Сообщений: 325
Награды: 0
Репутация: « 43 »
Статус: Offline
ТЬфу, я посмотрел русский хелп, там все понятно happy
 
12121Дата: Пятница, 27.11.2009, 20:25 | Сообщение # 52
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
да я только хотел тебе скопировать.
Как говориться если ничего не помогает тогда читаем инструкцию :-)

Сообщение отредактировал 12121 - Пятница, 27.11.2009, 20:37
 
RumataДата: Пятница, 27.11.2009, 21:33 | Сообщение # 53
Программист
Группа: Проверенные
Сообщений: 325
Награды: 0
Репутация: « 43 »
Статус: Offline
эээ... а в МР есть функция округления?
 
12121Дата: Пятница, 27.11.2009, 22:41 | Сообщение # 54
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Наверно нет. Можно так:
if frac(n)<0.5 then m:=trunc(n); else m:=trunc(n)+1;
function trunc(num: real):integer;
Возвращает целую часть данного числа.
function frac(num: real):real;
Возвращает дробную часть нецелого числа (Дробная часть числа 1.234 будет 0.234).
Ну или что то вроде этого.

Сообщение отредактировал 12121 - Воскресенье, 29.11.2009, 09:53
 
12121Дата: Суббота, 28.11.2009, 08:19 | Сообщение # 55
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Если надо округлить до 2 знаков после запятой то можно сделать так
сначало число умножить на 100
потом округлить как выше написал
потом перевести в real и разделить на 100
 
RumataДата: Суббота, 28.11.2009, 21:59 | Сообщение # 56
Программист
Группа: Проверенные
Сообщений: 325
Награды: 0
Репутация: « 43 »
Статус: Offline
Пасиб
 
RumataДата: Суббота, 28.11.2009, 22:18 | Сообщение # 57
Программист
Группа: Проверенные
Сообщений: 325
Награды: 0
Репутация: « 43 »
Статус: Offline
Как в form вывести текст?

Сообщение отредактировал Rumata - Понедельник, 30.11.2009, 17:58
 
Форум » MidletPascal » Основной » Консоль
  • Страница 4 из 4
  • «
  • 1
  • 2
  • 3
  • 4
Поиск: