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

[Dinamit_92]

Hacker19_90

извини,но можешь сам...а то я пока нифига не понял...плиз

[Hacker19_90]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s: string;
  v: string;
function find(s: string): string;
var
    i, kol: integer;
begin
    kol := 0;
    for i := 1 to Length(S) do
    begin
        if s[i] = ' ' then
        Inc(Kol)
    end;
    Result := IntToStr(kol+1);
end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  s:= 'sfdf sdfsdf';
  v:= find(s);
  writeln(v);
  Readln;
end.

Ну вот так примерно!

[Dinamit_92]

извиняюсь за назойливость,но как вот это объяснить,можетя нуб.. s:= 'sfdf sdfsdf';...там же пользователь ее вводит


или можно подписать каждую строчку..ммм...расшифровать(

[Hacker19_90]

Readln (s);

[Dinamit_92]

вооо,спасиб,терь понял))чет не катит мне понять прогу(хотя..как объяснять....вообщем спс огромное

еще вопрос,что значит "IntToStr"?как заменить чтобы не придирались?(

[Serge_Bliznykov]

IntToStr - это преобразовать целое числовое значение в строковый вид (т.е. представить число в виде строки)

заменить можно на Str()
а можете использовать функцию Format()

А чем Вам бедный IntToStr не угодил?!..

[Dinamit_92]

я такое вижу в первый раз,мы такого нигде не писали!могут докопаться(перестраховываюсь

[chertovich]

  function GetCountWord(Str: String): Integer;

...

function GetCountWord(Str: String): Integer;
var
  S: String;
begin
  S := Trim(Str);

  result := 0;

  while Pos(' ', S) <> 0 do
  begin
    Inc(result);
    S := Trim(S);
    Delete(S, 1, Pos(' ', S) - 1);
  end;

end;

Но, разумеется, если слово будет без пробела то будет получаться результат 0

[Utkin]

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

я такое вижу в первый раз,мы такого нигде не писали!могут докопаться(перестраховываюсь

Это одна из стандартных и часто используемых функций. То что ты ее не проходил еще не означает, что ты не имеешь право ей пользоваться. Могу тебе выдернуть из юнита - обзовешь по-другому . Скажешь сам придумал .

[Dinamit_92]

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