Вычислить значение выражения

@povtiasd051 · Регистрация: 06.12.2010

Студворк — интернет-сервис помощи студентам

Желательно с Польным кодом

$https://www.cyberforum.ru/cgi-bin/latex.cgi?C = arccos({a}^{2}+{b}^{2}+{y}^{2})$

@Puporev · 06.09.2014, 19:19

Pascal

var a,b,y,cs,c:real;
begin
writeln('Введите a,b,y');
readln(a,b,y);
cs:=a*a+b*b+y*y;
if cs>1 then
 begin
  writeln('Косинус=',cs:0:2);
  writeln('Косинус угла не может быть больше 1');
  readln;
  exit
 end;
if cs=0 then c:=pi/2
else c:=arctan(sqrt(1-cs*cs)/cs);
writeln('C=',c:0:3);
readln
end.

@povtiasd051 2 / 2 / 0 Регистрация: 06.12.2010 Сообщений: 135
		1
	Вычислить значение выражения 06.09.2014, 19:09. Показов 964. Ответов 1 Метки нет (Все метки) Желательно с Польным кодом $https://www.cyberforum.ru/cgi-bin/latex.cgi?C = arccos({a}^{2}+{b}^{2}+{y}^{2})$ 0

Опции темы

Вычислить значение выражения

Решение