Регистрация
tatianIWANOWNA
12.03.2021 23:44
Информатика
Есть ответ 👍

Впрограмі excel графічно знайти рішення рівняння з точністю до 0.01 tg(0.58x+0.1)=x^2

191
417
Посмотреть ответы 1

Ответы на вопрос:

коля827
коля827
4,6(68 оценок)

var

a, b, x, s, c, t: real;

begin

writeln('введите a');

readln(a);

writeln('введите b');

readln(b);

writeln('введите x');

readln(x);

if x< =a then

begin

s: =sin(x);

writeln ('синус равен ', s);

end

else

writeln ('синус вычислить нельзя, так как равенство не равно ', x, '< =', a);

if (a< x) and (x< b) then

begin

c: =cos(x);

writeln ('косинус равен ', c);

end

else

writeln ('косинус вычислить нельзя, так как равенство не равно ', a, '< ', x, '< ', b);

if x> =b then

begin

t: =tan(x);

writeln ('косинус равен ', t);

end

else

writeln ('косинус вычислить нельзя, так как равенство не равно ', x, '> =', b);

end.

Популярно: Информатика