Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
kirill1059
14 / 14 / 3
Регистрация: 16.04.2013
Сообщений: 402
1

Сформировать ряд случайных булевых значений

02.09.2013, 21:52. Просмотров 544. Ответов 3
Метки нет (Все метки)

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

Вот код программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
program lil;
uses crt;
var a, b, c: integer;
begin
repeat
c:= random(20);
a:= 1+ random(100); b:= 1+ random(100);
writeln(a, '>', b);
until c= 1;
readln
end.
Числа формируются рандомно, а можно ли сформировать знаки сравнения?
Если не правильно поставил вопрос, поправьте)
Спасибо.

Добавлено через 6 минут
забыл после
Pascal
1
repeat
добавить

Pascal
1
randomize
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.09.2013, 21:52
Ответы с готовыми решениями:

С помощью генератора случайных значений сформировать три массива
Задача 1 С помощью генератора случайных значений сформировать три массива A, B, C вещественных...

Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряд
Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную...

Из случайных чисел сформировать 2 матрицы
Помогите решить задачу. 1) Из случайных чисел сформировать 2 матрицы: A(8,8) – на интервале , ...

С помощью процедур сформировать 3 массива из 10 случайных элементов
С помощью процедур сформировать 3 массива из 10 случайных элементов, вывести на экран элементы...

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

3
Kodzaev
3005 / 1894 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
02.09.2013, 22:04 2
Не совсем понял, но, думаю, вы имеете в виду это:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  i, x, y: byte;
 
begin
  Randomize;
  for i := 1 to 20 do
  begin
    x := Random(100);
    y := Random(100);
    case Random(2) of
      0: Writeln(x, ' > ', y, '    ', x > y);
      1: Writeln(x, ' < ', y, '    ', x < y);
    end;
  end;
  Readln
end.
1
Puporev
Модератор
54575 / 42085 / 29057
Регистрация: 18.05.2008
Сообщений: 99,253
03.09.2013, 11:37 3
Цитата Сообщение от kirill1059 Посмотреть сообщение
как сформировать ряд случайных булевых значений с помощью randomize и random
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const nmax=100;
var a:array[1..nmax] of boolean;
    n,i,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  k:=random(2);
  a[i]:=k=0;
  write(a[i]:8);
 end;
readln
end.
0
kirill1059
14 / 14 / 3
Регистрация: 16.04.2013
Сообщений: 402
03.09.2013, 17:23  [ТС] 4
спасибо, помогли)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.09.2013, 17:23

Сформировать массив случайных целых чисел по заданному правилу
Дан двумерный массив случайных целых чисел от 4 до 25 Matrix. Сформировать новый массив Mix,...

Сформировать массив из максимумов десяти массивов, составленных из случайных чисел
Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную...

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


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

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

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