вчера написавДобавлено (07.11.12, 21:17)
---------------------------------------------
program bioritmi;
uses crt,graph;
type s = integer;
var m,g : integer ;
ab,ac,bc : real;
dney,g1,g3,g2,day,d : real;
emo,fiz,intel : real;
{знаходження количества проживших дней}
{======================================================}
procedure dney_mes;
begin
case m of
1 : day := 1;
2 : day := 32;
3 : if g/4 = int(g/4) then day := 61
else
day := 60;
4 : if g/4 = int(g/4) then day := 92
else
day := 91;
5 : if g/4 = int(g/4) then day := 122
else
day := 121;
6 : if g/4 = int(g/4) then day := 153
else
day := 152;
7 : if g/4 = int(g/4) then day := 183
else
day := 182;
8 : if g/4 = int(g/4) then day := 214
else
day := 213;
9 : if g/4 = int(g/4) then day := 245
else
day := 254;
10 : if g/4 = int(g/4) then day := 275
else
day := 274;
11 : if g/4 = int(g/4) then day := 306
else
day := 305;
12 : if g/4 = int(g/4) then day := 336
else
day := 335;
end;
end;
{======================================================}
{}
{}
{======================================================}
procedure dney_god ;
begin
g3 :=(g-1900);
g1 :=(g3)*365;
g2 :=g3/4;
g2 :=round(int(g2));
dney := g1+g2 ;
end;
{======================================================}
Добавлено (07.11.12, 21:18)
---------------------------------------------
{пояснение био циклов}
{======================================================}
procedure emo_2_14;
begin
writeln('емоции и настроение - позитивна фаза');
writeln('(найболее подходящее время для общения,контактов,');
writeln('прохождения тестов или испитов)');
end;
{======================================================}
{======================================================}
procedure emo_1_i_15;
begin
writeln('емоции и настроение - критические дни');
writeln('(емоциональная нестойкость , склонность к снижению реакций');
writeln('унилого состояния и сор)');
end;
{======================================================}
{======================================================}
procedure emo_16_28;
begin
writeln('емоции и настроение - негативная фаза');
writeln('(нестойкость ,повишеная напряжонность');
writeln('часто плохое настроение)');
end;
{======================================================}
{======================================================}
procedure fiz_2_11;
begin
writeln('физическое состояние - положительная фаза');
writeln('(максимальная енергия , сила , виносливость ,найболишая ');
writeln('виносливость к ефстримальним факторам )');
end;
{======================================================}
{======================================================}
procedure fiz_1_i_12;
begin
writeln('физическое состояние - критические дни');
writeln('(нестабилиность физического состояния , есть вероятность травм ');
writeln('аварий , обострений хронических заболеваний, головная боль)');
end;
{======================================================}
{======================================================}
procedure fiz_13_23;
begin
writeln('физическое состояние - негативная фаза');
writeln('(понижений физический тонус , бистра уставаймость ');
writeln('некое снижение опорности организма к заболеваниям)');
end;
{======================================================}
procedure intel_2_16;
begin
writeln('интелектуальное состояние - положительная фаза');
writeln('(творчискые дни , более подхлдящее времи для ришения');
writeln('сложних вопросов , изобретений)');
end;
{======================================================}
{======================================================}
procedure intel_1_i_17;
begin
writeln('интелектуальное состояние - критические дни');
writeln('(склонность к снижению внимания , ошибочних виводов');
writeln('ухутшение запоминания)');
end;
{======================================================}
{======================================================}
procedure intel_18_33;
begin
writeln('интелектуальное состояние - негативная фаза');
writeln('(процес мишления вялий,преривестий');
end;
{======================================================}
begin
ClrScr;
dney :=0;
writeln('введите дату рождения в формате дд.мм.гггг записуя день месяц и год через пробел');
readln(d,m,g);
dney_mes;
dney_god;
ab := dney + day + d ;
writeln('введите текущую дату ,или дату на которую будут вестись розщоти');
readln(d,m,g);
dney_mes;
dney_god;
ac := dney + day + d ;
bc :=ac-ab;
writeln('ви прожили ',bc:9:0,' дней ');
readln;
{вичисление состояния человека}
emo := frac(bc/28)*28;
emo :=round(emo);
writeln('тривалисть останнього емоцийного циклу ',emo:9:0);
fiz := frac(bc/23)*23;
fiz :=round(fiz);
writeln('тривалисть останнього физичнего циклу ',fiz:9:0);
intel :=frac(bc/33)*33;
intel :=round(intel);
writeln('тривалисть останнього интелектуального циклу ',intel:9:0);
readln;
Добавлено (07.11.12, 21:18)
---------------------------------------------
writeln(1);
if emo = 2 then emo_2_14;
if emo = 3 then emo_2_14;
if emo = 4 then emo_2_14;
if emo = 5 then emo_2_14;
if emo = 6 then emo_2_14;
if emo = 7 then emo_2_14;
if emo = 8 then emo_2_14;
if emo = 9 then emo_2_14;
if emo = 10 then emo_2_14;
if emo = 11 then emo_2_14;
if emo = 12 then emo_2_14;
if emo = 13 then emo_2_14;
if emo = 14 then emo_2_14;
if emo = 15 then emo_1_i_15;
if emo = 1 then emo_1_i_15;
if emo >= 16 then emo_16_28;
writeln(2);
if fiz =2 then fiz_2_11;
if fiz =3 then fiz_2_11;
if fiz =4 then fiz_2_11;
if fiz =5 then fiz_2_11;
if fiz =6 then fiz_2_11;
if fiz =7 then fiz_2_11;
if fiz =8 then fiz_2_11;
if fiz =9 then fiz_2_11;
if fiz =10 then fiz_2_11;
if fiz =11 then fiz_2_11;
if fiz =1 then fiz_1_i_12;
if fiz =12 then fiz_1_i_12;
if fiz >= 13 then fiz_13_23;
writeln(3);
if intel = 2 then intel_2_16;
if intel = 3 then intel_2_16;
if intel = 4 then intel_2_16;
if intel = 5 then intel_2_16;
if intel = 6 then intel_2_16;
if intel = 7 then intel_2_16;
if intel = 8 then intel_2_16;
if intel = 9 then intel_2_16;
if intel = 10 then intel_2_16;
if intel = 11 then intel_2_16;
if intel = 12 then intel_2_16;
if intel = 13 then intel_2_16;
if intel = 14 then intel_2_16;
if intel = 15 then intel_2_16;
if intel = 1 then intel_1_i_17;
if intel = 17 then intel_1_i_17;
if intel >= 18 then intel_18_33;
readln;
end.
