Главное меню

Вход на сайт

Кто на сайте?

Сейчас 138 гостей и ни одного зарегистрированного пользователя на сайте

Написать программу на языке Pascal для реализации разветвляющегося алгоритма

Image
 
где  x=ln a2, y=1/arctg b
a,b – известные величины.

Решение

var x,y,z,a,b:real;
begin
writeln('');
write('Vvedite a=');
readln(a);
write('Vvedite b=');
readln(b);
x:=ln(sqr(a));
y:=1/arctan(b);

if x-y>0 then
z:=1/(x*y)
else
z:=sqr(x)*sqr(y);

writeln('z=',z:4:2);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте