Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Юлия18
0 / 0 / 0
Регистрация: 24.12.2013
Сообщений: 10
#1

В чем ошибка? n=15 ответ должен быть 3.3182

26.12.2013, 12:20. Просмотров 232. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program Algoritm8;
var i:integer;
Function summa(n:integer; var S:real):real;
Begin
S:=0;
for i:=1 to n do
S:=s+(1/i);
end;
var S:real;
    n:integer;
begin
writeln('Вычисление частичной суммы ряда: 1 + 1/2 + 1/3 +... ');
writeln;
write('Введите количество чисел в ряде n=');
read(n);
s:=Summa(n,s);
writeln('Сумма первых ',n,'членов в ряде',S:6:4);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 12:20
Ответы с готовыми решениями:

В чем в этой программе может быть ошибка NaN?
Program aaa; Const N=((2*(15/17)-(7*(5/8)))/(1/10+1/15)); C1=5.9; C2=1.2; x=-8; var y:real;...

Неправильно рассчитывается максимальное значение, в чем может быть ошибка?
не правильно считывает максимальное значение. в чем может быть ошибка? program zadanie2; uses...

Прогамма вычисления суммы ряда, в чем может быть ошибка?
создать проект для вычисления выражения S с заданной точностью ε. program bars; const...

Фактический параметр должен быть переменной
Что значит "Фактический параметр должен быть переменной" ? Вот код программы program lalala;...

В какой папке должен быть файл с входными файлами?
Файл с входными данными лежит в папке с exe файлом паскаля, но не открывается в программе. Куда же...

1
El41
For i:=0 to 150 do
197 / 88 / 97
Регистрация: 05.01.2012
Сообщений: 252
26.12.2013, 12:25 #2
Вы забыли присвоить функции результат.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var i:integer;
 
Function summa(n:integer; var S:real):real;
var i:byte;
Begin
S:=0;
for i:=1 to n do
S:=s+(1/i);
summa:=s;
end;
 
var S:real;
n:integer;
begin
writeln('Вычисление частичной суммы ряда: 1 + 1/2 + 1/3 +... ');
writeln;
write('Введите количество чисел в ряде n=');
read(n);
s:=Summa(n,s);
writeln('Сумма первых ',n,'членов в ряде',S:6:4);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2013, 12:25

Нарисовать чашку кофе, пар должен быть анимированным
Используя команды модулей Crt и Graph построить изображение Придать графическому объекту...

Нарисовать два круга, внутри должен быть дождик
В программе нужно нарисовать 2 круга, закрасить область внутри кругов и чтобы был дождик. Круги...

Определить, через сколько лет лов рыбы должен быть прекращен?
В водоеме 100 т рыбы. Каждый год рыболовецкая бригада вылавливает 15 т. Воспроизводство рыбы 5 % в...


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

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

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