Проверьте прогу.

Ребята проверьте пожалуйста правильность прожки:

Код:


uses crt;
  eps=1e-3;
an:real;
n,summa:inereg;
  begin
  Summa:=0;
  n:=1;
  while an>=eps do
    begin
      summa:=summa+an;
      writeln<'n=',n:2,'an=',an:8:5,'summa=',summa:8:5>;
      n:=n+1
      an:=an*exp<n*ln<n>>/exp<n*ln<n+1>>;
    end;
  readkey;
  END.

K4_ пишет:Ребята проверьте пожалуйста правильность прожки:
uses crt;
eps=1e-3;
an:real;
n,summa:inereg;
begin
Summa:=0;
n:=1;
while an>=eps do
begin
summa:=summa+an;
writeln<'n=',n:2,'an=',an:8:5,'summa=',summa:8:5>;
n:=n+1
an:=an*exp<n*ln<n>>/exp<n*ln<n+1>>;
end;
readkey;
END.

Желательно оформлять программы в постах в тегах

Код:

.

А по теме:
1) eps это константа.
2) что такое ln и exp. Насколько я понимаю, это функции и к тому же не встроенные, поэтому нужно их описать.
3) К тому же объясните, в чем баг этой программы. Работает она или нет?

K4_ пишет:Ребята проверьте пожалуйста правильность прожки:
uses crt;
eps=1e-3;
an:real;
n,summa:inereg;
begin
Summa:=0;
n:=1;
while an>=eps do
begin
summa:=summa+an;
writeln<'n=',n:2,'an=',an:8:5,'summa=',summa:8:5>;
n:=n+1
an:=an*exp<n*ln<n>>/exp<n*ln<n+1>>;
end;
readkey;
END.

Кстати еще exp<n*ln<n+1>> не может быть равном нулю, иначе будет ошибка деления на ноль.

У тебя выдает ошибку какую-нибудь или в чем вообще проблема?)

Aster пишет:У тебя выдает ошибку какую-нибудь или в чем вообще проблема?)

да, пишет что после an:real выдает ошибку error 90: "="expected

K4_ пишет:

Aster пишет:У тебя выдает ошибку какую-нибудь или в чем вообще проблема?)

да, пишет что после an:real выдает ошибку error 90: "="expected

Var перед переменными
Const перед eps
И тип не intereg, а integer

Попробуй.

Сейчас тему перенесу в вопросы и ответы.

Перенесено.

Попробуй.

Сейчас тему перенесу в вопросы и ответы.[/quote]
Хе) там вроде так, только теперь в другом ошибка( :
там где begin
summa:=summa+an; (error 26: Type mismatch)

K4_ пишет:Попробуй.

Сейчас тему перенесу в вопросы и ответы.

Хе) там вроде так, только теперь в другом ошибка( :
там где begin
summa:=summa+an; (error 26: Type mismatch)[/quote]

У тебя summa типа integer, а an типа real. Сделай summa тоже типа real.

Aster пишет:

K4_ пишет:Попробуй.

Сейчас тему перенесу в вопросы и ответы.

Хе) там вроде так, только теперь в другом ошибка( :
там где begin
summa:=summa+an; (error 26: Type mismatch)

У тебя summa типа integer, а an типа real. Сделай summa тоже типа real.[/quote]
Заработало) спасибище огромное)

Если все правильно работает, то хорошо.
Незачто)

Aster пишет:Если все правильно работает, то хорошо.
Незачто)

Блин, и если несложно последнюю прожку проверить, Правильно ли она сделана по методу Симпсона:
uses crt;
var x:real;
const n=60;
function f1(x:real):real;
begin
f1:=(SQR(x)-1)*exp(-2*x*ln(10))
end;

function f2(x:real):real;
begin
f2:=1/(x*exp(2*ln(ln(x))));
end;

