Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 22

Вывести N первых элементов последовательности

15.09.2014, 18:59. Показов 913. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
3)
Имя входного файла zc34.in
Имя выходного файла zc34.out
Дано целое число N (>0). Последовательность вещественных чисел https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{k} определяется следующим образом
https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{0}=2 ,
https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{k}=2+1/{A}_{k-1}, K=1,2,...
Вывести элементы https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{1},{A}_{2},...,{A}_{N}
Формат входных данных: ввод состоит из одного числа.
Формат выходных данных: вывод содержит последовательность чисел, с ограничением одна цифра после запятой.
Пример входного файла:
2
Пример выходного файла:
2.5
2.4
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.09.2014, 18:59
Ответы с готовыми решениями:

Сформировать и вывести целочисленный массив, содержащий N первых членов последовательности Фибоначчи
Дано целое число N>2. Сформировать и вывести целочисленный массив размера N, содержащий N первых членов элементов последовательности чисел...

Найти и вывести на экран сумму элементов последовательности
Вводится последовательность натуральных чисел, заканчивающаяся 0. Найти и вывести на экран сумму элементов последовательности.

Найти и вывести на экран количество чётных элементов последовательности
Вводится последовательность натуральных чисел, заканчивающаяся 0. Найти и вывести на экран количество чётных элементов последовательности.

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
16.09.2014, 09:42
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a0,ak:real;
     k,i:integer;
begin
....................
a0:=2;
for i:=1 to k do
 begin
  ak:=2+1/a0;
  writeln(ak);
  a0:=ak
 end;
...........
end.
0
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 22
21.09.2014, 18:59  [ТС]
За выполненное действие спасибо, но теперь надо как то сделать связь с файлом, чтоб программа брала данные из заданного файла, у меня не получалось, помогите пожалуйста)
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
21.09.2014, 19:26
Учитесь, это Ваше задание.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.09.2014, 19:26
Помогаю со студенческими работами здесь

Вывести все значения элементов заданной числовой последовательности и их квадратов
Помогите решить ...используя только while и for , ибо другого пока не учил. Вывести все значения элементов заданной числовой...

Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности
Пожалуйста, помогите! Нифига не шарю в программировании. Тут такая задачка: "Дана последовательность из n вещественных чисел. Вычислить...

Найти сумму первых пяти элементов массива и вывести положительные числа массива,который отличаются на единицу
Дан одномерный массив.Числа вводятся с клавиатуры.Найти сумму первых пяти элементов массива и вывести положительные числа массива,который...

Отдельно первых 5 элементов массива, вторых 5 элементов и последних 5 элементов отсортируйте по убыванию
Создайте массив, содержащий 15 целых чисел. Отдельно первых 5 элементов массива, вторых 5 элементов и последних 5 элементов отсортируйте по...

Сумма первых членов последовательности
Найти сумму первых N членов знакочередующегося ряда: Y= 1 –...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru