61 / 61 / 2
Регистрация: 02.06.2011
Сообщений: 86
1

Написать программу, которая вычисляет сумму первых n членов ряда

12.06.2011, 13:24. Показов 6564. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Практическое задание №13
Написать программу, которая вычисляет сумму первых n членов ряда 1 + ½ + ⅓ + … Количество суммируемых членов ряда задается во время работы программы
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.06.2011, 13:24
Ответы с готовыми решениями:

Написать программу, которая вычисляет сумму первых n членов ряда
Помогите кто, что может сделайте. Желательно до 24:00 сегодня. Желательно на Free Pascal. 1. ...

Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/4+1/6…
Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/4+1/6…Количество...

Написать программу, которая вычисляет сумму первых n членов ряда
Сороки выполнения желательно до 24:00. Написать программу, которая вычисляет сумму первых n...

Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+…
лаба 5 1) Написать программу,которая вычисляет сумму первых n членов ряда...

5
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
12.06.2011, 13:30 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{ Написать программу, которая вычисляет сумму первых n членов ряда 1 + ½ + ⅓ + … 
 Количество суммируемых членов ряда задается во время работы программы }
var
  n: integer;
function sum(n: integer): real;
begin
  if n=1 then
    sum := 1.0
  else
    sum := sum(n-1)+1.0/n;
end;
 
begin
  readln(n);
  writeln('s(',n,')=',sum(n):0:4);
  readln;
end.
0
61 / 61 / 2
Регистрация: 02.06.2011
Сообщений: 86
12.06.2011, 14:15  [ТС] 3
var
n: integer; { кол-во суммируемых членов ряда }
i:integer; { номер элемента ряда }
elem:real; { значение элемента ряда }
summ:real; { сумма элементов ряда }
begin
writeln('Вычисление частичной суммы ряда 1+1/2+1/3+...');
writeln('Введите кол-во суммируемых членов ряда');
write('->');
readln(n);
suinm:=O;
for i:=1 to n do
begin
elem:=l/i;
summ: =suimH-elem; end;
write('Сумма первых *,n); writeln(' членов ряда равна ', suram: 6: 4) ; readln;
end.

Добавлено через 42 секунды
исправьте ошибки

Добавлено через 38 минут
ПОМОГИТЕ С ПРОГРАММОЙ
1
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
12.06.2011, 15:03 4
Цитата Сообщение от romera Посмотреть сообщение
suinm:=O;
я думаю тут должно быть 0, а не О)

Добавлено через 31 секунду
Цитата Сообщение от romera Посмотреть сообщение
elem:=l/i;
а тут 1

Добавлено через 34 секунды
Цитата Сообщение от romera Посмотреть сообщение
suinm
какая то необьявленная переменная
2
61 / 61 / 2
Регистрация: 02.06.2011
Сообщений: 86
12.06.2011, 15:04  [ТС] 5
напишите полностью программу
0
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
12.06.2011, 15:07 6
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
var
 n, i: integer;
 summ: real;
begin
 summ:=1;
 readln(n);
  for i:=2 to n do
   summ:=summ+1/i;
 writeln(summ:0:2);
end.
3
12.06.2011, 15:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2011, 15:07
Помогаю со студенческими работами здесь

Напишите программу, которая вычисляет сумму первых n членов ряда
Напишите программу, которая вычисляет сумму первых n членов ряда

Написать программу которая вычисляет сумму кубов первых членов натурального числа
Написать программу которая вычисляет сумму кубов первых членов натурального числа.

Написать программу, которая вычисляет сумму первых целых положительных чисел
Помоги, пожалуйста! Написать программу, которая вычисляет сумму первых целых положительных чисел....

Написать программу ,которая вычисляет сумму первых n целых положительных четных чисел
Написать программу ,которая вычисляет сумму первых n целых положительных четных чисел.Количество...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru