В 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.
Ответы
Ответ дал:
0
//Попробуйте мой вариант:
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.
Ответ дал:
0
Не в этом ошибка
Ответ дал:
0
Там ошибка в 9 строке
Ответ дал:
0
В 9 СТРОЧКЕ ВЫДАЁТ ОШИБКУ КОМП ПИШЕТ «ФУНКЦИЯ RANDOM С ПАРАМЕТРАМИ УКАЗАННЫХ ТИПОВ НЕ НАЙДЕНА»
Ответ дал:
0
Ошибки, связанной с функцией random, у меня не было
Ответ дал:
0
А тут фотку где-нибудь модно скинуть?
Ответ дал:
0
Ответ:
Для Turbo Pascal
randomize;
x :=random (101)
по шаблону x:=random (max-min+1)+min
Для Pascal ABC
randomize;
x :=random (0,100)
Вас заинтересует
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад