Использование арифметических выражений и функций!

@Terran89167 · Регистрация: 30.09.2013

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

Где-то ошибаюсь всегда не могу решить.

@Samhain · 30.09.2013, 16:47

Terran89167,

Pascal

var a,c,x,f,y,p:real;
begin
  write('a = ');readln(a);
  write('c = ');readln(c);
  write('x = ');readln(x);
  write('f = ');readln(f);
  p:=exp(ln(sin(f))*5);
  y:=sqr(sqr(cos(x-a*a)))/sqrt(a-c)*exp(ln(a)*2*x)*sqrt(abs(sin(p)/cos(p)));
  writeln('y = ',y:0:4);
  readln
end.

@Ded_Vasilij · 30.09.2013, 16:47

Terran89167, а где код-то? В чем Вы ошибаетесь?

@Terran89167 · 30.09.2013, 20:44 **[ТС]**

Неверно что-то не так.

@Terran89167 0 / 0 / 1 Регистрация: 30.09.2013 Сообщений: 78
		1
	Использование арифметических выражений и функций! 30.09.2013, 16:10. Показов 777. Ответов 3 Метки нет (Все метки) Где-то ошибаюсь всегда не могу решить. Миниатюры 0

@Ded_Vasilij 233 / 215 / 63 Регистрация: 01.09.2012 Сообщений: 2,103
	30.09.2013, 16:47	3
	Terran89167, а где код-то? В чем Вы ошибаетесь? 0

@Terran89167 0 / 0 / 1 Регистрация: 30.09.2013 Сообщений: 78
	30.09.2013, 20:44 [ТС]	4
	Неверно что-то не так. 0