проверить программу

@good91 · Регистрация: 03.03.2010

Студворк — интернет-сервис помощи студентам

Написал программу для вычисления суммы... Вроде бы всё делал правельно, но мне кажется, что я допустил ошибку с факториалом, т.к. при выводе значений на экран он не изменяется и равен еденице. Проверьте пожалуйста правильность программы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
PROGRAM Lab72;
 USES CRT;
 VAR
 s,x,b:real;
 n,i:integer;
 
 FUNCTION fact1:longint;
 var Fact:longint;
 begin
  if i=0 then fact:=1
   else
    Fact:=fact*i;
    Fact1:=fact;
 end;
 
 Procedure SYMMA(var S:real);
 begin
 s:=0;
  for n:=n-1 to 3 do
   begin
    x:=2;
     while x<3 do
      s:=s+(2*n*n+1)*exp(2*n*ln(x))/fact1;
      writeln(s:5:0, '  ', fact1:2,i:8);
      x:=x+0.4;
   end;
 End;
 
 BEGIN
  ClrSCR;
  Writeln;
  Writeln('    S   Fact    i');
  writeln;
  SYMMA(x);
  readln
 END.

@alex0983 · 03.06.2010, 00:08

Насколько понял, то должно быть так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
PROGRAM Lab72;
 USES CRT;
 VAR
 s,x,b:real;
 n,i:integer;
 
 FUNCTION Fact1:longint;
 var
  k:integer;
  fact:longint;
 begin
  fact:=1;
  if i=0 then fact:=1
   else
    begin
     for k:=1 to i do
     fact:=fact*k;
    end;
    Fact1:=fact;
 end;
 
 Procedure SYMMA(var S:real);
 begin
 s:=0;
  for n:=n-1 to 3 do
   begin
    x:=2;
     while x<3 do
      s:=s+(2*n*n+1)*exp(2*n*ln(x))/Fact1;
      writeln(s:5:0, '  ', Fact1:2,i:8);
      x:=x+0.4;
   end;
 End;
 
 BEGIN
  ClrSCR;
  i:=0;
  Writeln('‚ўҐ¤ЁвҐ i');
  Readln(i);
  Writeln;
  Writeln('    S   Fact    i');
  writeln;
  SYMMA(x);
  readln
 END.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/