В 9 Строке ВЫДАЁТ ОШИБКУ Компьютер ПИШЕТ ФУНКЦИЯ RANDOM С ПАРАМЕТРАМИ

В 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.

Задать свой вопрос
2 ответа

Ответ:

Для Turbo Pascal

randomize;

x :=random (101)

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

Для Pascal ABC  

randomize;

x :=random (0,100)

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

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.

Диман Оцапюк
Что изменилось?
Алла Маркосова
Я исправил несколько маленьких ошибок (поставил апострофы, где их не хватало, в 6-ой строке в конце поставил заместо ":" точку с запятой и т.д.). Оплошности, связанной с функцией random, у меня не было, да и очень особенно, что она появилась у Вас.
Дюжаков Генка
Не в этом ошибка
Антонина Василюк
Там ошибка в 9 строке
Ленка
В 9 Строке ВЫДАЁТ ОШИБКУ Компьютер ПИШЕТ ФУНКЦИЯ RANDOM С ПАРАМЕТРАМИ УКАЗАННЫХ ТИПОВ НЕ НАЙДЕНА
Дарина Вирс
Оплошности, связанной с функцией random, у меня не было
Василий Рудянок
А тут фотку где-нибудь популярно сбросить?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт