|
Основной форум Сюда все проблемы связанные с программированием. |
28.10.2009, 17:02
|
#1
|
AnyKey`щик
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Выручите пожалуйста!
Помоги кто чем может...
Я как-то еще умею пользоваться паскалем, но полный ноль в мидлете . составил прогу для вычисления дня недели. Пожалуйста напишите как это выглядит в рабочем варианте midletPascal. Заранее спасибо.
function year(n: integer): longint;
var
v: integer;
begin
v := 0;
while (n > 3) do
begin
n := n - 4;
inc(v);
end;
year := v;
end;
function dney(d, m, y: integer): integer;
var
n: integer;
begin
n := (d - 1) + 30 * (m - 1) + (m div 2);
if (m > 2) then
begin
n := n - 1;
end;
if (m > 8 ) then
begin
n := n + (m mod 2);
end;
dney := n;
end;
var
d, m, i, y, s: longint;
w, f: longint;
a: boolean;
begin
write('Введите дату: ');
readln(d, m, y);
s := year(y);
w := s * 366 + (y - s) * 365;
f := dney(d, m, y) + w - 2;
repeat
dec(f, 7);
until (f <= 7);
w := f;
if (w = 1) then begin writeln('Понедельник.'); end;
if (w = 2) then begin writeln('Вторник.'); end;
if (w = 3) then begin writeln('Среда.'); end;
if (w = 4) then begin writeln('Четверг.'); end;
if (w = 5) then begin writeln('Пятница.'); end;
if (w = 6) then begin writeln('Суббота.'); end;
if (w = 7) then begin writeln('Воскресение.'); end;
readln;
end.
|
(Offline)
|
|
28.10.2009, 18:15
|
#2
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Ответ: Выручите пожалуйста!
|
(Offline)
|
|
28.10.2009, 19:23
|
#3
|
AnyKey`щик
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Выручите пожалуйста!
конечно большое спасибо, но меня не так поняли.
я хочу составить программу для телефона на вычисления дня недели а по данной ссылке тоже самое но на другом языке. измените команды в моей программе, что бы я смог скопировать, вставить в мидлет и создать java приложение.
|
(Offline)
|
|
28.10.2009, 21:31
|
#4
|
Бывалый
Регистрация: 29.03.2007
Сообщений: 662
Написано 199 полезных сообщений (для 448 пользователей)
|
Ответ: Выручите пожалуйста!
А губозакаточную машинку тебе не дать?
PS Не тот п/ф
|
(Offline)
|
|
28.10.2009, 21:59
|
#5
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Выручите пожалуйста!
Дельфовский код из статьи скомпилится с незначительными изменениями:
function WhatDay(Year: Integer; Month: Integer; Day: Integer):integer; var a,y,m: integer; begin a := (14 - Month) div 12; y := year - a; m := month + 12 * a - 2; WhatDay := (7000 + (day + y + y div 4 - y div 100 + y div 400 + (31 * m) div 12)) mod 7; end;
UPD
Кстати, в MP есть готовая функция GetWeekDay.
Тогда вся программа будет примерно такой:
program day; var ok:command; DTF:Integer; DT, WD:Integer; begin ShowForm; DTF:=FormAddDateField('EnterDate', DF_DATE); ok:=CreateCommand('OK',cm_ok,1); AddCommand(ok); repeat Delay(200); Until GetClickedCommand = ok; DT:=FormGetDate(DTF); WD:=GetWeekDay(DT); DTF:=FormAddString(IntegerToString(WD)); repeat Delay(200); Until GetClickedCommand = ok; end.
|
(Offline)
|
|
29.10.2009, 00:18
|
#6
|
AnyKey`щик
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Выручите пожалуйста!
огромное спасибо!
|
(Offline)
|
|
30.10.2009, 16:35
|
#7
|
Модератор
Регистрация: 11.07.2007
Сообщений: 2,910
Написано 686 полезных сообщений (для 1,694 пользователей)
|
Ответ: Выручите пожалуйста!
один вопрос - а зачем тебе это ? интересно вот стало...
|
(Offline)
|
|
01.11.2009, 20:04
|
#8
|
AnyKey`щик
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Выручите пожалуйста!
Пытаюсь самостоятельно разобраться в мидлете. Хочу набрать несколько програм написанных на турбо паскале и эти же программы на мидлет. Далее искать различие и делать попытки понять что где означает.
Последний раз редактировалось magnat0008, 01.11.2009 в 20:43.
Причина: неверный ответ
|
(Offline)
|
|
01.11.2009, 22:24
|
#9
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Ответ: Выручите пожалуйста!
Если хочешь самостоятельно разобраться, почему тогда просишь дать код?
|
(Offline)
|
|
02.11.2009, 00:18
|
#10
|
AnyKey`щик
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Выручите пожалуйста!
o-o ёлки! Я составляю программу в турбо и прошу её же на мидлет. Там смотрю что и где за что отвечает.
|
(Offline)
|
|
02.11.2009, 12:02
|
#11
|
Мастер
Регистрация: 27.01.2008
Адрес: Россия, СКФО, ЧР, Грозный
Сообщений: 1,144
Написано 578 полезных сообщений (для 2,207 пользователей)
|
Ответ: Выручите пожалуйста!
И еще, тема создана не в той ветке, будь внимателен
|
(Offline)
|
|
02.11.2009, 13:29
|
#12
|
|
Ответ: Выручите пожалуйста!
перенёс тему
|
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 08:02.
|