Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/47: Рейтинг темы: голосов - 47, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 27.10.2010
Сообщений: 3

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

27.10.2010, 16:42. Показов 9655. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
мне для зачета нужно написать программу, которая вычисляет сумму первых n членов ряда 1 + 3 + 5 + 7 +…
тупо через n в квадрате не канает.
нужно с помощью Цикла с предусловием.

заранее спасибки =)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.10.2010, 16:42
Ответы с готовыми решениями:

Вычислить сумму первых N членов ряда
вычислить сумму первых N членов Cos(1)/Sin(1)+Cos(1)+Cos(2)/Sin(1)+Sin(2)+...+Cos(1)+...+Cos(n)/Sin(1)+...Sin(n)

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

Вычислить сумму первых n членов ряда
6) Написать программу, которая вычисляет сумму первых n членов ряда 1, ½, ⅓, ¼,… Количество суммируемых членов ряда задается во время...

7
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
27.10.2010, 16:47
Цитата Сообщение от Ольга22 Посмотреть сообщение
мне для зачета нужно написать программу, которая вычисляет сумму первых n членов ряда 1 + 3 + 5 + 7 +…
тупо через n в квадрате не канает.
нужно с помощью Цикла с предусловием.

заранее спасибки =)
Всё канает
Pascal
1
2
3
4
5
6
7
8
9
var
n,s,i:integer;
begin
readln(n);
for i:=1 to n*2 do
if odd(i)then s:=s+i;
writeln(s);
readln;
end.
0
 Аватар для ZiGSuN
27 / 27 / 7
Регистрация: 02.12.2009
Сообщений: 66
27.10.2010, 16:51
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
 n:integer;
 i:integer;
 g:integer;
 sum:integer;
begin
 write('Введите n = ');readln(n);
 i:=1;
 g:=1;
 sum:=0;
while i<>n do 
  begin
   Sum:=sum +g;
   g:=g+2;
   i:=i+1;   
  end;
    write(Sum, ' ');
end.
Кот Бегемот - в задании вроде написано с циклом с предусловием ! Хотя в работоспособности вашего решения не сомневаюсь!
0
0 / 0 / 0
Регистрация: 27.10.2010
Сообщений: 3
27.10.2010, 16:52  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program fksdugh;
var
   s, x, i, n:real;
begin
   writeln ('BBedi n');
   readln (n);
   x:=0;
   S:=0;
   i:=1;
   while i<=n do
     begin
        i:=i+1;
        x:=x+2;
        S:=S+x;
     end;
 writeln ('S=', s:5:2);
end.
сижу понять не могу как оно всё правильно должно быть =(
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
27.10.2010, 16:53
Возьми да запусти обе. Например, для n=5 1+3+5+7+9=25
0
 Аватар для ZiGSuN
27 / 27 / 7
Регистрация: 02.12.2009
Сообщений: 66
27.10.2010, 16:59
Ольга22
в вашем решении надо х:= 1 поставить в начале!
и сначала в цикле выполнить S:=s+x; ,
а после этого выполнить: X:=x+2
0
0 / 0 / 0
Регистрация: 27.10.2010
Сообщений: 3
27.10.2010, 17:36  [ТС]
спасибке еще раз

Добавлено через 6 минут
А!!! еще забыла как блок схема будет выглядеть? =)

Добавлено через 22 минуты
а как обозначить в паскале формулу у=|-x + (Ln x)/(x в кубе)|
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
27.10.2010, 17:38
Pascal
1
y:=abs(-x+(ln(x))/(x*x*x));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.10.2010, 17:38
Помогаю со студенческими работами здесь

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

Рекурсивные функции: вычислить сумму первых n членов ряда
Вычислить сумму первых n членов ряда 1+1/+1/+...... с использованием рекурсивной подпрограммы function sum (k:integer):real; var...

Дано натурально число n. вычислить сумму n-первых членов числового ряда...
Пожалуйста помогите решить задачу: Дано натурально число n. вычислить сумму n-первых членов числового ряда : ...

Определить сумму первых m членов ряда, член ряда с номером n(1,2. )
Здравствуйте, нужна помощь с программой... Нужно написать программу с помощью цикла, которая определяет сумму первых m членов ряда, член...

Подсчитать сумму первых 10 членов ряда
Для ряда, члены которого вычисляются по формуле \frac{1}{\sin 1}+\frac{1}{\sin 1+\sin 2}+...+\frac{1}{\sin 1+...+\sin n} ...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru