arccos и arcsin

@tara-ta-ta · Регистрация: 21.09.2019

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

как в паскале вычислить: 1) t= arccos2 x+ arcos( x-1/2) 2) f= (arccos(1-x)+ arccos 0.3x) * arccos √x

Типо я сделал вот так, не знаю правильно или нет

Pascal
1
2
3
4
function Arccos (x : real) : real;
begin
Arccos := Arctan(Sqrt(1-sqr(x))/x);
end;

@ZX Spectrum-128 · 14.01.2020, 09:30

Arccos, Arcsin в Pascal

@Puporev · 14.01.2020, 09:32

В АВС.net эти функции установлены по умолчанию, напишите

Pascal
1
2
writeln(arcsin(0.5));
writeln(arccos(0.5))

@tara-ta-ta · 14.01.2020, 09:34 **[ТС]**

задание такое, именно через процедуры/функции сделать(

@Puporev · 14.01.2020, 10:10

Pascal
1
2
3
4
5
6
function asin (x : real) : real;
begin
if x=1 then asin:=pi/2
else if x=-1 then asin:=-pi/2
else asin:=arctan(x/sqrt(1-sqr(x)));
end;

Pascal
1
2
3
4
5
6
function acos(x:real):real;
begin
if x=0 then acos:=pi/2
else if (x>0)and(x<=1) then acos:=arctan(sqrt(1-x*x)/x)
else if(x>=-1)and(x<0) then acos:=pi+arctan(sqrt(1-x*x)/x);
end;

@tara-ta-ta · 14.01.2020, 10:14 **[ТС]**

у меня такие примеры:

t= arccos2 x+ arcos( x-1/2)
f= (arccos(1-x)+ arccos 0.3x) * arccos √x

@ZX Spectrum-128 · 14.01.2020, 10:17

Pascal
1
2
  t := arccos(2 * x) + arcos(x - 1 / 2); 
  f := (arccos(1 - x) + arccos(0.3 * x) * arccos(sqrt(x )));

@Puporev · 14.01.2020, 10:25

Сообщение от tara-ta-ta

у меня такие примеры:

И зачем Вам arcsin?

Добавлено через 3 минуты

Сообщение от ZX Spectrum-128

arcos(x - 1 / 2);

Это вызывает подозрение о неправильности написания, почему не x-0.5? А может быть arcos((x - 1)/2)?

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	14.01.2020, 09:30
	Arccos, Arcsin в Pascal 1

@tara-ta-ta 12 / 8 / 5 Регистрация: 21.09.2019 Сообщений: 202
	14.01.2020, 09:34 [ТС]
	задание такое, именно через процедуры/функции сделать( 0

@tara-ta-ta 12 / 8 / 5 Регистрация: 21.09.2019 Сообщений: 202
	14.01.2020, 10:14 [ТС]
	у меня такие примеры: t= arccos2 x+ arcos( x-1/2) f= (arccos(1-x)+ arccos 0.3x) * arccos √x 0

arccos и arcsin

Решение