![]() |
Выручите пожалуйста!
Помоги кто чем может...: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 код:
Кстати, в MP есть готовая функция GetWeekDay. Тогда вся программа будет примерно такой: PHP код:
|
Ответ: Выручите пожалуйста!
огромное спасибо! :-D
|
Ответ: Выручите пожалуйста!
один вопрос - а зачем тебе это ? :) интересно вот стало...
|
Ответ: Выручите пожалуйста!
Пытаюсь самостоятельно разобраться в мидлете. Хочу набрать несколько програм написанных на турбо паскале и эти же программы на мидлет. Далее искать различие и делать попытки понять что где означает.
|
Ответ: Выручите пожалуйста!
Если хочешь самостоятельно разобраться, почему тогда просишь дать код?
|
Ответ: Выручите пожалуйста!
o-o ёлки! :4to: Я составляю программу в турбо и прошу её же на мидлет. Там смотрю что и где за что отвечает.
|
Ответ: Выручите пожалуйста!
И еще, тема создана не в той ветке, будь внимателен
|
Ответ: Выручите пожалуйста!
перенёс тему
|
Часовой пояс GMT +4, время: 00:45. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot