Процедури та функції, які призначені для роботи з випадковими числами. Одержання випадкових чисел з певного діапазону дійсних та цілих чисел.
10-11 класс
|
Random: Возвращает случайное число.
Объявление: Function Random[( Range Word)]: <тип параметра>;
Режим: Windows, Real, Protected
Замечания:
Если параметр Range не определен, то результатом будет случайное число типа Real в диапазоне 0 <= X < 1. Если параметр Range определен, то результатом будет случайное целое число в диапазоне 0 <= X < Range.
Если Range равняется 0, то значение 0 и будет возвращено.
Чтобы инициализировать генератор случайных чисел, вызовите процедуру Randomize или присвойте значение переменной RandSeed.
Пример функции Random
Uses Crt;
Begin
Randomize;
Repeat
{ Выводим текст случайными цветами }
TextAttr:=Random(256);
Write('!');
Until KeyPressed;
End.
(c)http://www.pascal.helpov.net/index/pascal_Random
отсебятинка
поскольку Паскаль язык старый и потому не имеет много удобных свойств, то часто приходится выдумывать колесо или писать много лишнего чтоб получить казалось бы несложный результат.
Например рандом на диапазоне A-Z будет выглядеть так
x:=Random(A+Z)-A; - это для целых чисел
Для дробных будет так
x:=(A+Z)*Random-A;
вообщем совершенно не наглядно что это диапазон
Другие вопросы из категории
совершить следующую последовательность действий: выделить весь документ,
скопировать его, затем вставить (ниже в данном файле), затем найти в документе
определенное слово и сохранить документ. Какими горячими клавишами можно
воспользоваться, чтобы совершить данную последовательность действий?
Вычислить разность между наибольштм и наименьшим элементами массива
Читайте также
документа, в якому міститься його ключовий опис
визначення заголовку вікна в якому відображається документ
позначення тексту, як заголовка
встановлення тексту в комірку таблиці
позначення нового абзацу
2.Який тег вбудовує зображення у файл?
TABLE
ALIGN
IMG
ALT
3.PowerPoint потрібний для створення ....
таблиць із метою підвищення ефективності обчислення формульних виражень
текстових документів, що містять графічні об'єкти
Internet-Сторінок з метою забезпечення широкого доступу до наявної інформації
презентацій з метою підвищення ефективності сприйняття й запам'ятовування інформації
4.Застосування фону до певного слайду в презентації PowerPoint –
формат – фон – застосувати
формат – фон – застосувати до всіх
вставлення – фон
вигляд – оформлення – фон
5.Публікація Microsoft Publisher може містити такі об'єкти:
Таблиці
Ілюстрації
Текстові поля
графічні елементи
розрахункові формули
100. Назовите все отличия функций от процедур?
а) функция передает в точку вызова скалярное значение, а процедура - нет
б) имя процедуры может состоять из трех символов, а функция - нет
в) процедура имеет структуру, повторяющую структуру программы, а в функции отсутствует блок описания переменных
г) имя функции может входить в выражении как операнд
101. С помощью каких параметров происходит передача данных из главной программы в подпрограмму?
а) фактических
б) формальных
в) неформальных
г) подпрограммных
102. Выберите неправильную форму записи оператора цикла
а) WHILE I<5 DO I:=I+1
б) WHILE I<5 DO BEGIN I:=I+1; WRITELN(I); END
в) WHILE I<5 TO BEGIN I:=I+1; WRITELN(I); END
103. Какое выражение обеспечивает генерирование случайных чисел в диапазоне [4,10[
а) 4+RANDOM(6)
б) 6+RANDOM(4)
в) RANDOM(4,6)
104. что означает FV в команде read(FV, x1, x2,..., xn) в Паскале ?
а) формат ввода
б) переменную, связанную с файлом, откуда берется информация
в) фиксированную величину
г) первую переменную величину для ввода информации
105. Каким окажется результат выполнения следующего фрагмента кода X:= 5; Y:= X+1; Writeln('Х=',X, Y=',Y);?
а) X=6 Y=5
б) X=5 Y=5
в) X=5 Y=6
106. Какое значение примет переменная Х после выполнения команды X:=SQR(4)/2*2?
а) 4
б) 2
в) 16
107. Каким окажется результат выполнения следующего фрагмента кода: X:= 5; Y:= 8; Т:= Х; X:=Y; Y:= T; Writeln('Х=', X, Y=',Y);?
а) X=5 Y=8
б) X=8 Y=5
в) X=5 Y=5
108. Логическое выражение
(N Mod 10 Mod 2) Or (N Div 10 Mod 10 Mod 2 = 0) Or (N Div 100 Mod 2 = 0)
должно принимать значение TRUE тогда и только тогда, когда истинно высказывание
а) в трёхзначном натуральном числе все цифры чётные
б) в трёхзначном натуральном числе одна чётная цифра
в) в трёхзначном натуральном числе две чётных цифры
г) в трёхзначном натуральном числе хотя бы одна чётная цифра
109. Цикл в фрагменте программы P := 4; Repeat P := P * 0.1 Until P < 0.0001; будет исполнен?
а) 0 раз
б) 1 раз
в) 4 раза
г) 5 раз
110. Значение R после выполнения операции логического присваивания
R := Not (A Or B Or (X > 2) And (Y < 0))
при A = False, B = False, X = 3, Y = 2 будет равно
а) -1
б) False
в) True
г) 0
111. Значения переменных a и b после выполнения следующих действий
a := 15 Div (16 Mod 7); b := 34 Mod a * 5 - 29 Mod 5 * 2;
будут равны
а) a = 1, b = 160
б) a = 1, b = 4
в) a = 7, b = 25
г) a = 7, b = 22
112. Во фрагмент алгоритма, печатающий все двузначные числа, в записи которых есть цифра N или сумма цифр которых равна самим числам, нужно вписать логическое выражение
а) (P1 = N) Or (P2 = N) And (S = K)
б) (P1 = N) Or (P2 = N) Or (S = K)
в) (P1 = N) And (P2 = N) Or (S = K)
г) ((P1 = N) Or (P2 = N)) And (S = K)
113. Тело цикла в программе a := 1; b := 1; While a + b < 8 Do begin a := a + 1; b := b + 2 end;
выполнится?
а) 1 раз
б) 2 раза
в) 3 раза
г) бесконечное число раз
114. Задана строка St (см Фрагмент алгоритма)
а) определяет количество цифр в строке
б) подсчитывает количество нулей в строке
в) определяет сумму номеров позиций в строке, где стоят цифры
г) подсчитывает сумму цифр в строке;
115. Задан двумерный массив X[1..n, 1..m]. Процедура
а) к элементам столбцов в первой половине матрицы прибавляет элементы первого столбца соответствующей строки
б) добавляет к матрице еще M столбцов с элементами, равными соответствующим элементам первого столбца
в) к элементам четных столбцов прибавляет элементы первого столбца соответствующей строки
г) к элементам четных строк прибавляет элементы первой строки соответствующего столбца;
116. Задан двумерный массив X[1..n, 1..m]. Функция возвращает значение
а) True, если все элементы массива ненулевые
б) True, если в массиве есть элемент, равный нулю
в) False, если в массиве есть элемент, равный нулю
г) Not t;
117. Значение R после выполнения операции логического присваивания
R := Not (A Or B Or (X > 2) And (Y < 0))
при A = False, B = False, X = 3, Y = 2 будет равно
а) 1
б) False
в) True
г) 0
118. В каком фрагменте программы подсчитывается сумма элементов квадратной матрицы, расположенных выше главной диагонали?
а) For i:= 1 to n do
For j:= 1 to n do
If i<=j then
S:=s+a[I,j];
б) For i:= 1 to n do
For j:= i+1 to n do
S:=s+a[I,j];
в) For i:= 1 to n do
For j:= 1 to n do
If i>j then
S:=s+a[I,j];
при помощи случайных чисел, и для каждого элемента массива вывести его восьмеричное представление
2. Составить программу для упорядоченное двух элементов по убыванию.