Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дана последовательность целых чисел Дана последовательность целых чисел, заданная пользователем (кол-во чисел произвольное), нужно вывести их среднее арифметическое, полусумму наибольшего и наименьшего, количество равных по модулю чисел и число, которое встречается чаще остальных. Нужно написать программу. https://www.cyberforum.ru/ turbo-pascal/ thread1624162.html Turbo Pascal Прошу исправить мой модуль, написанный в АВС, так, чтобы его можно было скомпилировать в Turbo Pascal
Прошу исправить мой модуль, написанный в АВС, так, чтобы его можно было скомпилировать в Turbo Pascal. Пожалуйста var x,y,z,a,k1,k2,b:real; begin; x:=7; y:=4; z:=8; k1:=power(sin(abs(3*power(x,3)+5*sqr(y)+15*z)),3); {power() возводит свой первый аргумент в степень второго} k2:=sqrt(sqr(12*power(x,3)+6*sqr(y)-z)+3.14); a:=abs(k1/k2);
Turbo Pascal Найти количество и сумму всех четных элементов массива в одномерном массиве порядка N , заполненном числами с клавиатуры выполнить обработку элементов: найти количество и сумму всех парных элементов https://www.cyberforum.ru/ turbo-pascal/ thread1624144.html Turbo Pascal Пусть дана целочисленная квадратная матрица порядка n https://www.cyberforum.ru/ turbo-pascal/ thread1624111.html
Пусть дана целочисленная квадратная матрица порядка n. Найдите номера строк: 1) все, элементы которых – нули; 2) элементы, в каждой из которых, одинаковы; 3) все элементы, которых четны; 4) элементы, каждой из которых, образуют монотонную последовательность (монотонно убывающую или монотонно возрастающую); 5) элементы которых образуют симметричные последовательности. Добавлено через 29...
Выполнить заданные действия с целочисленным массивом Turbo Pascal
В заданном целочисленном массиве определить: а) есть ли в данном массиве два соседних отрицательных элемента? Найти номера первой (последней) пары; б) номер первого (последнего) положительного элемента, делящегося на 5 с остатком 2; в) номера всех элементов с минимальным значением. массив формировать с помощью генератора RANDOM
Turbo Pascal Найти сумму элементов массива, имеющих нечетные индексы https://www.cyberforum.ru/ turbo-pascal/ thread1624105.html
В заданном целочисленном массиве найти: а) сумму элементов имеющих нечетные индексы, и сами элементы по абсолютной величине больше заданного К (задается с клавиатуры); б) индексы (номера) тех элементов, значения которых больше значения предыдущего элемента (начиная со второго); в) количество положительных элементов массива, которые кратны 3 или 5 и оканчиваются цифрой 0. Массив формировать...
Turbo Pascal Заменить все четные элементы таблицы уменьшив их на 10 в одномерном массиве порядка N , заполненном числами с клавиатуры выполнить обработку элементов: заменить все четные элементы таблицы уменьшив их на 10 и вывести массив https://www.cyberforum.ru/ turbo-pascal/ thread1624022.html Turbo Pascal Вычислить значение выражения
Хелп гайз плиз я вообще полное дно в этом деле.Вариант 13
Turbo Pascal Меню Турбо Вижион Вставьте эту программу в меню Турбо Вижион Program P_Swaps1; Const NMax = 5000; MMax = 100; RMax = 5000; d = 10000; cd = 4; Var A : Array Of Boolean; P : Array Of Integer; R : Array Of Integer; N,M,Cnt : Integer; https://www.cyberforum.ru/ turbo-pascal/ thread1623910.html Turbo Pascal составить 2 программы с параметрами и без параметров Из массива A, содержащего 5 строк, внутри которых есть пробелы, получить массив B, содержащий те же строки, но без пробелов. Вывести данный и полученный массив на экран. Часть программы, убирающую из строки пробелы, оформить в виде процедуры. https://www.cyberforum.ru/ turbo-pascal/ thread1623876.html
Заменить элементы, стоящие на нечетных местах массива их модулями Turbo Pascal
Создать одномерный массив X случайным образом. Вывести его в строку. Затем заменить элементы, стоящие на нечетных местах их модулями. После этого вывести массив повторно. Для замены и вывода массива использовать процедуру.
Turbo Pascal создать массив чисел https://www.cyberforum.ru/ turbo-pascal/ thread1623747.html
создать массив чисел A. Вывести массив B, в котором B=min{A, A,... A}.
0 / 0 / 0
Регистрация: 24.12.2015
Сообщений: 3
26.12.2015, 00:51  [ТС] 0

Вычислить сумму ряда с заданной точностью - Turbo Pascal - Ответ 8546356

26.12.2015, 00:51. Показов 925. Ответов 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
program Reshenie;
 
uses crt;
 
var sum,z:real;
    a,b,e:real;
    n:integer;
 
begin
    clrscr;
    write('e= '); readln (e);
    writeln;
    sum:=0;
    n:=1;
      repeat
       a:=(2*n+5)/(3*n-1);
       z:=exp( (2*n-1) * ln(a) );
       sum:=sum+z;
       n:=n+1;
       writeln('z= ',z);
      until abs(z) <= e;
    writeln;
    writeln('sum= ',sum);
    readkey;
end.
Ура. Я её написал.

Вернуться к обсуждению:
Вычислить сумму ряда с заданной точностью Turbo Pascal
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2015, 00:51
Готовые ответы и решения:

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

Вычислить сумму ряда с заданной точностью
Program Lab; uses crt; var i:Integer; x,y,sum,e,a:real; begin clrscr; Readln(e); Readln(x);...

Вычислить сумму ряда с заданной точностью
Даны числовой ряд и некоторое число e.Найти сумму тех членов ряда,модуль которых больше или равен...

Вычислить сумму ряда с заданной точностью
Цикл с предусловием. Вычислить значение заданной функции непосредственно и как сумму ряда с...

3
26.12.2015, 00:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2015, 00:51
Помогаю со студенческими работами здесь

Вычислить сумму ряда с заданной точностью
Нужна помощь по суме ряда.. Если не сделаю до 15 то отчислят с универа, помогите пожалуйста.. ...

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

Вычислить сумму ряда с заданной точностью
Дано действительное число Х. Вычислить с точностью 10^(-6)

Вычислить сумму ряда с заданной точностью
Не используя стандартные функции (кроме abs), вычислить сумму следующего ряда с заданной точностью...

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