TURBO PASCAL:Учебное пособие. Терёхин В.В. - 83 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

83
Если диапазон не указан, то возвращается вещественное число
в пределах от 0 до 1, иначе в пределах от 0 до range-1.
Примеры:
program р32;
Uses Crt;
begin
Randomize;
repeat
TextAttr:= Random(256);
Write('!');
until KeyPressed;
end.
program p33;
var
S, x: real;
begin
Randomize;
S:= 0;
repeat
x;= random;
Writeln('x=', x:6:4, ' sin(x)=' , sin(x):6:4);
S: = S + x;
until S > 3.14 * 100;
end.
Задачи для самостоятельного решения
1, Написать программу, по которой компьютер ге-
нерирует последовательность из 20 случайных чисел в диапа-
зоне [-100, 100] и подсчитывает сумму тех из них, которые без
остатка делятся на 2 и не делятся на 5.
2. Написать программу, проводящую тестирование ученика на
знание таблицы умножения. Опрос продолжается до тех пор,
пока не будет получено 5 верных ответов подряд. Сколько во-
просов было задано? 
Если диапазон не указан, то возвращается вещественное число
в пределах от 0 до 1, иначе в пределах от 0 до range-1.
       Примеры:
program р32;
Uses Crt;
begin
   Randomize;
   repeat
      TextAttr:= Random(256);
      Write('!');
   until KeyPressed;
end.

program p33;
var
   S, x: real;
begin
   Randomize;
   S:= 0;
   repeat
      x;= random;
      Writeln('x=', x:6:4, '   sin(x)=' , sin(x):6:4);
      S: = S + x;
   until S > 3.14 * 100;
end.

            Задачи для самостоятельного решения
1, Написать программу, по которой компьютер ге-
нерирует последовательность из 20 случайных чисел в диапа-
зоне [-100, 100] и подсчитывает сумму тех из них, которые без
остатка делятся на 2 и не делятся на 5.
2. Написать программу, проводящую тестирование ученика на
знание таблицы умножения. Опрос продолжается до тех пор,
пока не будет получено 5 верных ответов подряд. Сколько во-
просов было задано?
                                                            83

Страницы