Pascal--->Delphi.

[MoxFalder]

помогите с задачкой.Нужно перевести в Delphi...
Задача:
Написать программу, играющую с пользователем в "угадайку" - пользователь загадывает число, компьютер пытается его отгадать. Компьютер называет свои варианты, а пользователь отвечает лишь "больше" либо "меньше". Для организации диалога воспользоваться функцией InputBox.

type
  TGameApp = object(TApplication)
    procedure HandleEvent(var Event: TEvent); virtual;
    procedure InitMenuBar; virtual;
    procedure InitStatusLine; virtual;

    procedure RunGame;
  end;

procedure TGameApp.RunGame;

  function IntToStr(n: Longint): String;
  var st: string;
  begin
    Str(n, st);
    IntToStr := st;
  end;

var
  minValue, maxValue: Integer;
  finished: boolean;
  s: string;
  num: integer;
begin
  finished := false;
  minValue := 0; maxValue := 100; { интервал - от 0 до 100 }
  { здесь получаем число num в интервале minValue .. maxValue }

  repeat
    s := '';
    InputBox(IntToStr(num), 'Input <, =, or >', s, 255); { <--- получаем от пользователя ответ: < = > }

    case s[1] of
      '<':
      begin
            {
              загаданное число меньше выданного компьютером;
              изменяем границы интервала, получаем новое число num...
            }
      end;

      '=':
      begin
            { загаданное число равно выданному компьютером, можно вывести приветствие и выходить }
            finished := true;
      end;

      '>':
      begin
            {
              загаданное число больше выданного компьютером;
              изменяем границы интервала, получаем новое число num...
            }
      end;
    end;
  until finished;

end;

procedure TGameApp.HandleEvent(var Event: TEvent);
var
  R: TRect;
begin
  inherited HandleEvent(Event);
  if Event.What = evCommand then
  begin
    case Event.Command of
      cmStartGame:
        begin
          RunGame;
          ClearEvent(Event);
        end;
    end;
  end;
end;

[MoxFalder]

Вот тут какойто набросак начирикал,но он естественно не правельный :D
Я в этом деле навичек и мало соображаю Пожалуйсто очень нужно...

procedure TForm1.Button1Click(Sender: TObject);
var num,a:integer;S:string;
begin
num:=StrToInt(Edit1.Text);
a:=0;
Randomize;
num:=Random(90)+10;
repeat
if num>a then begin
S:=inputbox('neverno','4islo','menwe');
a:=StrToInt(S);
if num<a then begin
S:=input('neverno','4islo','menwe');
a:=StrToInt(S);
until
num=a;
end;
end;
end.

[MoxFalder]

Ребята подскажите где ошибки

[SERG1980]

А не наоборот надо, чтобы комп загадал число а выего угадали?

[MoxFalder]

Сообщение от SERG1980

А не наоборот надо, чтобы комп загадал число а выего угадали?

Нет..В чем вся фишка.Ты загадываеш комп отгадывает.Ты ему тока сообщаешь больше или меньше

[SERG1980]

Так сгодится?

implementation

{$R *.dfm}
 var numUser,numKomp,mem1,mem2:integer;
procedure TForm1.Button1Click(Sender: TObject);
var otvet:string;
begin
numUser:=StrToInt(Edit1.Text);
numKomp:=0;
mem1:=0;
mem2:=100;
Randomize;
numKomp:=Random(100);
repeat
 otvet:=InputBox('Число','Моё число: '+inttostr(numKomp),'');
 if otvet='меньше' then
 begin
  mem2:=numKomp;
 end;
 if otvet='больше' then
 begin
  mem1:=numKomp;
 end;
 numKomp:=RandomRange(mem1,mem2);
until (otvet='да')or(otvet='выход');
end;

[MoxFalder]

Сообщение от SERG1980

Так сгодится?

implementation

{$R *.dfm}
 var numUser,numKomp,mem1,mem2:integer;
procedure TForm1.Button1Click(Sender: TObject);
var otvet:string;
begin
numUser:=StrToInt(Edit1.Text);
numKomp:=0;
mem1:=0;
mem2:=100;
Randomize;
numKomp:=Random(100);
repeat
 otvet:=InputBox('Число','Моё число: '+inttostr(numKomp),'');
 if otvet='меньше' then
 begin
  mem2:=numKomp;
 end;
 if otvet='больше' then
 begin
  mem1:=numKomp;
 end;
 numKomp:=RandomRange(mem1,mem2);
until (otvet='да')or(otvet='выход');
end;

Там надо сделать както через inputbox,что-то вроде диолога...

[SERG1980]

Дык у меня вроде через инпутбокс вы прикреплённый файл, откомпилируйте и посмотрите в работе

[puporev]

Компьютер должен играть как сообразительный человек, т.е. не случайные числа из интервала выкидывать, а брать "Интервал" div 2.

[MoxFalder]

Сообщение от SERG1980

Дык у меня вроде через инпутбокс вы прикреплённый файл, откомпилируйте и посмотрите в работе

Спасибо за помощь!Завтро с утра посмотрю,а то тока с работы пришел и голова забита разной херней