Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Вычислить корень уравнения f(x) = 0 методом Ньютона Если кто может, напишите прогу, с пояснением операторов (что для чего пишется). Отделить любой действительный корень уравнения f(x)=0, и вычислить его методом Ньютона с точностью E=10-4.... https://www.cyberforum.ru/ free-pascal/ thread1267772.html	Free Pascal Составьте программу, которая в соответствии с введенными с клавиатурами числами выводила месяц, день недели Составьте программу, которая в соответствии с введенными с клавиатурами числами (1…12) выводила месяц, день недели. Free Pascal
Free Pascal Метод половинного деления решения уравнений с одним неизвестным Написать обычную и рекурсивную функцию для нахождения решения функции, непрерывной на отрезке и имеющей на концах отрезка разные знаки. В основной программе продемонстрировать работу обеих функций. ... https://www.cyberforum.ru/ free-pascal/ thread1267660.html	Free Pascal Написать обычную и рекурсивную функцию для нахождения решения функции, непрерывной на отрезке https://www.cyberforum.ru/ free-pascal/ thread1267653.html Написать обычную и рекурсивную функцию для нахождения решения функции, непрерывной на отрезке и имеющей на концах отрезка разные знаки. В основной программе продемонстрировать работу обеих функций....
Определить, попадает ли точка с заданными координатами x, y в область Free Pascal Написать программу, которая определяет, попадает ли точка с заданными координатами x, y в область, закрашенную на рисунке серым цветом. Имя входного файла input.txt. Имя выходного файла...	Free Pascal Вычислить сумму элементов массива X и произведение элементов массива Y https://www.cyberforum.ru/ free-pascal/ thread1267573.html Записать положительные элементы массива Х подряд в массив Y. Вычислить сумму элементов массива X и произведение элементов массива Y. Из массива Y удалить элементы, расположенные между максимальным и...
Free Pascal Вывести на экран название объектов, которые находятся во всех множествах одновременно https://www.cyberforum.ru/ free-pascal/ thread1267473.html Определить список из 10 названий цветов. Построить 5 множеств из различных элементов этого списка. Вывести на экран название объектов, которые находятся во всех множествах одновременно. Вывести...	Написать процедуру и функцию, которая сдвигает элементы массива на одну позицию вправо Free Pascal Написать процедуру и функцию,которая сдвигает элементы массива на одну позицию вправо и возвращает среднее арифметическое первого и последнего элемента. В основной программе ввести массив из 10...
Free Pascal Вычислить и вывести на экран в виде таблицы значения функции, заданной графически https://www.cyberforum.ru/ free-pascal/ thread1267459.html Вычислить и вывести на экран в виде таблицы значения функции,заданной графически , на интервале от х(нач) до х(кон) с шагом dx. Интервал и шаг вводить с клавиатуры. Таблицу снабдить заголовком и...	Free Pascal Решить уравнение ах=b, подставляя вместо a и b значения из массивов Составить программу с использованием базовых алгоритмов для работы с одномерными массивами. - Ввести с клавиатуры два массива А и В, состоящих из 10 элементов. Решить уравнение ах=b, подставляя... https://www.cyberforum.ru/ free-pascal/ thread1267452.html
Free Pascal Написать программу нахождения n-го члена последовательности и его номера Дана последовательность , заданная формулой общего члена : an= n(ln(n+1)-ln(n)), n=1,2,3 известно что , а = 0.97 – предел последовательности . Написать программу нахождения n- го члена...	Free Pascal Циклы: нахождение n-го члена последовательности, удовлетворяющего условию, и его номера https://www.cyberforum.ru/ free-pascal/ thread1267315.html Дана последовательность, заданная формулой общего члена. an=((n2-1)/(2n2-n-1)), n=2,3,4... Написать программу нахождения n- го члена последовательности и его номера , удовлетворяющего условию :...

erl27

906 / 754 / 833

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

Сообщений: 1,561

06.10.2014, 16:14

Написать программу нахождения n-го члена последовательности и его номера, удовлетворяющего условию - Free Pascal - Ответ 6687350

06.10.2014, 16:14. Показов 1694. Ответов 1

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

Сообщение было отмечено Тюня как решение

Решение

Pascal

const
  e = 0.0001;
 
var
  a1, a2, d: real;
  n: word;
 
begin
  d := e + 1; //Число > e для начального входа в цикл
  n := 1;
  a2 := 0;
  while d > e do begin
    inc(n);
    a1 := a2; //Запоминаем предыдущее значение
    a2 := (n * n - 1) / (2 * n * n - n - 1); //Вычисляем новое
    d := abs(a2 - a1)
  end;
  writeln;
  writeln(a2:10:6, a1:10:6, n:5);
  readln
end.

Вернуться к обсуждению:
Написать программу нахождения n-го члена последовательности и его номера, удовлетворяющего условию Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.10.2014, 16:14

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

Написать программу нахождения n-го члена последовательности и его номера
Дана последовательность , заданная формулой общего члена : an= n(ln(n+1)-ln(n)), n=1,2,3 известно...

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

Написать программу нахождения n-го члена последовательности и его номера, удовлетворяющего условию

Написать программу нахождения n-го члена последовательности и его номера, удовлетворяющего условию
Составить программу с использованием оператора цикла с предусловием. Дана последовательность,...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.10.2014, 16:14

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

Циклы: нахождение n-го члена последовательности и его номера, удовлетворяющего условию
Дана последовательность, заданная формулой: {a}_{n}={arctg(a)}_{n-1}+1, {a}_{1}=0 Написать...

Написать программу нахождения n-го члена последовательности и его номера
Добрый вечер, т. к. в школе с математикой было не все так просто, а сейчас я столкнулся с...

В последовательности Фибоначчи найти индекс члена последовательности, удовлетворяющего условию
помогите не могу найти ошибку вводится число A,найти номер К такого числа Фибоначчи ,что...

Написать программу нахождения номера элемента последовательности по его значению
Написать программу нахождения номера элемента последовательности по его значению. (Массивами...

Наверх