Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
kirill1059
14 / 14 / 2
Регистрация: 16.04.2013
Сообщений: 379
#1

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

02.09.2013, 21:52. Просмотров 518. Ответов 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):

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

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

Сформировать массив случайных целых чисел по заданному правилу - Pascal
Дан двумерный массив случайных целых чисел от 4 до 25 Matrix. Сформировать новый массив Mix, элементы которого образуются из массива Matrix...

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

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

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

3
Kodzaev
3000 / 1889 / 611
Регистрация: 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
Модератор
52834 / 40645 / 13893
Регистрация: 18.05.2008
Сообщений: 94,296
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 / 2
Регистрация: 16.04.2013
Сообщений: 379
03.09.2013, 17:23  [ТС] #4
спасибо, помогли)
0
03.09.2013, 17:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.09.2013, 17:23
Привет! Вот еще темы с ответами:

В конец существующего файла целого типа добавить 10 случайных значений - Pascal
Помогите написать программу которая в конец существующего файла целого типа добавляет 10 случайных значений

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

Сформировать новый массив из значений исходного массива больших 11 - Pascal
Здравствуйте, помогите пожалуйста с решением задачи: Дан целочисленный линейный массив, содержащий N элементов и заполненный с клавиатуры....

Сформировать одномерный массив из разницы максимальных и минимальных значений - Pascal
Есть задача. Нужно ввести двухмерный массив.Сформировать одномерный массив из разницы максимальных и минимальных значений в каждой...


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

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

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