Begin. IfM <= 0 then. IfM>=7 then

Begin

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

Readln (a);

b: =sin(a)/cos(a+2);

M: = a+b;

IfM < = 0 then

Begin

y: =sin(a+b);

N: =1;

end

else

IfM> =7 then

Begin

y: =a-b;

N: =3;

end

else

Begin

y: =a+b*sqrt(sqr(a)+sqr(b));

N: =2;

end;

Writeln (' y =', y: 7: 3, ' M=', M: 7: 3, ' a=', a: 7: 2,

' b=', b: 7: 3);

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

end.

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

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

y = 20. 913 M= 19. 087 a= 20. 00 b= -0. 913

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

y = -0. 116 M= 0. 150 a= 1. 00 b= -0. 850

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

y = -0. 557 M=-46. 533 a= -45. 00 b= -1. 533

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

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

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

y = 2, 630 M= 2, 564 a=2, 52 b= 0. 044

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