Связь с администрацией сайта:       

demo

Среди толпы я одинок

Вычисление ближайшего дня студентов(Татьянин день)

Программа для вычисления ближайшего дня студентов на языке Pascal(Паскаль)

 

const 
kd: array[1..11] of byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30);//количество дней 
//в месяцах 1..11, не високосного года, 12 месяц не нужен, так как не используется 
//в накоплении дней, он последний 
var 
d, m: integer; 
i, k, k2: integer; 
 
begin 
repeat//повторяем ввод номера месяца 
write('Месяц: ');readln(m); 
until m in [1..12];//пока не ведем правильно 
repeat// повторяем ввод номера дня 
k := 0;//пусть ввели правильно 
write('День: ');readln(d); 
if(d < 1) or (d > 31) then k := 1;//если меньше 1 или больше 31, неправильно, к=1 
if(m in [4, 6, 9, 11]) and (d > 30) then k := 1;//если в месяце 30 дней, а ввели 31, неправильно к=1 
if(m = 2) and (d > 28) then k := 1;//если февраль, а ввели больше 28 
until k = 0; //если все ввели правильно, конец цикла 
if m = 1 then k := d //если первый месяц, до прошло d дней 
else//иначе 
begin 
k := d;//прошло d дней 
for i := 1 to m - 1 do 
k := k + kd[i];//+ количество дней в месяцах до этого 
end; 
if k < 25 then 
write('До Дня студентов (Татьянин день осталось)= ', 25 - k) 
else write('До Дня студентов (Татьянин день осталось)= ', 365 + 25 - k); 
end.
 
Rate this item
(0 votes)
Login to post comments