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

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

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

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

Ответ
 
Опции темы
Старый 28.10.2009, 17:02   #1
magnat0008
AnyKey`щик
 
Аватар для magnat0008
 
Регистрация: 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
Tadeus
Троллота
 
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений
(для 1,772 пользователей)
Ответ: Выручите пожалуйста!

http://ru.wikipedia.org/wiki/%D0%90%...B5%D0%BB%D0%B8
(Offline)
 
Ответить с цитированием
Старый 28.10.2009, 19:23   #3
magnat0008
AnyKey`щик
 
Аватар для magnat0008
 
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Выручите пожалуйста!

конечно большое спасибо, но меня не так поняли.
я хочу составить программу для телефона на вычисления дня недели а по данной ссылке тоже самое но на другом языке. измените команды в моей программе, что бы я смог скопировать, вставить в мидлет и создать java приложение.
(Offline)
 
Ответить с цитированием
Старый 28.10.2009, 21:31   #4
Android
Бывалый
 
Регистрация: 29.03.2007
Сообщений: 662
Написано 199 полезных сообщений
(для 448 пользователей)
Ответ: Выручите пожалуйста!

А губозакаточную машинку тебе не дать?
PS Не тот п/ф
(Offline)
 
Ответить с цитированием
Старый 28.10.2009, 21:59   #5
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Выручите пожалуйста!

Дельфовский код из статьи скомпилится с незначительными изменениями:
function WhatDay(YearIntegerMonthIntegerDayInteger):integer;
var 
a,y,minteger;
begin
 a 
:= (14 Monthdiv 12;
 
:= year a;
 
:= month 12 2;
 
WhatDay := (7000 + (day y div 4 y div 100 y div 400 + (31 mdiv 12)) mod 7;
end
UPD

Кстати, в MP есть готовая функция GetWeekDay.

Тогда вся программа будет примерно такой:

program day;
var
 
ok:command;
 
DTF:Integer;
 
DTWD: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
magnat0008
AnyKey`щик
 
Аватар для magnat0008
 
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений
(для 0 пользователей)
Хорошо Ответ: Выручите пожалуйста!

огромное спасибо!
(Offline)
 
Ответить с цитированием
Старый 30.10.2009, 16:35   #7
Данил
Модератор
 
Аватар для Данил
 
Регистрация: 11.07.2007
Сообщений: 2,910
Написано 686 полезных сообщений
(для 1,693 пользователей)
Ответ: Выручите пожалуйста!

один вопрос - а зачем тебе это ? интересно вот стало...
(Offline)
 
Ответить с цитированием
Старый 01.11.2009, 20:04   #8
magnat0008
AnyKey`щик
 
Аватар для magnat0008
 
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Выручите пожалуйста!

Пытаюсь самостоятельно разобраться в мидлете. Хочу набрать несколько програм написанных на турбо паскале и эти же программы на мидлет. Далее искать различие и делать попытки понять что где означает.

Последний раз редактировалось magnat0008, 01.11.2009 в 20:43. Причина: неверный ответ
(Offline)
 
Ответить с цитированием
Старый 01.11.2009, 22:24   #9
Tadeus
Троллота
 
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений
(для 1,772 пользователей)
Ответ: Выручите пожалуйста!

Если хочешь самостоятельно разобраться, почему тогда просишь дать код?
(Offline)
 
Ответить с цитированием
Старый 02.11.2009, 00:18   #10
magnat0008
AnyKey`щик
 
Аватар для magnat0008
 
Регистрация: 26.10.2009
Сообщений: 6
Написано 0 полезных сообщений
(для 0 пользователей)
Смех Ответ: Выручите пожалуйста!

o-o ёлки! Я составляю программу в турбо и прошу её же на мидлет. Там смотрю что и где за что отвечает.
(Offline)
 
Ответить с цитированием
Старый 02.11.2009, 12:02   #11
Hurrit
Мастер
 
Аватар для Hurrit
 
Регистрация: 27.01.2008
Адрес: Россия, СКФО, ЧР, Грозный
Сообщений: 1,138
Написано 576 полезных сообщений
(для 2,202 пользователей)
Ответ: Выручите пожалуйста!

И еще, тема создана не в той ветке, будь внимателен
(Offline)
 
Ответить с цитированием
Старый 02.11.2009, 13:29   #12
jimon
 
Сообщений: n/a
Ответ: Выручите пожалуйста!

перенёс тему
 
Ответить с цитированием
Ответ


Опции темы

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите пожалуйста! Sashka007 3D-программирование 36 12.06.2012 20:53
Братья и сестры выручайте!!!! WaReZ_MEN Болтовня 9 04.12.2008 15:30
Выручайте!!! playU 3D-программирование 14 19.09.2008 03:24
Плиз,выручайте!!! Зимняя Юмор 2 07.03.2007 23:04
Народ, выручайте! Raiter Болтовня 9 03.01.2007 15:23


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


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