Задачка, Если не угадал с разделом, подкорректируйте, плз Опции

[iMagus]

Имелась в виду абсолютно любая вещественная степень.

странно почему не считает...да и ладно..её наверно сама препод тока знает как делать

Скинь сюда свой текст программы.

[Олири]

program z1;
var
x,m,i:integer;
ci,ci1,sum,pn1:real;
begin
writeln ('vvedite x');
read(x);
writeln ('vvedite m');
read (m);
pn1:=exp(m*ln(1+x));
begin
i:=1;
ci:=1;
sum:=1;
while i<=m do

begin
ci1:=ci*(m-i+1.0)/(i+1.0-1.0);
sum :=sum*ci1*exp(x*ln(i));
ci:=ci1;
i:=i+1;
end;

pn1:=sum;
writeln (pn1:3:3);
writeln (sum:3:3);
end;
end.

[iMagus]

program z1;
var
x,m,i:integer;
ci,ci1,sum,pn1:real;
begin
writeln ('vvedite x');
read(x);
writeln ('vvedite m');
read (m);
pn1:=exp(m*ln(1+x));
begin
i:=1;
ci:=1;
sum:=1;
while i<=m do

begin
ci1:=ci*(m-i+1.0)/(i+1.0-1.0);
sum :=sum + ci1*exp(i*ln(x));
ci:=ci1;
i:=i+1;
end;

pn1:=sum;
writeln (pn1:3:3);
writeln (sum:3:3);
end;
end.

Я там выше где-то вместо i*ln(x) писал m*ln(x) - тоже бага. Ты вроде ее заметила, но вписала вместо нее свою.

ЗЫ. Жуть

Сообщение отредактировал iMagus - Dec 30 2010, 21:02

[Олири]

вот где ты выделил я описалась просто в проге тоже +......

[iMagus]

в проге тоже +

Там не только в плюсе дело. Тоже описалась? Тогда (не помню, как в Паскале приведение типов делается) попробуй написать вместо i * ln(x): real(i)*ln(x) и в строке выше вместо i и m - real(i) и real(m)

[Олири]

Там не только в плюсе дело. Тоже описалась? Тогда (не помню, как в Паскале приведение типов делается) попробуй написать вместо i * ln(x): real(i)*ln(x) и в строке выше вместо i и m - real(i) и real(m)

в проге тоже +...а real(i) тож не вариант..

[iMagus]

в проге тоже +

я писал не про плюс, а про i и x

[Олири]

бесполезно..

[iMagus]

Я только что не поленился, нашел где скачать Паскаль (фри паскаль 2.4.0), скачал его, установил, и выполнил с помощью него программу из поста номер 43 (твоя программа с моей правкой). Ни единого символа в ней не менял. Все работает.

Сообщение отредактировал iMagus - Jan 1 2011, 12:25

[Олири]

program z1;
var
x,m,i:integer;
ci,ci1,sum,pn1:real;

begin
writeln ('vvedite x');
read(x);
writeln ('vvedite m');
read (m);

pn1:=exp(m*ln(1+x));

if x=0 then
begin
pn1:=1;
end;


i:=1;
ci:=1;
sum:=1;
while i<=m do

begin
ci1:=ci*(m-i+1.0)/(i+1.0-1.0);
sum :=sum*ci1*exp(i*ln(x));
ci:=ci1;
i:=i+1;
end;

pn1:=sum;
writeln (pn1:3:3);
writeln (sum:3:3);

end.

я ошибку нашла в exp(x*ln(i)) и ещё когда всё исправила он ошибку выдает типа логарифм не может быть равен 0.... когда я ввожу x=0...что с этим делать? и у меня turbo pascal 7.0//

[iMagus]

я ошибку нашла в exp(x*ln(i)) и ещё когда всё исправила он ошибку выдает типа логарифм не может быть равен 0.... когда я ввожу x=0...что с этим делать? и у меня turbo pascal 7.0//

Я про это уже писал выше (см. посты 24 и 28). Тебе поможет проверка:
если x=0, то результат = 1

[Олири]

перед sum поставить if чтоли?

[Олири]

Ну вы тут и развели...) пока я тут службу служил)

[Олири]

я ввела if перед sum типа что sum =1 ошибку выдает при x=0...помоги пожалста)))последний штрих остался...)))!

[iMagus]

Код

program z1;

function calc_binom_directly( x: real; m: integer ): real;
begin
  calc_binom_directly := exp( m * ln(1+x) );
end;

function calc_binom_series( x: real; m: integer ): real;
var
  i: integer;
  ci, ci1, sum: real;
begin
  if x = 0 then
  begin
    calc_binom_series := 1;
    exit;
  end;
  i := 1;
  ci := 1;
  sum := 1;
  while i <= m do
  begin
    ci1 := ci * (m-i+1.0)/i;
    sum := sum + ci1 * exp(i*ln(x));
    ci := ci1;
    i := i + 1
  end;
  calc_binom_series := sum;

end;

var
  x: real;
  m: integer;
begin
  writeln('Vvedite');
  write('x: ');
  read( x );
  write('m: ');
  read( m );

  writeln('Rezultat');
  writeln( '    (1+x)^m: ', calc_binom_directly( x, m ):3:3 );
  writeln( 'sum(ci*x^i): ', calc_binom_series( x, m ):3:3 );

end.

Закрыто =\