Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Qwertxert
0 / 0 / 1
Регистрация: 15.01.2018
Сообщений: 6
#1

Не могу найти ошибку в коде - Pascal

18.01.2018, 21:46. Просмотров 82. Ответов 1
Метки нет (Все метки)

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

Ряд
Точность
вычислений
http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\infty }\frac{(-1)^{n+1}}{n!}http://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha =0.01

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
program laba; 
 const 
 alpha = 0.01; 
 var 
 i:integer; 
 sum,f,c,b:real; 
 function fact(n:integer):longint; 
 begin 
 n:=1; sum:=0; c:=1; b:=1; 
 repeat 
 f:=1; 
 for i:=1 to n do 
 c:=c*exp(ln(-1)*n+1); 
 Begin 
 if n <= 1 then 
 fact:=1 else 
 fact:= n*fact(n-1) 
 end; 
 f:=c/b; 
 sum:=sum+f; 
 n:=n+1; 
 until Abs(f) <= alpha; 
 writeln('sum: ', sum:15:8); 
 writeln('f: ', f:15:8); 
 writeln('n: ', n); 
 readln; 
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2018, 21:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не могу найти ошибку в коде (Pascal):

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0...

Не могу найти ошибку в коде
Добрый день! Ранее пользовался подсказками форуме, и кое как сделал программу,...

не могу найти ошибку в коде програвммы
unit UNIT_L8; interface uses crt; type matr=array of real; procedure...

Поиск нулей в двумерном массиве. Не могу найти ошибку в коде
Дан двумерный массив. Заполнен единицами и нулями. Например такой: 0 0 1 1...

не могу исправить ошибку в коде
не могу исправить ошибку в коде Program Zer; var br1, br2, expr: string; ...

не могу исправить ошибку в коде. в паскале вылетает ошибка.
program Project1; {$APPTYPE CONSOLE} uses SysUtils; type...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
18.01.2018, 22:10 #2
Цитата Сообщение от Qwertxert Посмотреть сообщение
Написал программу
Слишком смелое заявление.
У транслятора Паскаля на этот счет другое мнение:
Код
(28,4) Fatal: Syntax error, ";" expected but "." found
Pascal
1
2
3
4
5
6
7
8
9
10
const alpha=1e-2;
var s, e: Real; n: Integer;
begin
  e:=1; n:=1; {s:=0;}
  while Abs(e)>alpha do begin
    s:=s+e; Inc(n); e:=-e/n;
  end;
  WriteLn(s,' на шаге ',n-1);
  Write('Нажмите Enter...'); ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2018, 22:10
Привет! Вот еще темы с решениями:

Не могу найти ошибку!! не могу не как разобраться! надо до завтра.
условие: Для 7 человек, среди которых есть мужчины и женщины, хранятся...

Найти ошибку в коде
program tab4; uses crt; const NN=3;MM=5; type Matrix=array of real;...

Найти ошибку в коде
Добрый день. Будьте добры, проверьте пожалуйста код, у меня выдаёт ошибку....

Найти ошибку в коде
procedure form_menu; var i:byte; sizeof:integer; begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru