Версия для печати темы

Автор: LexaKazanskij 11.09.2007 0:10

Help me please!
Вычислить сумму или произведение для произвольного значения x. Выполнить данное задание, используя циклы: For, Repeat, While (pascal)

Я не силён, в задачах таких


Прикрепленные изображения

Автор: мисс_граффити 11.09.2007 2:50

какой милый цвет фона... это что - форма самовыражения?..
понимать тут нечего. тупое решение "в лоб":

const x=5;
var sum,el,ex: real;
i: byte;

begin
sum:=0;
ex:=exp(x);
el:=(ex+1)/2;
for i:=2 to 10 do
  begin
  el:=el*((ex+i)/(ex+i-1))/(i+1);
  sum:=sum+el;
  end;
writeln('using for. sum=',sum:5:2);

sum:=0;
el:=(ex+1)/2;
i:=2;
while i<=10 do
  begin
  el:=el*((ex+i)/(ex+i-1))/(i+1);
  sum:=sum+el;
  inc(i);
  end;
writeln('using while. sum=',sum:5:2);

sum:=0;
el:=(ex+1)/2;
i:=2;
repeat
  el:=el*((ex+i)/(ex+i-1))/(i+1);
  sum:=sum+el;
  inc(i);
until i>10;
writeln('using repeat. sum=',sum:5:2);

readln;
end.

Одна (а то и две) переменная может показаться лишней. Если не нравится - убери.

Автор: LexaKazanskij 12.09.2007 18:17

1. Такой цвет фона- не самовыражение, просто такой фон красивейше, чем белый.
2. Я и не понимаю.
3. А если решение было- бы умное , то куда?
4. Спасибо, за решение "в лоб"
5.

Автор: мисс_граффити 13.09.2007 2:34

1. Особенно читать приятно на таком фоне....
2. Ну и правильно
3. В обход
4. Пожалуйста...