Найти ошибку в программе. Написать процедуру или функцию, которая вычисляет значение выражения f(x).

@anurid · Регистрация: 20.04.2010

1. Найти область допустимых значений аргумента x.
2. Написать процедуру или функцию, которая вычисляет область допустимых
значений аргумента x.
3. Написать процедуру или функцию, которая вычисляет значение выражения
f(x) .
4. Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в
область допустимых значений. В случае попадания аргумента x в область допустимых
значений вычислить значение выражения f(x)и вывести его на экран монитора, в
случае непопадания аргумента x в область допустимых значений вывести об этом
информационное сообщение.

вот что я набрал но оно чето неправельно щитает:

Pascal

program lab5;
uses crt;
var x: real;
function ODZ(x1:real):integer;
begin
     if  (abs(0.1*x*x+x)-2>=0) and ((x-4)<>0) then ODZ:=1 else ODZ:=0;
end;
function func(x2:real):real;
var f1,f2: real;
begin
      f1:=arctan(sqrt(abs(0.1*x*x+x))-2)/sqrt(1-sqr(sqrt(abs(0.1*x*x+x))-2));
 
 f2:=x-4;
 func:=f1/f2;
 end;
 begin
 clrscr;
 writeln('Vvedite x');
 readln(x);
 if ODZ(x)=0 then writeln('x nevhodit v ODZ')
 else writeln('znachenia functia ravno ',func(x):2:3);
 readkey;
 end.

Задание[img]http://i.***********/i5/57/23/42357/laba5.jpg[/img]
Зарание спасибо

Добавлено через 19 минут
посмотрите ктонить и помогите найти ошыбку

@Dimedrol · 27.04.2010, 19:10

Я так сделал:

Pascal

var x,a,b: real;
begin
write('x= ');
readln(x);
b:=exp(ln(x) * 2);
a:=abs(0.1*b+x)-2;
a:=exp(ln(a) * 1/5);
a:=Arctan(a/Sqr(-a*a+1))/a;{верхняя часть уравнения}
a:=a/x-4;
write('f(',x,')= ',a);
end.

@anurid · 29.04.2010, 01:36 **[ТС]**

а можна ёще подругому ?

Добавлено через 19 часов 32 минуты
помогите пожайлуста

@Dimedrol · 29.04.2010, 18:45

А как именно Вам надо?
Мой пример работает...

@anurid 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 17
	29.04.2010, 01:36 [ТС]	3
	а можна ёще подругому ? Добавлено через 19 часов 32 минуты помогите пожайлуста 0

@Dimedrol 2378 / 941 / 129 Регистрация: 25.04.2009 Сообщений: 2,635 Записей в блоге: 4
	29.04.2010, 18:45	4
	А как именно Вам надо? Мой пример работает... 0

Опции темы