Я писал программу в Паскале ABC для произвольного промежутка [a:b] и для произвольного...

0 голосов
24 просмотров

Я писал программу в Паскале 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.


Информатика (513 баллов) | 24 просмотров
0

можешь дать условие задачи?

0

а всё не надо я понял прости)

0

:)

0

просто непонятно, вроде бы все правильно написал, но получаются неверные ответы

0

есть подозрение, что может паскаль у меня кривой, заново может мне его скачать

Дан 1 ответ
0 голосов
Правильный ответ

Так будет проще ну по мне так это проще

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.

(216 баллов)
0

:)

0

просто я не догоняю почему мой не работает

0

нуу

0

эт я тоже не особо догоняю

0

да уж,

0

блин, я ведь допер в чем ошибка

0

x:=random((max-min+1)+min); я здесь лишних скобок понаставил

0

вот от куда нули повзялись

0

хех

0

это молодец что сам допёр)