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

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

02.09.2013, 21:52. Просмотров 529. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сформировать ряд случайных булевых значений (Pascal):

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

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

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

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

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

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

3
Kodzaev
3002 / 1891 / 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
Модератор
54144 / 41777 / 28883
Регистрация: 18.05.2008
Сообщений: 98,325
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
Привет! Вот еще темы с решениями:

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

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

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

Сгенерировать 10 случайных значений в диапазоне от -30 до 150 и вывести кратные 3-м
Помогите делать задание, пожалуйста: сгенерировать 10 случайных значений в...


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

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

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