игра УГАДАЙ ЖИВОТНОЕ

[midiss]

Более и или менее получилась, но еще надо добавить. чтобы находились и выводились животные с одинаковыми признакми

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f : textfile;
  t, s, c : string;
  i, k, p, r, a, j, b, l, h : integer;
  m : array [1..6] of string;
  d : array [1..9] of integer;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  AssignFile(f, 'D:\zoo.txt');
  Reset(f);
  while not EOF(f) do
  begin
     readln(f, t);
     s := s + t + ' ';
  end;
  closefile(f);
 
  for i := 0 to 10 do
  for k := 0 to 5 do
  begin
     p := pos(' ', s);
     c := copy(s, 1, p-1);
     delete(s, 1, p);
     stringgrid1.Cells[k, i] := c;
  end;
 
  label1.Caption := 'Загадай животное и начни игру!!!';
 
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   m[l] := edit1.text;
   a:=0;
   if(h = 0)and(b<6) then
   begin
        a:=0;
        for i := 1 to 10 do
         if m[1] = stringgrid1.Cells[b, i] then
         begin
            a := a +1;
            j := i;
         end;
         if a = 0 then begin
              label1.Caption := 'такого животного в зоопарке нет';
               h:=1;
                  end;
         if a = 1 then begin
             label1.Caption := 'Это ' + stringgrid1.Cells[0, j];
                h:=1;
                      end;
         if a > 1 then begin b:=b+1;
                   label1.Caption := stringgrid1.Cells[b,0];
                       end;
        
   end
  else
  if h=1 then
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
   label1.Caption := stringgrid1.Cells[1,0];
   b := 1;
   l := 1;
   h := 0;
   
end;
 
end.

[phomm]

Молодцом ! © Хэнкок

От нас какие нужны ответы ) ?

Понять всю красоту игры нельзя без всех файлов проекта и файла zoo.txt (залей всё вместе в архив и сюда вложением) - особенно если будешь задавать какие-то ещё вопросы.

И помни , надо оформлять код тегом кода, кнопочкой с решеткой #

Удачи )

[midiss]

понятненько, вот

надо добавить чтобы выводило "животное1" или "животное2"

[3D Hunter]

Запусти и... закрыл. Ничего не понятно, для кого игра сделана, остается догадываться

[ИгорьСон]

мммммм она не работает, даже не спрашивает "Млекопитающее или нет?"