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

@sportikxxx · Регистрация: 24.10.2012

Даны действительные числа s, t. Используя функцию, получить значение f(t,0.3*s)+f(s,0.2*t), вывод результата оформить в виде процедуры, где f(a,b)

@Puporev · 18.11.2012, 10:48

Pascal

uses crt;
const e=0.0001;
function F(a,b:real):real;
begin
F:=abs(sin(sqrt(abs(a-0.8+ln(b*a))))/(a-b));
end;
procedure Res(s,t:real;var r:real);
begin
if (abs(0.3*s-t)<e)or(abs(0.2*t-s)<e)or(s*t<=0) then write('Значение функции не определено')
else
 begin
  r:=F(t,0.3*s)+F(s,0.2*t);
  write('Значение функции=',r:0:2);
 end;
end;
var s,t,r:real;
begin
clrscr;
writeln('Введите действительные числа s,t');
readln(s,t);
Res(s,t,r);
readln
end.

@sportikxxx 0 / 0 / 0 Регистрация: 24.10.2012 Сообщений: 9
		1
	Вычислить значение выражения 18.11.2012, 10:23. Показов 833. Ответов 1 Метки нет (Все метки) Даны действительные числа s, t. Используя функцию, получить значение f(t,0.3s)+f(s,0.2t), вывод результата оформить в виде процедуры, где f(a,b) Миниатюры 0

Опции темы

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

Решение