Я писал программку в Паскале ABC для случайного интервала [a:b] и
Я писал программку в Паскале ABC для случайного интервала [a:b] и для произвольного количества случайных чисел.
В качестве образца я брал промежуток [1:3] , в данном промежутке могут быть только числа 1,2 и 3, но когда я проверял мне даже выдавало 0.
Поглядите, может в мою программку влезла ошибка
program m_1;
var n, k1, x, max, min: integer;
begin
randomize;
writeln ('Случайные числа из интервала [a;b]');
write ('Введи малое значение интервала - ');
read (min);
write ('Введи наибольшее значение промежутка - ');
read (max);
write ('Введи кол-во случайных чисел - ');
read (n);
k1:=0;
repeat
if (ngt;=0) then k1:=k1+1;
x:=random((max-min+1)+min);
writeln (x);
until k1=n;
end.
program m_1;
var n, k1, x, max, min, i: integer;
begin
writeln ('Случайные числа из промежутка [a;b]');
write ('Введи минимальное значение промежутка - ');
read (min);
write ('Введи максимальное значение интервала - ');
read (max);
write ('Введи кол-во случайных чисел - ');
read (n);
for i:=1 to n do
begin
x:=random(max-min+1)+min;
write (x,' ');
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.