функция рандом в паскале
Автор Alex777 задал вопрос в разделе Другие языки и технологии
Как в Паскале использовать функцию Random? и получил лучший ответ
Ответ от Александр Осипов[гуру]
Вот пример такой программы: VAR x,p,i:integer; BEGIN Randomize; {Чтобы каждый раз числа новые были} x:=random(10)+1; {+1 потомую что random возвращает от 0} Writeln('Компьютер задумал число от 1 до 10'); Writeln('Угадайте его за 3 попытки'); for i:=1 to 3 do begin write('x='); readln(p); if p = x then break else if p>x then writeln('Задуманное число меньше') else writeln('Задуманное число больше'); end; if p = x then WriteLn('ВЫ УГАДАЛИ! ') else WriteLn('Вы не угадали. Задуманное число ',x); END.
Ответ от Step[гуру]
Randomize; x:=random(i); выдаст в диапазоне 0....i вроде так
Randomize; x:=random(i); выдаст в диапазоне 0....i вроде так
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как в Паскале использовать функцию Random?