funcion f3(x:real;
begin
f3:=exp(3*ln(sin(x/2+pi/4)/cos(x/2+pi/4)));
end;

procedure Simps(F:func;a,b:real;n:integer;var INT:real;
var
sum,h:real;
j:integer;
begin
if odd(n) then n:=n+1;
h:(b-a)/n;
sum:=0.5*(F(a)+F(b));
for j:=1 to N-1 do
sum:=sum+(j mod 2+1)*F(a+j*h);
INT:=2*h*sum/3;
end;
begin
WriteLn;
Read;
Simps(f1,f2,f3,n,I);
WriteLn('I=',I:8:3);
End.

Какая ошибка здесь?
Поставьте недостающие скобки, типы, равно и т.д.

Administrator пишет:Какая ошибка здесь?
Поставьте недостающие скобки, типы, равно и т.д.

uses crt;
type
func=function(x:real):real;
var x:real;
const n=60;
function f1(x:real):real;
begin
f1:=(SQR(x)-1)*exp(-2*x*ln(10))
end;

function f2(x:real):real;
begin
f2:=1/(x*exp(2*ln(ln(x))));
end;

funcion f3(x:real):real;
begin
f3:=exp(3*ln(sin(x/2+pi/4)/cos(x/2+pi/4)));
end;

procedure Simps(F:func;a,b:real;n:integer;var INT:real;
var
sum,h:real;
j:integer;
begin
if odd(n) then n:=n+1;
h:=(b-a)/n;
sum:=0.5*(F(a)+F(b));
for j:=1 to N-1 do
sum:=sum+(j mod 2+1)*F(a+j*h);
INT:=2*h*sum/3;
end;
begin
WriteLn;
Read;
Simps(f1,f2,f3,n,I);
WriteLn('I=',I:8:3);
End.
error 143: Invalid procedure or function reference.

K4_ пишет:

Aster пишет:Если все правильно работает, то хорошо.
Незачто)

Блин, и если несложно последнюю прожку проверить, Правильно ли она сделана по методу Симпсона:
uses crt;
var x:real;
const n=60;
function f1(x:real):real;
begin
f1:=(SQR(x)-1)*exp(-2*x*ln(10))
end;

function f2(x:real):real;
begin
f2:=1/(x*exp(2*ln(ln(x))));
end;

funcion f3(x:real;
begin
f3:=exp(3*ln(sin(x/2+pi/4)/cos(x/2+pi/4)));
end;

procedure Simps(F:func;a,b:real;n:integer;var INT:real;
var
sum,h:real;
j:integer;
begin
if odd(n) then n:=n+1;
h:(b-a)/n;
sum:=0.5*(F(a)+F(b));
for j:=1 to N-1 do
sum:=sum+(j mod 2+1)*F(a+j*h);
INT:=2*h*sum/3;
end;
begin
WriteLn;
Read;
Simps(f1,f2,f3,n,I);
WriteLn('I=',I:8:3);
End.

Вот смотри:
в основной проге ты ссылаешься на процедуру simps, в параметрах которой ты передаешь функции... Зачем? Тем более, что, если ты так делаешь, нужно вместо simps(f1, f2...)писать simps(f1(параметры), f2(параметры)...).
Но у тебя в процедуру передается функция f:func. Не передавай ее вообще. То есть, процедура будет выглядеть так:

Код:


procedure Simps(a,b:real;n:integer;var INT:real);
var sum,h:real;
    j:integer;
begin
  if odd(n) then n:=n+1;
  h:(b-a)/n;
  sum:=0.5*(F1(a)+ F1(b));
  for j:=1 to N-1 do
    sum:=sum+(j mod 2+1)*F1(a+j*h);
  INT:=2*h*sum/3;
end;


Вместо f(a), f(b), f(a+j*h) надо поставить f1(a), f1(b), f1(a+j*h), а f:func вообще убрать.

Ну и в основной программе в процедуру simps f не передавать.

Ошибка скорее всего в этом.

Aster пишет:
Вот смотри:
в основной проге ты ссылаешься на процедуру simps, в параметрах которой ты передаешь функции... Зачем? Тем более, что, если ты так делаешь, нужно вместо simps(f1, f2...)писать simps(f1(параметры), f2(параметры)...).
Но у тебя в процедуру передается функция f:func. Не передавай ее вообще. То есть, процедура будет выглядеть так:

Код:


procedure Simps(a,b:real;n:integer;var INT:real);
var sum,h:real;
    j:integer;
begin
  if odd(n) then n:=n+1;
  h:(b-a)/n;
  sum:=0.5*(F1(a)+ F1(b));
  for j:=1 to N-1 do
    sum:=sum+(j mod 2+1)*F1(a+j*h);
  INT:=2*h*sum/3;
end;


Вместо f(a), f(b), f(a+j*h) надо поставить f1(a), f1(b), f1(a+j*h), а f:func вообще убрать.

Ну и в основной программе в процедуру simps f не передавать.

Ошибка скорее всего в этом.

Так что эт получается так:
uses crt;
var x:real;
const n=60;
function f1(x:real):real;
begin
f1:=(SQR(x)-1)*exp(-2*x*ln(10))
end;

function f2(x:real):real;
begin
f2:=1/(x*exp(2*ln(ln(x))));
end;

funcion f3(x:real;
begin
f3:=exp(3*ln(sin(x/2+pi/4)/cos(x/2+pi/4)));
end;

procedure Simps(a,b:real;n:integer;var INT:real);
var sum,h:real;
j:integer;
begin
if odd(n) then n:=n+1;
h:(b-a)/n;
sum:=0.5*(F1(a)+ F1(b));
for j:=1 to N-1 do
sum:=sum+(j mod 2+1)*F1(a+j*h);
INT:=2*h*sum/3;
end;
только теперь выдает Error 10: Unexpected end of file.

Выложи плиз полный код проги.