воскресенье, 25 декабря 2011 г.

Pascal: Угадай число!

Привет какдела, в этом воскресном посту, я расскажу как написать простую и интересную игру на паскале.
Блок-схема игры


Игра будет называться "Угадай число".
сразу пишем:
program ugadai_chislo;
затем указываем переменные:
var
a,b,c:integer;
теперь можно начинать:
begin
задаем, "число a" - произвольное число от 1 до 100, а "число c" равное 0:
a:=random(100)
c:=0
Начинаем цикл с пост условием,
берем значение "числа b" с клавиатуры, проверяем его, и если a=b, выходим из цикла
repeat
readln(b);
c:=c+1;
if a<b then writeln('Загаданное число меньше') else
if a>b then writeln('Загаданное число больше');
until a=b;
Программа повторяет цикл, пока вы не отгадаете число, загаданное компьютером, а когда вы его отгадаете надо написать об этом и показать статистику:
writeln('Число угадано!');
writeln('Время: ',Milliseconds/1000);
writeln('Попыток: ',c);
Осталось только завершить программу:
end. 
На всякий случай выложу весь код здесь

UPD: Сидя без инета, дописал игру, код здесь