Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 2
Регистрация: 10.04.2011
Сообщений: 40

Вычислить значения двух последовательностей

12.10.2014, 12:56. Показов 1468. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите, пожалуйста, решить!

Пусть a1=u, b1=v, ai=2bi-1+ai-1, bi=2a2i-1+bi-1.
Получите a2, a3, ..., an, b2, b3, ..., bn,
где n - натуральное число, а u и v - некоторые действительные числа.
(в оригинале - "некоторые настоящие числа")
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.10.2014, 12:56
Ответы с готовыми решениями:

Вычислить значения двух последовательностей через рекурсию
Пусть a1=u, b1=v, ai=2bi-1+ai-1, bi=2a2i-1+bi-1. Получите a2, a3, ..., an, b2, b3, ..., bn, Пусть {a}_{1}=u, \ {b}_{1}=v, \...

Сложить минимальные значения двух последовательностей
Составить программу на языке программирования Паскаль, вызывающую процедуру или функцию, позволяющую решить следующую задачу: даны...

Сложить минимальные значения двух последовательностей
Составить программу на языке программирования Паскаль, вызывающую процедуру или функцию, позволяющую решить следующую задачу: даны...

4
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
12.10.2014, 14:03
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  u, v, a, b, x: real;
  i, n: word;
  
begin
  writeln('Введите вещественные u, v:');
  readln(u, v);
  writeln('Введите натуральное n:');
  readln(n);
  a := u; 
  b := v;
  for i := 2 to n do begin
    x := a; //запомнаем a
    a := 2 * b + a;
    write('a', i, ' = ', a:0:3);
    b := 2 * x * x + b;
    writeln('  b', i, ' = ', b:0:3)
  end
end.
Но значения очень быстро возрастают
1
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
12.10.2014, 14:49
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var u,v,a1,b1,an,bn:real;
    i,n:integer;
Begin
    write('N: ');readln(n);
    write('u,v: ');readln(u,v);
    a1:=u;b1:=v;
    For i:=2 to n do
    Begin
      an:=2*b1+a1;
      bn:=2*a1*a1+b1;
      writeln('a',i,' = ',an:10:2,' b',i,' = ',bn:10:2);
      a1:=an;
      b1:=bn;
    End;
    readln;
End.
1
1 / 1 / 2
Регистрация: 10.04.2011
Сообщений: 40
14.10.2014, 13:57  [ТС]
erl27, простите, а как сделать через рекурсию?
0
1 / 1 / 2
Регистрация: 10.04.2011
Сообщений: 40
16.10.2014, 13:33  [ТС]
Помогите, пожалуйста....

Добавлено через 20 секунд
Надо переделать через рекурсию.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.10.2014, 13:33
Помогаю со студенческими работами здесь

Вычислить значения двух функций в n точках, равномерно распределенных в диапазоне a<=x<=b
1)Вычислить значения двух функций в n точках, равномерно распределенных в диапазоне a&lt;=x&lt;=b. Результат оформить в виде таблицы. ...

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

Объединение двух последовательностей
Даны 2 последовательности class Arr1 { public int ID { get; set; } public string Name { get;...

Вычислить значения двух переменных, заданных указанными тригонометрическими выражениями
Даны x,y,z. Вычеслить a,b если a=1+sin^2(x+y)/2+|x-2x/(1+x^2y^2)|+x, b=cos^2(arctg1/2); Пожалуйста, сразу готовую программу, времени в...

Даны значения двух целых чисел a и b. Вычислить их разницу по модулю
Даны значения двух целых чисел a и b. Вычислить их разницу по модулю (не используя функции abs() и fabs()).


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru