Программа с case

[vika18]

Помогите решить задачу,а то я понятия не имею
Для натурального числа напечатать фразу «мы нашли грибов в лесу», согласовав окончание слова «гриб» с числом . Использовать оператор выбора case. Использовать оператор выбора case.

[DIMASIKXXX32]

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

Помогите решить задачу,а то я понятия не имею
Для натурального числа напечатать фразу «мы нашли грибов в лесу», согласовав окончание слова «гриб» с числом . Использовать оператор выбора case. Использовать оператор выбора case.

Я предполагаю типа такого что то должно быть или нет.

procedure TForm1.Button1Click(Sender: TObject);
  var
    CountGrib:  Integer;
  begin
    CountGrib :=  StrToInt(Edit1.Text);
    case CountGrib of
      1:Label2.Caption:='мы нашли '+IntTostr(CountGrib)+' гриб в лесу';
      2..4:Label2.Caption:='мы нашли '+IntTostr(CountGrib)+' гриба в лесу';
      0,5..20:Label2.Caption:='мы нашли '+IntTostr(CountGrib)+' грибов в лесу';
    end;

  end;

[vika18]

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

Я предполагаю типа такого что то должно быть или нет.

procedure TForm1.Button1Click(Sender: TObject);
  var
    CountGrib:  Integer;
  begin
    CountGrib :=  StrToInt(Edit1.Text);
    case CountGrib of
      1:Label2.Caption:='мы нашли '+IntTostr(CountGrib)+' гриб в лесу';
      2..4:Label2.Caption:='мы нашли '+IntTostr(CountGrib)+' гриба в лесу';
      0,5..20:Label2.Caption:='мы нашли '+IntTostr(CountGrib)+' грибов в лесу';
    end;

  end;

Спасибо Всё работает,но я уже сама поняла

[Serge_Bliznykov]

решение хорошее, но совсем не универсальное..
ну хорошо, если нашли от 0 до 20 грибов, а если 30-40-70-100... грибов? Пусть все свыше 20 выбрасывают, т.к. программа их не учитывает?

я бы предложил примерно такой вариант:

procedure TForm1.Button1Click(Sender: TObject);
  var
    CountGrib :  Integer;
    s : string;
  begin
    CountGrib :=  StrToInt(Edit1.Text);
    s := 'мы нашли '+ IntTostr(CountGrib)+' ';

    if ( (CountGrib mod 100) >= 10) and ((CountGrib mod 100)  <= 20) 
                 then s := s + 'грибов'
    else
    case ( CountGrib mod 10 ) of
      1: s := s + 'гриб';
      2..4: s := s + 'гриба';
      0,5..9: s := s + 'грибов';
    end;
    Label2.Caption := s +  ' в лесу';
  end;