функция random



функция рандом в паскале

Автор 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 вроде так

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как в Паскале использовать функцию Random?
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*