Форум «Всё о Паскале» > Сумма факториалов

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Алена

18.02.2005 11:33

1. Вычислить значение (все переменные принимают вещественные значения)
U=x - x^3/3 + x^5/5 (X^ - это я так степень записала)
2. Вычислить значение функции

Цитата

( 3x-9, x<=7,
f(x)=<
(1/(x^2 - 4), x>7

3. Даны: действительное число а и натуральное число n. Вычислить
p=a(a+1)...(a+ n-1)
4. Составить программу для вычисления суммы факториалов четных чисел от m до n.

Ребята, помогите пожалуйста, преподаватель ничего не объяснял (я заочница), а у меня не получается понять эти учебники, которые я уже купила. Умоляю, помогите!

klem4

18.02.2005 12:22

Код

uses crt;
var n,m,i,k,p,s:integer;

Begin
clrscr;
readln(n,m);
s:=0;
for i:=n to m do
if i mod 2 = 0 then
begin
p:=1;
for k:=1 to i do
p:=p*k;
inc(s,p);
end;
writeln('s=',s);
readln;
end.

Во остальных уточни условие :
1)U=x - x^3/3 + x^5/5 -это вся функция или только часть раяда ?
2) Вообще не понял что написано.
3) тут сумма или произведение ?

Guest

18.02.2005 12:55

Огромное вам спасибо! В 1-ом задании вся функция (с методички переписала). Решила отсканировать, вот, смотрите...

klem4

19.02.2005 3:29

Код

{$n+}
uses crt;
var u,x:extended;
Begin
clrscr;
readln(x);
u:=x-(exp(3*ln(x)))/3+(exp(5*ln(x)))/5;
writeln('u=',u:2:3);
readln;
End.

Код

{$N+}
uses crt;
var x:integer;
f:extended;

Begin
readln(x);
if x<=7 then
f:=3*x-9
else
f:=1/(sqr(x)-4);
writeln('f(x)=',f:2:3);
readln;
end.

3) все равно непонял, но может так ?

Код

uses crt;
var p,a,n,i:integer;
Begin
clrscr;
readln(a,n);
p:=1;
for i:=1 to n-1 do
p:=p*a*(a+i);
writeln('p=',p);
readln;
end.

volvo

19.02.2005 3:35

klem4
Скорее всего №3 решается так:

Код

uses crt;
var p,a,n,i: integer;
Begin
clrscr;
readln(a,n);
p:=1;
for i:=0 to n-1 do
p:=p*(a+i);
writeln('p=',p);
readln;
end.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.