Задача на FOR, почти решена... просто проверить.

[Andrux]

Помогите разрешить проблему в задаче, вродь же все правильно написано но чет с бегинами, и проверьте пожалуйста правильность записи...
Заранее благодарю!

program anz336a;
uses crt;
var s,i,x:real;n:integer;
z:longint;
function fact(i:integer):longint;
    begin
    clrscr;
    writeln('Vvedite chemy ravno N');
    readln(n);
    writeln('Vvedite chemy raven X');
    readln(x);
              begin
              for i:=1 to n do
              fact:=z;
              s:=(2*i*z)+abs(x)/(sqr(i)*z)
              end;
    writeln('Otvet= ' , s:6:2);
    readln;
    end.

[Sazary]

Вот вроде

program anz336a;
uses crt;
var s,x:real;
n,i:integer;

function fact(i:integer):longint;
 var k : longint;
 begin
 k:=1;
 while i>1 do
  begin
  k := k * i;
  dec(i);
  end;
 fact := k;
 end;

begin
clrscr;
writeln('Vvedite chemy ravno N');
readln(n);
writeln('Vvedite chemy raven X');
readln(x);
s:=0;

for i:=1 to n do
 s:=s + (fact(2*i)+abs(x))/fact(sqr(i));

writeln('Otvet= ' , s:6:2);
readln;
end.

[Sm1Le]

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

program anz336a;
uses crt;
var s,i,x:real;n:integer;
z:longint;

function fact(i:integer):longint;
    begin
    clrscr;
    writeln('Vvedite chemy ravno N');
    readln(n);
    writeln('Vvedite chemy raven X');
    readln(x);
              begin
              for i:=1 to n do
              fact:=z;
              s:=(2*i*z)+abs(x)/(sqr(i)*z)
              end;
    writeln('Otvet= ' , s:6:2);
    readln;
    end.

Такое и подавно рабоать не будет почитайте про структуру программы, у программы должен быть главный begin-end. а у вас есть тока начало программы и описание функции, Вы ж ее даже негде не вызываете, Почему у вас тут не возник вопрос ? - Странно ...

program anz336a;
uses crt;
var s,i,x:real;n:integer;
z:longint;

function fact(i:integer):longint;
    begin
    clrscr;
    writeln('Vvedite chemy ravno N');
    readln(n);
    writeln('Vvedite chemy raven X');
    readln(x);
              begin
              for i:=1 to n do
              fact:=z;
              s:=(2*i*z)+abs(x)/(sqr(i)*z)
              end;
    writeln('Otvet= ' , s:6:2);
    readln;
    end;
begin
  fact(i);
end.

Я понимаю что все равно это не правильно и задачу уже решили, это для того что вы видели где у вас пропуск ... =)

[Andrux]

Sazary
если значения большие задача не решается, я решил немног поменять, посмотрите так правильно? ответ одинаков при 1 и 2...

program anz336a;
uses crt;
var s,i,x:real;n:integer;
z:longint;
function fact(i:integer):longint;
begin
    clrscr;
    writeln('Vvedite chemy ravno N');
    readln(n);
    writeln('Vvedite chemy raven X');
    readln(x);
              for i:=1 to n do
              begin
              fact:=z;
              s:=(2*i*z)+abs(x)/(sqr(i)*z)
              end;
    writeln('Otvet= ' , s:6:2);
    readln;
    end;
    begin
    z:=1;
    fact(0);
    end.

[Sazary]

Andrux Нет, это не верно.. Я понимаю, что вы как-то упростили исходное уравнение. Хорошо бы посмотреть как именно.
Я что-то попробовал - получился не самый удачный вариант.. Голова не соображает сегодня..
Кстати, а зачем вам функция, если вы используете ее как процедуру? )

[Andrux]

не, ее над прост на фор а процедура или функция это на выбор
мне ее тоже помогли решить)