Реферат: Курсовая работа программирование на Pascal

TI=2*3.1416/33.1638; {Период интеллектуальной активности}

INTERVAL=30; {Интервал прогноза}

var

min,max,x:real;

i:integer;

BEGIN {FindMaxMin}

max:=sin(days*TF)+sin(days*TE)+sin(days*TI);

min:=max;

dmin:=days;

dmax:=days;

for i:=0 to INTERVAL do

begin

x:=sin((days+i)*TF)+sin((days+i)*TE)+sin((days+i)*TI);

if x>max then

begin

max:=x;

dmax:=days+i;

end;

if x<min then

begin

min:=x;

dmin:=days+i;

end;

end;

END; {FindMaxMin}

{--------------------------------------------}

PROCEDURE WriteDates(dmin,dmax,days:integer);

{Опреджеление и вывод дат критических дней.

Вывод дополнительной информации о количестве