Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Юлия18
0 / 0 / 0
Регистрация: 24.12.2013
Сообщений: 10
#1

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

26.12.2013, 12:20. Просмотров 227. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В чем ошибка? n=15 ответ должен быть 3.3182 (Pascal ABC):

В чем в этой программе может быть ошибка NaN? - Pascal
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; K:integer; Begin Writeln('Введите...

Неправильно рассчитывается максимальное значение, в чем может быть ошибка? - Pascal ABC
не правильно считывает максимальное значение. в чем может быть ошибка? program zadanie2; uses crt; type mas = array of integer; ...

Прогамма вычисления суммы ряда, в чем может быть ошибка? - Pascal
создать проект для вычисления выражения S с заданной точностью ε. program bars; const eps=0.000001; var s,x:real; i:integer; ...

Фактический параметр должен быть переменной - Pascal ABC
Что значит "Фактический параметр должен быть переменной" ? Вот код программы program lalala; const n=5; Type ...

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

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

1
El41
For i:=0 to 150 do
197 / 88 / 38
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Определить, через сколько лет лов рыбы должен быть прекращен? - Pascal
Уже не знаю даже как её сделать...Помогите кому не сложно.. В водоеме 100 т рыбы. Каждый год рыболовецкая бригада вылавливает 15 т....

Каков должен быть порядок строк, чтобы следующие описания были правильные? - Pascal
Каков должен быть порядок строк, чтобы следующие описания были правильные? {1} type {2} B = record p: A; q: C end; {3} A = ^integer; ...


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

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

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