Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Agneshka
0 / 0 / 0
Регистрация: 09.09.2017
Сообщений: 13
1

Как работать с random?

03.10.2017, 23:23. Просмотров 148. Ответов 2
Метки нет (Все метки)

Здравствуйте. Дела такие.

Нужна последовательность из 50-ти чисел.

Задаю их рандомом.
Как потом сделать так, чтоб эта последовательность запомнилась? Это нужно для того, чтоб позже её (в точности такую же) вновь вывести на экран (в этой же программе).

Подскажите, пожалуйста.

Pascal
1
2
3
4
5
6
randomize;
writeln('Последовательность a[i]:');
for i:= 1 to n do begin
   a:= random (50);
   write(a:3)
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2017, 23:23
Ответы с готовыми решениями:

Можно ли как-то оператор "Random" научить работать с вещественными числами?
Можно ли как-то этот оператор научить работать с вещественными числами? Не хочу конкретно...

Как можно заменить random?
program mas; var a: array of integer; i,j,s,n,m: integer; begin write('vvedite...

Как работать с интерфейсом?
Никак не могу разобраться с этими кнопками, лейблами, боксами, да и найти то ничего про них не...

Как работать со звуком?
Как получить высоту звука на n-ной секунде? Как получить длину воспроизводимого файла в секундах?

Как работать с Excel
Как на паскале работать не текстовыми файлами а с Excel

2
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,387
04.10.2017, 04:09 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=50;
var 
  a:array[1..n] of integer;
  i:integer;
begin
  randomize;
  writeln('последовательность:');
  for i:=1 to n do begin
    a[i]:=random(50);
    write(a[i]:3);
  end;
  writeln;
  writeln('сохраненная последовательность:');
  writeln(a);
  readln;
end.
0
JuriiMW
1992 / 1077 / 1573
Регистрация: 10.12.2014
Сообщений: 4,041
04.10.2017, 07:04 3
А может сначала "запомнить" последовательность, и только после этого с ней работать?
Тогда проще:
Pascal
1
2
3
4
5
begin
  var a := ArrRandomInteger(50);
  Write('Последовательность: '); a.Println;
  /// А тут уже можно преобразовывать массив!
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2017, 07:04

Как работать с классами?
Пожалуйста, объясните как работать с классами в PascalABC.NET. Что такое классы и с чем их едят?

Как работать с записями ?
Программа на паскале Задача: описать переменную расписания, содержащую: 1)день недели...

Как работать с календарем (monthCalendar)?
Вот добавил я календарь на мою форму, сгенерировал такой код procedure...


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

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

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