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



         

Задачи, советы и ответы - часть 9


setfillstyletSolidFill, 4);

fillellipse(100, 50, 20, 8) ;

ellipse(100, 46, 190, 357, 20, 6);

line(107, 44, 110, 38);

circle (110, 38, 2); line(93, 44, 90, 38); circle(90, 38, 2);

{ Запомнили изображение и стерли его }

getimage(79, 36, 121, 59, Tarelka);

putimage(79, 36, Tarelka, X0Rput);

{ Построение звездного неба }

for i:=0 to 1000 do

putpixel(random(639), random(479), random(15}+1);

repeat { Бесконечный цикл до нажатия клавиши }

putimage(х,у,Tarelka,X0Rput);

{ вывод тарелки }

delay(6000);

{ задержка }

putimage(х,у,Tarelka,X0Rput);

{ стирание тарелки }

( Перемещение тарелки }

dx:=random(60);

if odd(dx) then dx:=- dx;

x:=x+dx;

if x>590 then x:=590;

if x<0 then x:=0;

dy:=random(40);

if odd(dy) then dy:=- dy;

y:=y+dy;

if y>450 then y:=450;

if y<0 then y:=0;

until KeyPressed;

closegraph;

end.

Задание 8_18. Биоритмы

Некоторые исследователи утверждают, что каждому человеку присущи три периодических процесса, сопровождающие его жизнь с момента рождения. Первый из них с периодом 23 дня соответствует физическому состоянию, второй с периодом 28 дней — интеллектуальному, третий с периодом 33 дня — эмоциональному. По каждому процессу можно построить график, отложив по горизонтальной оси время Т в днях с момента рождения, а по вертикальной оси — амплитуду синусоиды со своим периодом:

PH=SIN(2*PI*T/23)

IN=SIN(2*PI*T/28)

EM=SIN(2*PI*T/33)

Совместив все графики на общем рисунке, можно определить моменты общего подъема или спада потенциала человека. 0собого единства в трактовке "плохих" интервалов жизни человека нет. 0дни считают, что к "черным" дням относятся моменты, когда все три кривые одновременно или в достаточно узком интервале пересекают ось времени, другие склонны рассматривать в качестве дней депрессии моменты, когда все кривые имеют общую или близкую точку минимума.

Составим программу построения графика биоритмов на текущий месяц по заданной дате рождения. Для упрощения анализа високосных лет будем считать, что эта дата относится к XX столетию. Тогда можно ограничиться проверкой остатка от деления последующих лет на 4.




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