| ← Июнь 2017 → | ||||||
|
1
|
2
|
3
|
||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
|
12
|
13
|
14
|
15
|
16
|
17
|
|
|
19
|
20
|
21
|
22
|
23
|
24
|
25
|
|
26
|
27
|
28
|
29
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Прошу помощи в следующем вопросе: составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда. При разработке программы предусмотреть пропуск слагаемых (множителей) равных нулю или бесконечности. (на языке Pascal)
Дата отправки: 25.05.2017, 17:23 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Ксюша! Код (Pascal) :: выделить код var
k,n:integer;
a,b,f:real;
function pow(a,b:integer):real;
begin
if b=0 then pow:=1
else
if b>0 then pow:=a*pow(a,b-1)
else pow:=pow(a,b+1)/a;
end;
begin
write('enter n:');
readln(n);
a:=0;
f:=1;
for k:=1 to n do
begin
f:=f*k;
if k<>3 then b:=pow(k-3,k-5)*(k+7)/f
else b:=0;
a:=a+b;
end;
writeln('result:',a);
end.ps:вопросы задавайте в мини-форуме. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
