День тижня у pascal

Визначити день тижня за датою Turbo Pascal Відповідь на запитання 658453.... Мета завдання: Вводимо дату та програма показує день тижня. var a,b...

[Pascal ABC] ➣ Завдання: За введеною датою визначити день тижня ➣ Вихідний код програми ➣ Допомога.

[Turbo Pascal] ➣ Завдання: Визначити день тижня за вказаною датою ➣ Вихідний код програми ➣ Допомога.

день тижня = залишок від розподілу X на 7,. де X = abs(trunc(2.6*m-0.2)+d+y/4+y+c/4-2*c);

Код: Program Day_of_week; uses CRT; procedure GetDay (var d, m, y: integer); var correct: byte; begin correct: = 1;

Вважати його значення і привести до формату int можна так: m := StrToInt(Edit1.Text); 2. Виведення даних: у режимі командного рядка: writeln('...

Ось тут є модуль з функцією, що обчислює день тижня за датою: http://pascal.sources.ru/datetime/calenfun.htm...

День тижня за номером - Pascal ABC · cyberforum.ru - 2013-02-26 21:05:09 - Similar - Report/Block. Допоможіть будь ласка вирішити, а то я щось не розумію.

//PascalABC.NET v3.3 1633. begin. var days: array [1.7] of string:=('Понеділок', 'Вівторок', 'Середа', 'Четвер', 'П'ятниця', 'Субота',...

write('введіть день тижня:'); readln(day); case day of 1: write('понеділок'); 2: write('вівторок'); 3: write('середовище');

Вихід із програми - введення числа 0. program even_odd; var a: integer; begin a:= 10; while a > 0 do begin write ('Введіть день тижня:');

Функція Pascal TimeToString надає поточний час у формі з роздільниками (:). У наступному прикладі... Отримує день тижня.

var i, day: byte; begin write('Введіть дату (від 1 до 20) = '); readln (i); writeln ('Виберіть день тижня для введеної дати:');

Ви не кажете, чому питаєте про обчислення номера тижня в коді RAP... Application Programming (RAP)мова RAP ідентична об'єкту Pascal.

Визначити номер дня тижня для K-го дня, якщо відомо, що цього року 1 січня було днем ​​тижня з номером N. Рішення Pascal.

еlse Write (' треба попрацювати'); 32 Приклад. Словесна постановка задачі: Визначити наступну дату дня тижня, якщо задано поточну дату та день тижня.

Для роботи з часом і датою на Паскалі необхідний новий для вас модуль... Комп'ютер повинен визначити день тижня і надрукувати його у вигляді...

D:=((K+N-2) mod 7)+1; Writeln('День тижня:', D);.

Допоможіть будь ласка вирішити задачу: За введеною датою (дд мм рік) визначити день тижня. Особливо буду вдячний за прогу на Паскалі.

Function DayOfWeek(Date: TDateTime): Integer; Повертає день тижня певної дати як ціле число між 1 і 7. Неділя - перший день тижня, і субота...