задача на строки в делфи

[Chudo4258]

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

а как всё-таки заменить "Result := IntToStr(kol+1)" по более простому?

STR(k+1,Result);

[Serge_Bliznykov]

или процедуру find заменить на такую:

function find(s: string): integer;
var
    i, kol: integer;
begin
    kol := 0;
    for i := 1 to Length(S) do
    begin
        if s[i] = ' ' then
        Inc(Kol)
    end;
    Result := kol+1;
end;

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

  writeln( find(s) );

[Dinamit_92]

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

[Serge_Bliznykov]

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

Ну и не стыдно Вам?! Неужели Вы ВООБЩЕ ничегощеньки не понимаете? Просто набор каких-то непонятных строчек, буковок и циферок?!
Настолько непонятных, что не ясно, где функция, а где её вызов?!

Ладно, мне не сложно. Боюсь только, что Вам это вряд ли поможет, с таким то отношением..

вот полностью код (консольное приложение в Delphi):

program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s: string;

function find(s: string): integer;
var
    i, kol: integer;
begin
    kol := 0;
    for i := 1 to Length(S) do
    begin
        if s[i] = ' ' then
        Inc(Kol)
    end;
    Result := kol+1;
end;

begin
  WriteLn('Vvedite stroku: ');
  Readln(s);
  writeln('Kolichestvo = ', find(s) );
  Readln;
end.