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

Автор: tori 8.12.2006 13:45

нужно написать программу вычисления суммы факториалов всех нечетных чисел от n1 до n2 с использованием функции для вычисления факториала
попробуйте, пожалуйста, у меня вот что получилось

var
function fact(x:integer):real;
var i:integer; p:real;
begin
p:=1
 for i:=1 to x do
p:=p*i;
fact:=p;
end;
var:n1,n2,i:integer,S:real;
begin
S:=0;
for i:=n1 to n2 do
S=S+fact(i);
writeln('S= ",S);
readln;
end.

Вот примерно так, а куда четность вставить, я не знаю.
Это вроде ODD от n1 и n2 должно быть.
Спасибо огромное заранее.

М

tori, ставь теги! Выбор из меню над окном ввода.. Lapp

Автор: Lapp 8.12.2006 14:09

Ох, наверное впервые встречаю столько ошибок в таком маленьком куске кода! Набирала с тетради и не запускала?
Вот исправленный вариант, сравни его со своим первоначальным посимвольно и найди свои ошибки..
Что касается нечетных элементов - обрати внимание на функцию Odd, которую я добавил (возвращает true в случае нечетного аргумента).

function fact(x:integer):real;
  var i:integer;
  p:real;
begin
  p:=1;
  for i:=1 to x do  p:=p*i;
  fact:=p;
end;

var
  n1,n2,i:integer;
  S:real;

begin
  S:=0;
  for i:=n1 to n2 do if Odd(i) then S:=S+fact(i);
  writeln('S= ',S);
  readln;
end.

Но это еще не все - тебе же надо как-то задавать эти n1 и n2..

Автор: tori 8.12.2006 14:22

спасибо большое, насчет тетради- угадал.а с вводом n1 и n2 я разберусь, это же просто Вот мне всегда было интересно:администриторам платят за их работу или это жест доброй воли?

Автор: Lapp 8.12.2006 14:33

Абсолютно и только доброй воли. Кроме того, отвечают же не только админы..
Вот ты написала вот это:

- и я рад
Успехов!