Я писал программу в Паскале 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 (n>=0) then k1:=k1+1;
x:=random ((max-min+1) + min) ;
writeln (x) ;
until k1=n;
end.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Я писал программу в Паскале ABC для произвольного промежутка [a:b] и для произвольного количества случайных чисел. В качестве примера я ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Выдает ошибку Операция > не может быть применена к типам boolean и integer Program qq; var a, b, c, max, min, med : integer; begin writeln ('введите три числа') ; read (a, b, c) ; if c>b>a then begin max : = c; med : = b; min : = a; End;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.
Ответы (2)
Где ошибка? Sub сер Dim x, y, z, f, max, min As Single x = Val (InputBox (2)) y = (InputBox (6)) z = (InputBox (10)) If x / 2 > y / 3 > z / 4 Then If x / 2 > y / 3 Then max = x / 2 Else max = y / 3 End If End If Else If y / 3 > z / 4 Then max =
Ответы (1)
Помогите с ответом
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
23 березня. Класна робота. Приклади№813. 82*67 55*74 78*39 75*34 Задача№815. Маса 1/2 кавуна станоаить 2 кг. 600 г. Яка маа 1/5 кавуна?
Нет ответа
Сравните числа а) 12,15 12,71 б) 0,582 0,59 в) 28,154 28,54 г) дробь 9/100 0,09
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
количество энергетических уровней и внешних электронов в атоме углерода 1) 2,2 2) 2.4 3) 3.4 4) 3.6
Нет ответа