Цитата:
Сообщение от hamekadze
Проблема не могу правильно прописать программу.
Вот условие "Написать циклический алгоритм, позволяющий угадать некоторое число(от 1 до 100) за строго определённое количество попыток" И нужна ещё защита от не корректного ввода. (букв,знаков,и чисел не входящих в рамки)
|
Да без проблем - пожалуйста:
Код:
VAR
N_attempt,Num,Attempts:BYTE;
N:Integer;
IOres:Word;
BEGIN
{$I-}
Randomize;
Num:=Random(100)+1;
Write('How many attempts? ');
ReadLn(N_attempt);
Attempts:=0;
Repeat
Inc(Attempts);
Write('New attempt: ');
Repeat
ReadLn(N);
IORes:=IOResult;
If (IOres>0) or (N<1) or (N>100) then
Write('Incorrect input! Try another: ');
Until (IOres=0) and (N>0) and (N<101);
If N=Num then
Writeln('You won!!!')
Until (N=Num) or (Attempts=N_attempt);
If (Attempts=N_attempt) and (N<>Num) then
WriteLn('You lost! The number to guess was ',Num);
ReadLn;
END.