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

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

01.11.2010, 14:18. Просмотров 1161. Ответов 1
Метки нет (Все метки)

Необходимо составить программу расчета конечной суммы и сравнения полученного результата с контрольным значением. Число членов суммы вводится с клавиатуры с защитой от возможного неверного ввода данных.
Вид суммы:
1+2+3+4+...+N

контрольные значения:
(N(N+1))/2
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2010, 14:18
Ответы с готовыми решениями:

Составить программу расчета конечной суммы и сравнения полученного результата с контрольным значением
Помогите составить программу пожалуйста! Заранее спасибо!

Составить программу для расчета суммы n первых членов заданной арифметической прогрессии
Составить программу для расчета суммы n первых членов заданной арифметической...

Посчитать количество элементов массива, для полученного результата составить таблицу умножения до 10
Дан одномерный массив n-количества посчитать количество элементов массива, для...

Рассчитать сумму ряда и сравнить с контрольным значением
задача №2 необходимо составить программу расчета конечной суммы и сравнения...

Разработать программу для расчета суммы бесконечного ряда
Суммирование следует прекращать когда очередное слагаемое станет по абсолютной...

1
Puporev
Модератор
55012 / 42307 / 29213
Регистрация: 18.05.2008
Сообщений: 99,971
01.11.2010, 14:31 2
Лучший ответ Сообщение было отмечено Warewolf73 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var n,i:integer;
    s:longint;
begin
clrscr;
repeat
write('Количество членов ряда, больше 0 n=');
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Сумма   =',s);
write('Контроль=',n*(n+1) div 2);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2010, 14:31

Составить программу расчета таблицы значений функции f(x)
Здравствуйте уважаемые форумчане, помогите решить, сам гуманитарий) Буду очень...

Составить программу расчета таблицы значений функции
Задача Составить программу расчета таблицы значений функции f(x) на интервале...

Составить программу с использованием рекурсивной функции для сравнения двух одномерных массивов.
Составить программу с использованием рекурсивной функции для сравнения двух...


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

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

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