Вечный календарь - Turbo Pascal

  1. Тема: Оператор варианта CASE.Цель: Составление, редактирования и отладка программ с оператором выбора CASE.В11. «Вечный календарь». Даны натуральные числа a, b, c, которые обозначают число, месяц и год. Определить день недели, на который недели падает указанная дата. При решение этой задачи можно считать, что исследуемая дата лежит в диапазоне от 1582 до 4902 гг. В этом случае номер дня недели (воскресенье имеет номер 0, понедельник-1, суббота-номер 6) равен остатку от деления на 7 от значения выражения. (2,6m-0,2)+d+y+(y/4)+(c/4)-2c, где d-номер дня в месяц (1,2,…); m-номер месяц в году, нумерация начинается с марта (март имеет номер 1, апрель номер 2,…, декабарь-номер 10, январь и февраль считаются месяцами с номерами 11 и 12 предыдущего года). y-две младшие цифры года (00,…,99); c-две старшие цифры года (15,…,49); (x)-означает целую часть числа x.


textual

Код:

uses crt;
var d,m,z,c,y,a,day: integer;
    e: integer;
    den: string;
 
begin
writeln('Введите дату в формате dd mm yyyy, где d - день, m - месяц, y - год');
writeln('Пример: 19 01 2012');
read(d,m,z);
case m of
01: begin m:=11; z:=z-1; end;
02: begin m:=12; z:=z-1; end;
03: m:=1;
04: m:=2;
05: m:=3;
06: m:=4;
07: m:=5;
08: m:=6;
09: m:=7;
10: m:=8;
11: m:=9;
12: m:=10;
end;
c:=z div 100;
y:=z mod 100;
day:=abs(trunc(2.6*m-0.2)+d+y div 4+y+c div 4-2*c);
a:= day mod 7;
case a of
1: den:='Понедельник';
2: den:='Вторник';
3: den:='Среда';
4: den:='Четверг';
5: den:='Пятница';
6: den:='Суббота';
0: den:='Воскресенье';
end;
writeln('День недели в указанной дате - ',den);
end.


Похожие ответы
  1. на экране отображается календарь, на котором написаны дни месяца. Красная рамка движется по всем числам с интервалом в 1.1 сек;

  1. 26. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. 1984 – год зеленой крысы – был началом очередного цикла. Напишите программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю.

  1. Вывести на дисплей календарь на текущий год

  1. Составить программу, которая печатает на экране «календарь» на один месяц, если известно, сколько дней в месяце и с какого дня недели начинается месяц. Выходные дни при выводе выделять красным цветом (не учитывая праздники).

  1. Точно помню, что эту прогу делали ещё в школе вместе с классом, но это было давно. Восточный календарь принят 60-летним циклом состоящий из 5-ти 12-летних подциклов. Подциклы обозначаются цветами: Зелёный-красный-жёлтый-белый-чёрный. Внутри каждого подцикла годы носили названия животных: Крыса-бык-тигр-кролик-дракон-змея-лошадь-баран-обезъяна-петух-собака-свинья. Написать программу, которая запрашивала номер года и печатала его название по восточному календарю. Для проверки: 2012 - Чёрный Дракон 1966 - Красная Лошадь 1984 - Зелёная Крыса При этом известны следующие формулы: c=((year+6) mod10+2)( div 2 k=(year+8) mod 12+1 c-цвет k-номер животного Сказали, что можно сделать через CASE

  1. составить программу определяющий год по китайскому календарю. обезьяны, петух, собака, кабан, крыса, бык, тигр, кролик, дракон, змея, лошадь, овца.

  1. Составить программу, которая печатает на экране «календарь» на один месяц, если известно, сколько дней в месяце и с какого дня недели начинается месяц. Выходные дни при выводе выделять красным цветом (не учитывая праздники). Помогите, очень прошу ;(

  1. Ребят, учусь в КПИ и по теории алгоритмов уже заработал первую неатестацию, помогите плз написать 2 програмки и обьясните как их делать: 1)Программа. В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству: текст совпадает с начальным отрезком ряда 0123456789 (например, 0, 01, 012); 2)В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год—год зеленой крысы - был началом очередного цикла). Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскоыу календарю. Задачи из учебника "Пильщиков", буду очень признателен за помощ.

  1. Собственно сделайте вот такой вывод при помощи массива.