Линейные и ветвящиеся алгоритмы - вычислить выражение при заданных значениях

@MyEyesStillCry · Регистрация: 19.06.2010

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

Помогите пожалуйста с задачами:

1)Вычислить выражение f(w)=arcsin((w*((p*q)/(p+q+1))))
при заданных значениях
p=lg wq;
q=1+1/(w^2);
w=0,28

и если не сложно, то с блок схемой

@newyork7776 · 28.01.2014, 17:49

Сообщение от MyEyesStillCry

p=lg wq;

log(w)*q или log(w*q)?

@MyEyesStillCry · 28.01.2014, 17:57 **[ТС]**

log(w*q)

@newyork7776 · 28.01.2014, 17:57

Pascal

program MyEyesStillCry;
{$APPTYPE CONSOLE}
uses SysUtils;
var answer,p,w,q:Double;
begin
  w:=0.28;
  q:=(1+(1/(Sqr(w))));
  p:=(Ln(w*q));
  answer:=((w*((p*q)/(p+q+1))));
  answer:=Arctan(answer/Sqrt(1-sqr(answer)));
  Writeln('((',w:0:2,'*((',p:0:2,'*',q:0:2,')/)',p:0:2,'+',q:0:2,'+1)))) = ',answer:0:5);
readln;
end.

@MyEyesStillCry · 28.01.2014, 20:08 **[ТС]**

Pascal

program MyEyesStillCry;
{$APPTYPE CONSOLE}
var answer,p,w,q:Double;
begin
  w:=0.28;
  q:=(1+(1/(Sqr(w))));
  p:=(Ln(w*q));
  answer:=((w*((p*q)/(p+q+1))));
  answer:=Arctan(answer/Sqrt(1-sqr(answer)));
  Writeln('((',w:0:2,'*((',p:0:2,'*',q:0:2,')/)',p:0:2,'+',q:0:2,'+1)))) = ',answer:0:5);
readln(answer);
end.

@newyork7776 · 29.01.2014, 11:20

MyEyesStillCry, а зачем мой код заново смс?
2-3 строка нужна для компилятора Delphi (я там написал прогу)
12 строка = задержка (посмотреть на результат)

@MyEyesStillCry 0 / 0 / 0 Регистрация: 19.06.2010 Сообщений: 17
		1
	Линейные и ветвящиеся алгоритмы - вычислить выражение при заданных значениях 28.01.2014, 16:21. Показов 1389. Ответов 5 Метки нет (Все метки) Помогите пожалуйста с задачами: 1)Вычислить выражение f(w)=arcsin((w((pq)/(p+q+1)))) при заданных значениях p=lg wq; q=1+1/(w^2); w=0,28 и если не сложно, то с блок схемой 0

@newyork7776 351 / 344 / 279 Регистрация: 21.05.2013 Сообщений: 1,312
	28.01.2014, 17:49	2
	Сообщение от MyEyesStillCry p=lg wq; log(w)q или log(wq)? 0

@MyEyesStillCry 0 / 0 / 0 Регистрация: 19.06.2010 Сообщений: 17
	28.01.2014, 17:57 [ТС]	3
	log(w*q) 0

@newyork7776 351 / 344 / 279 Регистрация: 21.05.2013 Сообщений: 1,312
	29.01.2014, 11:20	6
	MyEyesStillCry, а зачем мой код заново смс? 2-3 строка нужна для компилятора Delphi (я там написал прогу) 12 строка = задержка (посмотреть на результат) 0

Опции темы

Линейные и ветвящиеся алгоритмы - вычислить выражение при заданных значениях

Решение