|
Основной форум Сюда все проблемы связанные с программированием. |
17.04.2011, 19:01
|
#1
|
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
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: Помогите написать программу.
замени writeline на drawtext только не забудь про координаты строчки uses ctr; и clscr удали
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
17.04.2011, 20:44
|
#3
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: Помогите написать программу.
А зачем ты юзаешь readkey? замени на repeat repaint; until getkeyclicked=KE_KEY0;
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
23.04.2011, 17:13
|
#4
|
AnyKey`щик
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите написать программу.
Знающие знакомые обьяснили разницу между консолью windows и мобильником.Оказывается не так всё просто.Придётся учится писать формы.В любом случае im_zorg спасибо что пытался помоч.
|
(Offline)
|
|
23.04.2011, 18:19
|
#5
|
Разработчик
Регистрация: 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)
|
|
Сообщение было полезно следующим пользователям:
|
|
07.05.2011, 01:32
|
#6
|
AnyKey`щик
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите написать программу.
Приведствую уважаемые проффессионалы. Столкнулся с новой проблемой.Подскажите,как значение переменной real перевести в string?Сколько не мучаюсь ничего не получается.Оператор RealToString вызывает ошибку при том что IntegerToString работает идеально.Перерыл кучи разных программ примеров,но убивает то что все они(даже калькулятор) работают с типом integer.
|
(Offline)
|
|
07.05.2011, 01:52
|
#7
|
Разработчик
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений (для 182 пользователей)
|
Ответ: Помогите написать программу.
s:=''+a
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
07.05.2011, 19:31
|
#8
|
AnyKey`щик
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите написать программу.
Я в шоке.AVL спасибо огромное.
|
(Offline)
|
|
07.05.2011, 21:40
|
#9
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: Помогите написать программу.
:D а в pascale так не катит(
|
(Offline)
|
|
07.05.2011, 22:51
|
#10
|
AnyKey`щик
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите написать программу.
im_zorg Ну в обычном pascale я ещё не сталкивался с типом string.Здесь мне нужно было правильно организовать ввод/вывод,это было ново для меня.Ну сейчас вроде разобрался.
|
(Offline)
|
|
11.05.2011, 20:47
|
#11
|
AnyKey`щик
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите написать программу.
Приведствую уважаемые проффессионалы.Опять вопрос назрел.Увы,нормальных мануалов нигде нет а знающие люди только здесь.
Вопрос такой,
d:integer;
dr:real
.....................
dr:=stringtoreal(formgettext(d),10);
Что означает 10 в конце и как это число влияет на точность математических вычислений?
|
(Offline)
|
|
11.05.2011, 20:51
|
#12
|
Нуждающийся
Регистрация: 26.12.2008
Сообщений: 57
Написано 22 полезных сообщений (для 28 пользователей)
|
Ответ: Помогите написать программу.
10 - значит будет переведено в десятичную систему счисления.
Короче пиши 10 и не ломай голову сейчас.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
12.05.2011, 14:27
|
#13
|
AnyKey`щик
Регистрация: 14.04.2011
Сообщений: 7
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помогите написать программу.
12121 Спасибо.Теперь понятно почему получались такие странные результаты если поставить не 10 а что-то другое.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 17:07.
|