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

[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 мин.
Только я так и не понял - и зачем ты спрашиваешь текущую дату?..

[Farfalla]

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

Всё работает, большое спасибо, но сегодня мне сказали, что график по идее должен представлять собой три синусоиды в одной координатной плоскости. Возможно ли такое вообще? Трудно сообразить, как это сделать.

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

Текущая дата не нужна, вводила в самом начале, еще не разобравшись. Надо стереть)

[Lapp]

график по идее должен представлять собой три синусоиды в одной координатной плоскости.

А тут и есть три синусоиды в одной координатной плоскости...
Я не понял, что ты хотела сказать. Нарисуй карандашиком.

[Farfalla]

А тут и есть три синусоиды в одной координатной плоскости...
Я не понял, что ты хотела сказать. Нарисуй карандашиком.

График должен быть не в виде текста..(

[Lapp]

График должен быть не в виде текста..(

Ну, дружочек... Я спросил тебя - тебе нужен график в текстовой моде? Ты сказала - да..
Зачем, спрашивается, я тратил время?...