Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Отгадать число

Автор: GreMail 21.12.2006, 20:26

написать программу, за наименьшее число ходов отгадывающую число, задуманное пользователем. На каждом шаге программа печатает одно число, а пользователь вводит один, если задуманное число больше напечатанного, (-1), если число меньше и 0, если число угаданно.

Автор: Rodman 21.12.2006, 21:45

Код


var i,j,y:integer;
begin
 clrscr;
  randomize;
  j:= random(99)+1;
  repeat
      writeln('Enter number');
      readln(i);
      if(i=-1)then
           j:=j/2;
      if(i=1)then
           j:=j+j/2 ;
  until (i=0);
  writeln(j);
end.

вроде так, не проверял

Автор: HmeL 22.12.2006, 14:30

Rodman, да, только немного подправить:

Код


repeat
writeln('Enter number');
readln(i);
if(i=-1)then
j:=j/2;
if(i=1)then
j:=j+j/2 ;
until (i=0);
writeln(j);

меняем на:

Код


repeat
writeln(j,"?");
writeln('Enter number');
readln(i);
if(i=-1)then
j:=j/2;
if(i=1)then
j:=j+j/2 ;
until (i=0);