Begin. Ifx=y then. if(x<y) then

Begin

Writeln ('Введите значение w:');

Readln (w);

Writeln ('Введите значение t:');

Readln (t);

x:=abs(cos(sqr(w)*t))+1;

y1:= sin(sqr(w)*t);

Ifx=y then

Begin

y:=(x-y1)/(x+(y1/(x+y1)));

N:=1;

end

else

if(x<y) then

Begin

y:=sqrt(1-sqr(x/y1));

N:=3;

end

else

Begin

y:=sin(x)/(2+cos(y1));

N:=2;

end;

Writeln (' y =', y:7:3,' t=',t:7:3,' w=',w:7:2,

' x=',x:7:3, ' y1=',y1:7:3);

Writeln ('Номер формулы=',N:1);

end.

6. Результаты расчёта

Контрольные расчёты:

y = Infinity t= 1.00 w= 3.14 x= 0 y1= 0

Номер формулы=1

y = 0.745 t= 2.00 w= 1.00 x= 0.654 y1=0.913

Номер формулы=2

y = 0.336 t= 3.00 w= 2.00 x= 1.843 y1= 0.536

Номер формулы=3

Результаты контрольных расчётов совпали с результатами тестового расчета, что подтверждает правильность работы программы.

Требуемый расчет:

y = 0.376 t= 1.3 w= 20.7 x= 1.356 y1= 0.934

Номер формулы=3