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

Вычислить сумму ряда

10.05.2011, 13:08. Просмотров 1128. Ответов 2
Метки нет (Все метки)

Добрый день! Помогите решить несколько задачь по программированию на abcpascal, я только начинающий. Очень надо, помогите плиз.
задание 1
Дано натуральное число n. Вычислить:
Вычислить сумму ряда


задание 2
Дан массив целых чисел. Проверить образуют ли элементы массива арифметическую прогрессию. Массив задается с помощью генератора случайных чисел

задание 3
Задана квадратная матрица А размером N*N (N<=10), состоящая из действительных элементов. Найти сумму элементов строки, в которой расположен наименьший элемент


задание 4
Дана строка. Написать программу проверки правильности написания сочетаний «ча», «ща», «чу», «щу». Исправить ошибки


задание 5
Из введенного множества символов сформировать и вывести множество, исключающее все цифры. При решении задачи обязательно использовать множественный тип
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2011, 13:08
Ответы с готовыми решениями:

Вычислить сумму ряда с точностью до числа ряда меньшего экспонентой
Вычислить сумму данного ряда с точностью до числа ряда меньшего экспонентой,для каждого значения Х...

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

Вычислить сумму ряда
y = sin1(sin1 + sin 2)(sin1 + sin2 + sin3)...(sin1 + sin2 + sin3 + ... + sin n)

Вычислить сумму ряда
Вычислить сумму S = K - 2K + 3K - ... + (-1)n - 1 * KN.

Вычислить сумму ряда
вычислить число е ряд е=2+1/2!+1/3!+1/4!+... pascal ABC помогите пожалуста

2
Mr.Y
99 / 92 / 90
Регистрация: 10.05.2011
Сообщений: 172
10.05.2011, 14:07 2
Лучший ответ Сообщение было отмечено dolphin8383 как решение

Решение

Задача 1:
Pascal
1
2
3
4
5
6
7
8
9
10
Var
 n:integer;
 S:real;
Begin
 Write('Введите n: ');
 Readln(n);
 For var i:=1 to n do
  S:=s+1/sqr(2*i+1);
 Writeln(s:0:2);
End.
Задача 3:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Const 
 n = 6;
Var
 a:array [1..n] of array [1..n] of real;
 i,j,i1:integer;
 min:real:=1;
 sum:real;
Begin
 For i:=1 to n do
  For j:=1 to n do
   a[i,j]:=random();
 For i:=1 to n do
  For j:=1 to n do
   If a[i,j] < min then Begin 
                         min:=a[i,j];
                         i1:=i;
                        End;
 For j:=1 to n do
  sum:=sum+a[i1,j];
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Write(a[i,j]:0:3,' ');
   Writeln;
  End;
 Writeln('Сумма строки № ',i1,', где минимальный элемент - ',min:0:3,': ',sum:0:2);
End.
Касательно второй задачи, нужно именно проверить образование арифметической прогрессии, а не просто возрастающей последовательности?
0
dolphin8383
0 / 0 / 0
Регистрация: 10.05.2011
Сообщений: 26
10.05.2011, 14:15  [ТС] 3
Спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2011, 14:15

Вычислить сумму ряда
Даны действительные числа \(\chi\), \(\varepsilon\) \(\chi \neq 0\), \(\varepsilon\) &gt; 0 )....

Вычислить сумму ряда
Дано действительное число x. Вычислить с точностью 10-6 \sum_{k=1}^{\infty}\frac{1}{x^3k^2}

Вычислить сумму ряда
Помогите написать программу x и n задаются пользователем x и n заданы. Вычислить s = 1 - x^2/2! +...


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

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

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