Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Шифрование текста https://www.cyberforum.ru/ turbo-pascal/ thread437979.html
Нужно создать программу, которая зашифровывает заданный текст с использованием 5 перемешанных алфавитов. В качестве исходных данных даны: исходный алфавит; m1,m2,m3,m4,m5-количество букв, на которые...
принадлежит ли точка прямоугольнику? Turbo Pascal
(x1;y1) и (x2;y2) -координаты левой верхней и правой нижней вершины прямоугольника.Принадлежит ли точка A(x;y) прямоугольнику?ввод чисел не рандом.
Turbo Pascal Магический квадрат
Помогите, пожалуйста, решить задачу. Дана целая квадратная матрица n-го порядка. Определить является ли она магическим квадратом, т. е. Такой, в которой суммы элементов во всех строках и столбцах...
Turbo Pascal задача на двухмерный массив!!! Найти сумму положительных элементов лежащих выше главной диагонали! Решать с помощью процедур! https://www.cyberforum.ru/ turbo-pascal/ thread437945.html
Turbo Pascal В каждой строке переставить первый отрицательный элемент и последний положительный,если таких нет сообщить об этом https://www.cyberforum.ru/ turbo-pascal/ thread437942.html
В каждой строке переставить первый отрицательный элемент и последний положительный,если таких нет сообщить об этом! Решать с помощью процедур!
Turbo Pascal Помогите. Надо составить блок схемы к программам, сам не могу. Готовлюсь к экзамену
program LR8; uses crt, graph; var D,m,i,x,y:integer; A:array of integer; st:string; BEGIN D:=detect; m:=detect; randomize;
Turbo Pascal Найти матрицу R, при сложении L с которой была бы получена матрица с нулевыми диагональными элементами
В процедуре заполните матрицу L четвертого порядка случайными числами. В основной программе найти матрицу R, при сложении L с которой была бы получена матрица с нулевыми диагональными элементами, а в...
Turbo Pascal Найти количество столбов матрицы, в которых все элементы равны нулю составить программу согласно следующему условию. Дана целочисленная матрица А размером M x N, где M и N заданные натуральные числа. Найти количество столбов в которых все элементы равны нулю. https://www.cyberforum.ru/ turbo-pascal/ thread437883.html
Turbo Pascal Вычисления,ряд. https://www.cyberforum.ru/ turbo-pascal/ thread437880.html
Подскажите пожалуйста задачку,заранее спасибо! Дано действительное число х.вычислить: x-(x^3/3) (x^5/5)-(x^7/7) (x^9/9)-(x^11/11) (x^13/13). Если можно с объяснением.
Turbo Pascal Найти сумму элементов массива, которые являются простыми числами и принадлежат интервалу от 5 до 1000 дан одномерный массив A, состоящий из N элементов. Найти сумму элементов массива, которые являются простыми числами и принадлежат интервалу от 5 до 1000 https://www.cyberforum.ru/ turbo-pascal/ thread437879.html
iOS/Android Developer
Эксперт С++
5130 / 1567 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
Завершенные тесты: 1
30.01.2012, 17:04 0

Посчитать сумму рядов.

30.01.2012, 17:04. Просмотров 857. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Радио Африка как решение

Решение

Цитата Сообщение от Радио Африка Посмотреть сообщение
1.) Посчитать сумму ряда: s=2+3+4+...+n. (количество членов вводится с клавиатуры).
Pascal
1
2
3
4
5
6
7
8
var
 i, n , sum: integer;
begin
 sum:=0;
 readln(n);
  for i:=2 to n do inc(sum, i);
 writeln(sum);
end.
Добавлено через 3 минуты
Цитата Сообщение от Радио Африка Посмотреть сообщение
2.) Посчитать сумму ряда:S=57/26+80/49+103/72 (количество слагаемых вводится с клавиатуры).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
 e, i, n , num1, num2: integer;
 r, sum: real;
begin
 r:=1; sum:=0;
 readln(n);
 e:=13; i:=1;
 num1:=57; num2:=26; 
  while i <= n do
   begin
    r:=num1/num2;
    sum:=sum+r;
    num1:=num1+e;
    num2:=num2+e;
    i:=i+1;
   end;
 writeln(sum:2:2);
end.
так вроде

Вернуться к обсуждению:
Посчитать сумму рядов.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2012, 17:04
Готовые ответы и решения:

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

Определить сумму рядов и выбрать наибольшую
Дан массив y1,y2.....,y15 Построить два новых ряда состоящих из четных и нечетных по номерам yi....

«Табулирование функций и ее разложение в сумму рядов»
напмшите ожалуста блок схему. Задача: X3/3 – X5/15 + X7/35 Программа: Program lab_5; Const...

Вычислить сумму членов для предыдущих рядов
вычислить сумму членов для предыдущих рядов с точностью до члена ряда, наименьшего Е (заданная...

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