Расчет биоритмов, Требуется помощь Опции

[Farfalla]

Составить программу отражения биоритмов человека на заданный интервал времени. Известно, что физическое, эмоциональное и умственное состояния изменяются со дня рождения циклически с периодом 23, 28, 33 дня соответственно. Состояние для Д-го дня со дня рождения определятся по формуле: y=sin(x1),
где x1=(Д/Р - [Д/Р])*2П при P=23,28,33.

[Д/Р] - целая часть от деления

C биоритмами ранее сталкивать не приходилось. Пыталась разобраться, но всё тщетно.

[Lapp]

Все изменения касаются только процедуры ParseGraph, которую я полностью привожу

procedure parseGraph(d0, m0, y0, dmin, dmax: integer);
const
 pPhisics   = 2*3.1416/23.6884;
 pEmo       = 2*3.1416/28.4261;
 pIntellect = 2*3.1416/33.1638;
var
 dall, dcurr, i, j, gw: integer;
 rP, rE, rI: real;
 s: string;
begin
 dall := dmax - dmin;
 if dall < 0 then WriteLn('Ошибка: Начальная точка привышает конечную.');
 gw:=WindMax and $FF -12;
 for i := 0 to dall do begin
  dcurr := dmin + i;
  rP := sin(dcurr * pPhisics);
  rE := sin(dcurr * pEmo);
  rI := sin(dcurr * pIntellect);
  {write(' [');
  write(rP);
  write(' | ');
  write(rE);
  write(' | ');
  write(rI);
  write('] ');
  WriteLn;}
  s:='';
  for j:=1 to gw do s:=s+' ';
  s[Trunc((rP+1)/2*gw+1)]:='p';
  s[Trunc((rE+1)/2*gw+1)]:='e';
  s[Trunc((rI+1)/2*gw+1)]:='i';
  WriteLn(dd1:2,dm1:3,dy1:5,' :',s,':');
  Inc(dd1);
  if dd1>Size_of_Month[dm1] then begin
    dd1:=1;
    Inc(dm1);
    if dm1>12 then begin
      dm1:=1;
      Inc(dy1)
    end
  end;
 end
end;

А вот как примерно выглядит график (минимум слева, максимум справа):

15 11 2007 :             p    i                                           e    :
16 11 2007 :       p     i                                           e         :
17 11 2007 :  p     i                                           e              :
18 11 2007 :p   i                                        e                     :
19 11 2007 :p i                                   e                            :
20 11 2007 :i p                            e                                   :
21 11 2007 :i      p               e                                           :
22 11 2007 :i            p   e                                                 :
23 11 2007 :  i        e         p                                             :
24 11 2007 :     ie                      p                                     :
25 11 2007 :  e      i                            p                            :
26 11 2007 :e             i                                p                   :
27 11 2007 :e                   i                                 p            :
28 11 2007 : e                        i                                 p      :
29 11 2007 :   e                            i                               p  :
30 11 2007 :        e                             i                           p:
 1 12 2007 :             e                              i                     p:
 2 12 2007 :                   e                              i            p   :
 3 12 2007 :                          e                            i  p        :
 4 12 2007 :                                  e                 p       i      :
 5 12 2007 :                                         e  p                  i   :
 6 12 2007 :                                   p            e                i :
 7 12 2007 :                          p                           e           i:
 8 12 2007 :                  p                                        e      i:
 9 12 2007 :           p                                                   e i :
10 12 2007 :     p                                                         i  e:
11 12 2007 : p                                                         i      e:
12 12 2007 :p                                                      i          e:
13 12 2007 :p                                                 i            e   :
14 12 2007 :   p                                        i              e       :
15 12 2007 :        p                             i               e            :
16 12 2007 :               p               i                e                  :
17 12 2007 :                       p i               e                         :
18 12 2007 :                   i            p e                                :
19 12 2007 :              i            e             p                         :
20 12 2007 :         i         e                             p                 :
21 12 2007 :     i       e                                          p          :
22 12 2007 :  i     e                                                     p    :
23 12 2007 :i  e                                                             p :
24 12 2007 :ie                                                                p:
25 12 2007 :i                                                                p :
26 12 2007 :e i                                                           p    :
27 12 2007 :  e  i                                                   p         :
28 12 2007 :      e i                                         p                :
29 12 2007 :           e i                           p                         :
30 12 2007 :                e  i             p                                 :
31 12 2007 :                       epi                                         :
 1  1 2008 :                p              i                                   :

Это то, что ты хотела?
Разберись со всем, чтоб не было неожиданностей при сдаче

Добавлено через 3 мин.
Только я так и не понял - и зачем ты спрашиваешь текущую дату?..