forum.boolean.name - Выручите пожалуйста!

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Выручите пожалуйста! (http://forum.boolean.name/showthread.php?t=9660)

Выручите пожалуйста!

Помоги кто чем может...:SOS:
Я как-то еще умею пользоваться паскалем, но полный ноль в мидлете:dontknow: . составил прогу для вычисления дня недели. Пожалуйста напишите как это выглядит в рабочем варианте 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.

Ответ: Выручите пожалуйста!

конечно большое спасибо, но меня не так поняли.
я хочу составить программу для телефона на вычисления дня недели а по данной ссылке тоже самое но на другом языке. измените команды в моей программе, что бы я смог скопировать, вставить в мидлет и создать java приложение.

Ответ: Выручите пожалуйста!

А губозакаточную машинку тебе не дать?
PS Не тот п/ф

Ответ: Выручите пожалуйста!

Дельфовский код из статьи скомпилится с незначительными изменениями:

PHP код:


		
			
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.

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

PHP код:


		
			
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.

Ответ: Выручите пожалуйста!

огромное спасибо! :-D

Ответ: Выручите пожалуйста!

один вопрос - а зачем тебе это ? :) интересно вот стало...

Ответ: Выручите пожалуйста!

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

Ответ: Выручите пожалуйста!

Если хочешь самостоятельно разобраться, почему тогда просишь дать код?

Ответ: Выручите пожалуйста!

o-o ёлки! :4to: Я составляю программу в турбо и прошу её же на мидлет. Там смотрю что и где за что отвечает.

Ответ: Выручите пожалуйста!

И еще, тема создана не в той ветке, будь внимателен

Ответ: Выручите пожалуйста!

перенёс тему