Практика программирования (Бейсик, Си, Паскаль)



         

Задачи, советы и ответы - часть 14


begin

gd:=0; wwod:

writeln('Биоритмы на текущий месяц');

writeln('Введите день, месяц (числом) и год своего рождения');

readln(d,m,у);

GetDate(y1,m1,d1,k); {опрос текущей даты}

if (m<l)or(m>12)or(d<l)or(d>days[m])or(y<1900)or(y>yl) then begin

write('Вы ошиблись. Нажмите Enter и повторите ввод');

readln;

goto wwod;

end;

if yl mod 4=0 then days[2]:=29; {поправка на високосный год}

а:=days[ml];

{число дней в текущем месяце}

{Интервал от дня рождения до начала текущего месяца}

dd:=offset(I,ml,yl)-offset(d,m,у);

initgraph(gd,gm,'');

outtextxy(0,0,'красный - физическое состояние');

outtextxy(0,20,'синий - эмоциональное состояние');

outtextxy(0, 40,'зеленый - интеллектуальное состояние');

axis;

{Построение и разметка координатных осей}

grafik(23,dd mod 23,RED);

grafik(28,dd mod 28,GREEN);

grafik(33,dd mod 33,BLUE);

readln;

closegraph;

end.




Содержание  Назад