Итоги первого модуля Функция random Существует две

Итоги первого модуля

Функция random Существует две функции с таким именем: function random(): real; Возвращает случайные положительные вещественные числа меньшие 1. function random(m: integer): integer; Возвращает случайные положительные целые числа меньшие m.

Варианты использования функции random Двоичные цифры: fig 2 : = random(2); Случайные оценки от 2 до 5: mark: =2+random(4); Температура хворих у лікарні: t: =35+random()*5;

Угадайка(Цикл со счетчиком) function how. Many. Times( n : integer ) : integer; begin randomize(); result: =0; while random(100)<>n do result: =result+1; end;

Среднее арифметическое (Цикл с накоплением суммы) function average( n : integer ) : real; var sum: real; count: integer; begin count : = n; sum : = 0; while count > 0 do begin sum : = sum + random(); count : = count -1; end; result : = sum / n; end;

Факториал (Цикл с накопиченням добутку) function factorial( n : integer ) : int 64; var p: int 64; count: integer; begin count : = n; p : = 1; while count > 1 do begin p : = p * count; count : = count -1; end; result : = p; end;

Пошук мінімального у послідовності чисел function find. Min( n : integer ) : real; var x, min: real; cnt: integer; begin randomize(); min: =1; cnt : =0; while cnt < n do begin if x

Пошук мінімального та максимального у послідовності procedure min. Max( n: integer; var mn, mx: real); var x : real; cnt : integer; begin randomize(); mn : =1; mx : =0; cnt : =0; while cnt < n do begin if xmax then max : =x; cnt: =cnt+1; end;

Обмін значеннями між змінними procedure change(var a, b: real); var x : real; begin x : = a; a : = b; b : = x; end;

Сколько цифр в целом числе? function num. Of. Fig(n : integer) : integer; begin result: =0; repeat n: =n div 10; result: =result+1; until n=0; end;

Найти сумму цифр в числе function sum. Of. Fig( n : integer ) : integer; begin result: =0; while abs(n)>0 do begin result : = result + (n mod 10); n : = n div 10; end;

Тест Найти значения переменных “х” и “у” после выполнения приведенного фрагмента программы, при различных значениях “a” и “b”. x: =0; y: =0; if a>b then x: =1; y: =2; ? ? x ? ? y ? ?

Тест Найти значения переменных “х” и “у” после выполнения приведенного фрагмента программы, при различных значениях “a” и “b”. x: =0; y: =0; if a>b then x: =1; y: =2; a>b a<=b x ? ? y ? ?

Тест Найти значения переменных “х” и “у” после выполнения приведенного фрагмента программы, при различных значениях “a” и “b”. x: =0; y: =0; if a>b then x: =1; y: =2; a>b a<=b x 1 0 y 2 2

Тест Найти значения “х” и “у” после выполнения приведенного фрагмента программы, при различных значениях “a” x и “b”. x: =0; y: =0; if a<>b then x: =1 else x: =2; y: =3; y ? ? ?

Тест Найти значения “х” и “у” после выполнения приведенного фрагмента программы, при различных значениях “a” x и “b”. x: =0; y: =0; if a<>b then x: =1 else x: =2; y: =3; y a=b a<>b ? ?

Тест Найти значения “х” и “у” после выполнения приведенного фрагмента программы, при различных значениях “a” и “b”. x x: =0; y: =0; if a<>b then x: =1; y: =2; else x: =2; y: =3; y a=b a<>b ? ?

Тест var i: integer; … x: =1; case i of 1: x: =10*i; 2: x: =25*i; else x: =100; end; i x

Тест var i: integer; … x: =1; case i of 1: x: =10*i; 2: x: =25*i; else x: =100; end; i x 1 2 > 2 < 1

Тест var i: integer; … x: =1; case i of 1: x: =10*i; 2: x: =25*i; else x: =100; end; i x 1 1 0 2 5 0 > 1 2 0 0 < 1