Question

В 9 СТРОЧКЕ ВЫДАЁТ ОШИБКУ КОМП ПИШЕТ «ФУНКЦИЯ RANDOM С ПАРАМЕТРАМИ УКАЗАННЫХ ТИПОВ НЕ НАЙДЕНА» ПОМОГИТЕ!!! 1. program chislo; 2. var n, k, i, raz:integer; 3. begin 4. write (сколько чисел нужно сгенерировать ? ); 5. readln (n); 6. write('число которое нужно посчитать (k) :) : 7. readln (k); 8. for i:=1 to n do 9. if (random(0,100)) =k 10. then raz:-raz+1; 11. writeln ( 'из ,n, cгенирировандных чисел число 1 , k, встретилось , raz, раз'); end.

Answer 1

//Попробуйте мой вариант:

program chislo;

var n, k, i, raz:integer;

begin

   write('Сколько чисел нужно сгенерировать: ');

   readln(n);

   write('Число которое нужно посчитать (k): ');

   readln(k);

   for i:=1 to n do

       if random(0,100) = k then

           raz:=raz+1;

   writeln( 'Из ', n, ' cгенирировандных чисел число ', k, ' встретилось ', raz, ' раз(а)');

end.

Answer 2

Ответ:

Для Turbo Pascal

randomize;

x :=random (101)

по шаблону x:=random (max-min+1)+min

Для Pascal ABC  

randomize;

x :=random (0,100)

Answer 3

Проблема в вашем коде связана с использованием функции random с неправильными параметрами. В Pascal функция random принимает один параметр - целое число, которое определяет максимальное значение для генерируемого случайного числа. Если вам нужно сгенерировать случайное число от 0 до 100, то нужно использовать random(101), так как random генерирует числа от 0 до значения параметра минус 1.

Кроме того, у вас есть некоторые синтаксические ошибки, такие как отсутствующая закрывающая кавычка во второй строке после текста 'число которое нужно посчитать (k) :)' и неправильное присвоение значения переменной raz в строке 10. Вместо raz:-raz+1 следует использовать raz := raz + 1.

Вот исправленный код:

pascalCopy code
program chislo;
var
  n, k, i, raz: integer;

begin
  raz := 0;
  write('Сколько чисел нужно сгенерировать? ');
  readln(n);
  write('Число которое нужно посчитать (k): ');
  readln(k);

  for i := 1 to n do
    if random(101) = k then
      raz := raz + 1;

  writeln('Из ', n, ' сгенерированных чисел число ', k, ' встретилось ', raz, ' раз');
end.

Теперь код должен работать корректно и генерировать случайные числа от 0 до 100, подсчитывая количество вхождений числа k из общего числа сгенерированных чисел.