цикл в цикле Delphi

[warma2d]

Здравствуйте!
Подскажите пожалуйста!
Правильно ли составлена/работает программа на Delphi (Pascal) ?




В задании мне кажется i лишняя - опечатка.

program rabota2;

{$APPTYPE CONSOLE}

uses
SysUtils,
math;

var
n,i:integer;
s,x,f:real;

begin
writeln('Enter X');
readln(x);

s:=0;
for n:=1 to 10 do
begin

f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
s:=s+power(n,n)*3*power(x,n)/f;
end;
writeln('s=',s:2:3);
readln;
end.

Заранее Благодарю!

[Stilet]

В целом правильно, но я бы лично попроще сделал...

[warma2d]

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

В целом правильно, но я бы лично попроще сделал...

Stilet спасибо за ответ.
прекрасно, что правильно)

любопытно, как можно сделать проще?

[Niro]

Ну наверное Stilet имел в виду что

s:=0;
for n:=1 to 10 do
begin

f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
s:=s+power(n,n)*3*power(x,n)/f;
end;

можно заменить на

s:=0; n:=1;
for n:=1 to 10 do
begin
f:=f*n;
s:=s+power(n,n)*3*power(x,n)/f;
end;

[Niro]

извиняюсь повтор

[warma2d]

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

извиняюсь повтор

ничего страшного Niro всё равно благодарю

вот этом примере не могу найти ошибку.


Помогите пожалуйста разобраться!

Скорее всего я что-то не понял, т.к. всегда идёт p=1.

program rabota421;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

var
  n,k,j,m:integer;
  p,s:real;


begin
  writeln('Enter j');
  readln(j);

   p:=1;
   n:=k*k;
   for m:=1 to n do
      begin
      s:=0;
      for k:=1 to j do
      s:=s+power((1-k/m),3)*(1/k);
      p:=p*s;
      end;

     writeln('p=',p:2:3);
     readln;
     end.

[warma2d]

Что-то в этом последнем примере я так и не могу разобраться.
По идее программа должна считать, но всегда получаю 1.
Никак не могу разобраться с ошибкой, если она есть
Помогите пожалуйста понять этот пример.
Заранее Благодарю!

[Stilet]

n:=k*k;

А k где инициализируется? Оно у тебя равно чепухе, в результате n равно чепухе. потому цикл и не начинается даже

[warma2d]

Stilet, Благодарю за ответ

То есть насколько я понял нужно k:=1, и всё ?

program rabota421;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

var
  n,k,j,m:integer;
  p,s:real;


begin
  writeln('Enter j');
  readln(j);

   p:=1;
   K:=1;
   n:=k*k;
   for m:=1 to n do
      begin
      s:=0;
      for k:=1 to j do
      s:=s+power((1-k/m),3)*(1/k);
      p:=p*s;
      end;

     writeln('p=',p:2:3);
     readln;
     end.

[Stilet]

и всё

"Доктор у меня рак моска, легких, желудка, сахарный диабет и СПИД, что мне делать?..."
"Ну, голубчик, химиотерапия, таблеточки..."
"Доктор, то есть мне принять аспирин и все?"
"Все, голубчик, все..."