Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Vaclav
6 / 6 / 2
Регистрация: 02.10.2013
Сообщений: 74
1

Работа с многозначными числами

04.10.2013, 22:07. Просмотров 900. Ответов 2
Метки нет (Все метки)

Добрый вечер! Помогите решить задачу:
Пусть а1=1, b1=1, ai=3/4ai-1-bi-1, bi=4/3bi-1-ai-1. Получить числа a2,a3...,an,b2,b3,...,bn, n - натуральное число.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2013, 22:07
Ответы с готовыми решениями:

Работа с простыми числами
Я упустил что-то важное, определенно. Но беда в том, что не могу понять, что...

НОД или работа с большими числами
Здравствуйте. Помогите с алгоритмом нахождения НОД(а,с), где 1<= а,с<=1018 ....

Работа с целыми числами
var y,z:integer; k:integer; begin write('k(введите число от 8 до 22)=');...

Работа с натуральными числами.
Даны натуральное число n и целые числа al, a2,..., an. Найти: а) количество...

Работа с числами из файла
Помогите, не могу понять как работать с числами из файла. Ничего не получается,...

2
erl27
897 / 745 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
04.10.2013, 23:34 2
Лучший ответ Сообщение было отмечено Vaclav как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  i, N: integer;
  a, b: array[1..100] of real;
  
begin
  write(' N = ');
  readln(N);
  a[1] := 1;
  b[1] := 1;
  for i := 2 to N do
  begin
    a[i] := 3 / (4 * a[i - 1]) - b[i - 1];
    b[i] := 4 / (3 * b[i - 1]) - a[i - 1]
  end;
  writeln;
  writeln('Числа a2..an:');
  for i := 2 to N do write('  a[', i, '] = ', a[i]:0:4, ', ');
  writeln;
  writeln;
  writeln('Числа b2..bn:');
  for i := 2 to N do write('  b[', i, '] = ', b[i]:0:4, ', ');
end.
Добавлено через 5 минут
Можно и намного проще:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i, N: integer;
  a, b: real;
  
begin
  write(' N = ');
  readln(N);
  a := 1;
  b := 1;
  writeln(' Числа a2..an   Числа b2..bn');
  for i := 2 to N do
  begin
    a := 3 / (4 * a) - b;
    b := 4 / (3 * b) - a;
    write('  a', i, ' = ', a:0:4, ', ');
    writeln('  b', i, ' = ', b:0:4)
  end
end.
1
Vaclav
6 / 6 / 2
Регистрация: 02.10.2013
Сообщений: 74
05.10.2013, 00:19  [ТС] 3
erl27, большое Вам спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2013, 00:19

Разветвляющаяся структура, работа с числами
Задание 2. Разветвляющаяся программа. Работа с числами. Предусмотреть при одном...

Работа с большими числами (не влезающими в тип integer)
Помогите, пожалуйста! как в паскале сложить/вычесть/найти целую часть от...

Заполнить массив различными натуральными числами, квадраты которых заканчиваются данным числами.
Заполнить массив различными натуральными числами, квадраты которых...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru