0 / 0 / 0
Регистрация: 09.10.2019
Сообщений: 14
1

Вычислить последовательность чисел, построить распределение последовательности. Pascal

16.10.2019, 01:06. Показов 1229. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вычислить последовательность чисел Xn+1=(aXo+c)mod m, OJa<m, OJc<m, OJ Xo<m. Построить распределение последовательности при заданных параметрах a, m и Xo
<<Xn+1это Xс нижним индексом n+1>>
<<Xo это X нулевое>>
Заранее благодарю))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2019, 01:06
Ответы с готовыми решениями:

Задано N количество чисел последовательности и последовательность из N чисел. Найти и вывести произведение этих чисел и первое положительно число
Задано N количество чисел последовательности и последовательность из N чисел. Найти и вывести...

Дана последовательность чисел от 1 до N и число M (> 1). Найти наибольшее целое среди последовательности чисел, при кото
Дана последовательность чисел от 1 до N и число M (&gt; 1). Найти наибольшее целое среди...

Из элементов данной последовательности сумма цифр которых равна 9, построить новую последовательность.
Дана последовательность целых чисел ai. Построить новую последовательность, содержащую те элементы,...

Дана последовательность чисел ai. Построить новую последовательность, содержащую все простые числа исходной последовательности.
procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add(Edit1.Text); //Числа...

3
58 / 42 / 21
Регистрация: 01.01.2018
Сообщений: 273
16.10.2019, 02:20 2
Подразумевалась рекуррентная формула? В вашем варианте Xn+1 не зависит от n или хотя бы от Xn. Воспользуйтесь редактором формул для корректного отображения задания
0
0 / 0 / 0
Регистрация: 09.10.2019
Сообщений: 14
16.10.2019, 07:54  [ТС] 3
Во вложении
Миниатюры
Вычислить последовательность чисел, построить распределение последовательности. Pascal  
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.10.2019, 08:38 4
Лучший ответ Сообщение было отмечено Ramil9989 как решение

Решение

Не указан размер последовательности. Вроде бы так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var m,a,c,x0,xn,i:integer;
begin
repeat
write('Введите натуральное число m>1 m=');
readln(m);
until m>1;
repeat
write('Введите 0<a<m a=');
readln(a);
until(a>0)and(a<m);
repeat
write('Введите 0<c<m c=');
readln(c);
until(c>0)and(c<m);
repeat
write('Введите 0<x0<m x0=');
readln(x0);
until(x0>0)and(x0<m);
write(x0,' ');
for i:=1 to 10 do
 begin
  xn:=(a*x0+c)mod m;
  x0:=xn;
  write(xn,' ');
 end;
end.
1
16.10.2019, 08:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2019, 08:38
Помогаю со студенческими работами здесь

Построить последовательность из 20 чисел, образованную цифрами пятеричного представления последовательности натуральных чисел
Построить последовательность из 20 чисел, образованную цифрами пятеричного представления...

Дана последовательность n целых чисел. Вычислить произведение простых чисел последовательности
Доброго времени суток. Помогите решить задачу. Дана последовательность n целых чисел. Вычислить...

Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности
Полное задание: Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов...

Дана последовательность из 7 различных чисел. Вычислить сумму каждого элемента последовательности с предыдущими элементами
Дана последовательность из 7 различных чисел. Вычислить сумму каждого элемента последовательности с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru