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

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

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

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 17.04.2011, 19:01   #1
gorro
AnyKey`щик
 
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Помогите написать программу.

Приведствую уважаемые проффессионалы. Я пока совсем новичёк в програмировании.Написал на Турбо Паскале простенькую програмку для подсчёта выработки.
uses crt;
var
d,t,k,m,p,y:real;
begin
clrscr;
write('длинна-');
readln(d);
write('толщина-');
readln(t);
write('кол-во-');
readln(k);
if (t>0)and(t<5) then
begin
m:=d*k*0.208/1000;
p:=d*k*0.17/1000;
y:=d*k*0.134/1000;
end;
if (t>=5)and(t<7.5) then
begin
m:=d*k*0.275/1000;
p:=d*k*0.215/1000;
y:=d*k*0.173/1000;
end;
if t>=7.5 then
begin
m:=d*k*0.552/1000;
p:=d*k*0.468/1000;
y:=d*k*0.386/1000;
end;
writeln('-------------');
writeln('маш-',m:6:2);
writeln('пом-',p:6:2);
writeln('укл-',y:6:2);
readkey
end.
Помогите написать этот алгоритм на Мидлет Паскале.Очень удобно будет иметь такое на мобильном.
(Offline)
 
Ответить с цитированием
Старый 17.04.2011, 20:42   #2
im_zorg
Знающий
 
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений
(для 61 пользователей)
Ответ: Помогите написать программу.

замени writeline на drawtext только не забудь про координаты строчки uses ctr; и clscr удали
__________________
Я вернулсо в мидлет паскаль О_о уже написал новый проект Сайт моей компании: http://mpcompany.ucoz.com/ Сайт проекта "Путник" : http://putnik-project.ru/
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
gorro (23.04.2011)
Старый 17.04.2011, 20:44   #3
im_zorg
Знающий
 
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений
(для 61 пользователей)
Ответ: Помогите написать программу.

А зачем ты юзаешь readkey? замени на repeat repaint; until getkeyclicked=KE_KEY0;
__________________
Я вернулсо в мидлет паскаль О_о уже написал новый проект Сайт моей компании: http://mpcompany.ucoz.com/ Сайт проекта "Путник" : http://putnik-project.ru/
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
gorro (23.04.2011)
Старый 23.04.2011, 17:13   #4
gorro
AnyKey`щик
 
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите написать программу.

Знающие знакомые обьяснили разницу между консолью windows и мобильником.Оказывается не так всё просто.Придётся учится писать формы.В любом случае im_zorg спасибо что пытался помоч.
(Offline)
 
Ответить с цитированием
Старый 23.04.2011, 18:19   #5
AVL
Разработчик
 
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений
(для 182 пользователей)
Ответ: Помогите написать программу.

Для ввода/вывода на экран можно юзать такие функции:
function read(s,d:string;k:integer):integer;
var
 i:integer;
 ok,clicked:command;
begin
 showtextbox(s,d,k,TF_NUMERIC);
 ok:=createcommand('OK',CM_OK,1);
 addcommand(ok);
 repeat
  clicked:=getclickedcommand;
  delay(10);
 until clicked<>emptycommand;
 input:=stringtointeger(gettextboxstring);
 showcanvas;
end;
procedure write(t:string);
begin
 setcolor(255,255,255);
 fillrect(0,0,getwidth,getheight);
 setcolor(0,0,0);
 drawtext(t,0,0);
 repaint;
end;
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
gorro (07.05.2011)
Старый 07.05.2011, 01:32   #6
gorro
AnyKey`щик
 
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите написать программу.

Приведствую уважаемые проффессионалы. Столкнулся с новой проблемой.Подскажите,как значение переменной real перевести в string?Сколько не мучаюсь ничего не получается.Оператор RealToString вызывает ошибку при том что IntegerToString работает идеально.Перерыл кучи разных программ примеров,но убивает то что все они(даже калькулятор) работают с типом integer.
(Offline)
 
Ответить с цитированием
Старый 07.05.2011, 01:52   #7
AVL
Разработчик
 
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений
(для 182 пользователей)
Ответ: Помогите написать программу.

s:=''+a
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
gorro (07.05.2011)
Старый 07.05.2011, 19:31   #8
gorro
AnyKey`щик
 
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите написать программу.

Я в шоке.AVL спасибо огромное.
(Offline)
 
Ответить с цитированием
Старый 07.05.2011, 21:40   #9
im_zorg
Знающий
 
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений
(для 61 пользователей)
Ответ: Помогите написать программу.

:D а в pascale так не катит(
__________________
Я вернулсо в мидлет паскаль О_о уже написал новый проект Сайт моей компании: http://mpcompany.ucoz.com/ Сайт проекта "Путник" : http://putnik-project.ru/
(Offline)
 
Ответить с цитированием
Старый 07.05.2011, 22:51   #10
gorro
AnyKey`щик
 
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите написать программу.

im_zorg Ну в обычном pascale я ещё не сталкивался с типом string.Здесь мне нужно было правильно организовать ввод/вывод,это было ново для меня.Ну сейчас вроде разобрался.
(Offline)
 
Ответить с цитированием
Старый 11.05.2011, 20:47   #11
gorro
AnyKey`щик
 
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите написать программу.

Приведствую уважаемые проффессионалы.Опять вопрос назрел.Увы,нормальных мануалов нигде нет а знающие люди только здесь.
Вопрос такой,
d:integer;
dr:real
.....................
dr:=stringtoreal(formgettext(d),10);
Что означает 10 в конце и как это число влияет на точность математических вычислений?
(Offline)
 
Ответить с цитированием
Старый 11.05.2011, 20:51   #12
12121
Нуждающийся
 
Регистрация: 26.12.2008
Сообщений: 57
Написано 22 полезных сообщений
(для 28 пользователей)
Ответ: Помогите написать программу.

10 - значит будет переведено в десятичную систему счисления.
Короче пиши 10 и не ломай голову сейчас.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
gorro (12.05.2011)
Старый 12.05.2011, 14:27   #13
gorro
AnyKey`щик
 
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите написать программу.

12121 Спасибо.Теперь понятно почему получались такие странные результаты если поставить не 10 а что-то другое.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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