написать на паскале программу генератора случайных чисел. помогите срочно надо.
5-9 класс
|
var
n, min, max, i: integer; {min - минимальное значение диапазона, max - максимальное, n - количество генерируемых случайных чисел}
begin
writeln('Введите, сколько нужно сгенерировать случайных чисел');
readln(n);
writeln('Введите, в каком диапазоне генерировать случайные числа');
readln(min, max);
randomize;
for i:= 1 to n do
writeln(random(max - min) + min);
end.
Другие вопросы из категории
каждый день тренировки? Какой суммарный путь пробежит спортсмен за 7 дней?
Написать программу в Паскале
Как сделать объемную фигуру в программе ЧЕРТЁЁЁЖНИК???????
ПОЖАЛУЙСТА,дайте мне координатыы)
Читайте также
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}
Var Rand: array[1..20] of integer;
I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
Randomize;
{Заполнение массива случайными числами и вывод их на экран}
Writeln(‘Массив случайных чисел:’)
For I:=1 to 10 do
begin
Rand[I]:=random(50); Write(Rand[I]:4)
End;
Writeln;
{Ввод Х}
Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
NumberX:=0;
For I:=1 to 10 do
If Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
If NumberX=0
Thenwriteln(‘В массиве нет числа’,X)
Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.
созданной программы не менее трех тестов и проверить на них правильность работы алгоритма.
БЕЗ МАССИВА
ПОЖАЛУЙСТА
+194884839383948 К КАРМЕ ТОМУ КТОНАПИШЕТ