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


         

Интервал от дня рождения до


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.

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