Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Получить на экране прямоугольник, который оборачивается в плоскости экрана вокруг своего центра Получить на экране прямоугольник, который оборачивается в плоскости экрана вокруг своего центра. Скорость движения (частота смены кадров) ввести с клавиатуры. Спасибо за отзывчивость) https://www.cyberforum.ru/ turbo-pascal/ thread590874.html	Turbo Pascal Код для арифметического цикла. Вычислить сумму Помогите, пожалуйста написать код программы!:wall: По введенным с клавиатуры x, m вычислить S: S = \sum_{i = 1, 3, 5 \cdots}^{2\cdot m + 1} i \cdot {x}^{2}
Turbo Pascal Быстрая сортировка https://www.cyberforum.ru/ turbo-pascal/ thread590857.html Помогите пожалуйста, надо написать программу которая создает статический массив. При этом реализовав быструю сортировку.	Turbo Pascal Последовательность. Напечатать те числа, которые делятся нацело на 4, но не делятся на 6 с клавиатуры вводятся десять двузначных чисел. напечатать те из них, которые делятся нацело на 4, но не делятся на 6. посчитать их количество. https://www.cyberforum.ru/ turbo-pascal/ thread590846.html
Turbo Pascal Дано три числа: а, b, c. Найти среднее арифметическое положительных и отрицательных чисел Помогите: Дано три числа: а, b, c. Найти среднее арифметическое положительных и отрицательных чисел, и вывести их на печать.	Turbo Pascal Копирование в буфер https://www.cyberforum.ru/ turbo-pascal/ thread590785.html Наверняка уже здесь создавалась такая тема, но я не нашел: существует ли способ копирования из обычного буфера в буфер паскаля?
Turbo Pascal Матрица. В квадратной матрице поменять местами строку, имеющую максимальный элемент на главной диагонали, со столбцом, начинающимся с нуля https://www.cyberforum.ru/ turbo-pascal/ thread590783.html В квадратной матрице поменять местами строку, имеющую максимальный элемент на главной диагонали, со столбцом, начинающимся с нуля.	Обработка строк. Найти все такие группы цифр, которые являются палиндромами Turbo Pascal рассматривается непустая строка содержащая не более 80 символов. каждый символ строки может быть малой английской буквой цифрой или одним из знаков + - *. группой цифр будет называться такая совокупность последовательно расположенных букв которой непосредственно не предшествует и за которой непосредственно не предшествует и и за которой непосредственно не следует буква. аналогична определяется...
Turbo Pascal Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку https://www.cyberforum.ru/ turbo-pascal/ thread590777.html Распечатать список тех учителей школы , которые преподают математику и информатику, указать стаж их работы и недельную нагрузку,, сделай те кто знает у меня зачет завтра на эту задачу,,	Turbo Pascal Как из переменной вида Real достать целую часть и сделать её переменной порядкового типа? https://www.cyberforum.ru/ turbo-pascal/ thread590771.html В программе была переменная типа Real. Применил к этой переменной функцию Int(x) (возвращает целую часть х). Как известно, на выходе тоже получается переменная типа Real. А мне нужно составить счетный цикл от 1 до этого Int(x). Вопрос: как это осуществить? P.S. Ещё точно известно, что первоначальная переменная положительна
Динамический массив. Сортировка методом пузырька Turbo Pascal Это статический, помогите пожалуйста сделать динамический. const m = 10; var arr: array of integer; i, j, k: integer; begin randomize;	Turbo Pascal Нужно исправить программы https://www.cyberforum.ru/ turbo-pascal/ thread590727.html Обе программы выдают ошибку:неизвестный идентификатор IoResult.Помогите пожалуйста Program lab7_1; USES CRT; Var F: file of real; {файловая переменная} M: array of real; {одномерный массив, состоящий из вещественных чисел} c: real; {произвольная переменная} Code:byte; {переменная, содержащая код ошибки} n,i: integer; {n-количество введенных чисел,i-счётчик,индекс элемента массива}

HighPredator

6045 / 2160 / 753

Регистрация: 10.12.2010

Сообщений: 6,005

Записей в блоге: 3

29.05.2012, 23:43

Код итерационного цикла. Найти сумму бесконечного ряда - Turbo Pascal - Ответ 3099962

29.05.2012, 23:43. Показов 1012. Ответов 3

Метки (Все метки)

Ответ

Pascal

const
  EPSILON=0.0001;
{...}
var
  a:real;
  Sum:real;
  n:integer;
begin
  n:=1;
  Sum:=0.0;
  repeat
    a:=1/(sqr(n)*(sin(n)+1.1));
    Sum:=Sum+a;
    n:=n+1;
  until a<EPSILON;
  writeln(Sum:4:4);
  readln;
end.

Вернуться к обсуждению:
Код итерационного цикла. Найти сумму бесконечного ряда Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.05.2012, 23:43

Готовые ответы и решения:

Найти с использованием итерационного цикла сумму всех чисел m в диапазоне
найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера...

Операторы цикла: вычислить сумму бесконечного ряда
Добрый день. Помогите пожалуйста решить данную задачку: 7(г). Заранее благодарю. Дано...

Операторы цикла: вычислить сумму бесконечного ряда
Добрый день. Помогите пожалуйста решить данную задачку: 4(г). Заранее благодарю. 4. Даны...

Алгоритм цикла. Рассчитать сумму бесконечного ряда
Помогите пожалуйста: Рассчитать сумму бесконечного ряда: 1+1/34+1/54+.... Суммирование...

	29.05.2012, 23:43

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.05.2012, 23:43

Помогаю со студенческими работами здесь

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

Найти сумму ряда при использовании бесконечного цикла
Будьте добры помогите пожалуйста! Цикл c использованием конструкции Do While – Loop, или Do –...

Найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера n
найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера...

Есть задача, рассчитать сумму бесконечного ряда, код прилагаю
Кр4... я хз, это типо вот так должно быть)) я хз как сделать, скелет по идее такой должен быть ...

Наверх