Mi a megoldása ennek a feladatnak? (Pascal)

Ha Free Pascalt lehet használni, akkor én így csinálnám:

[code]

program darabol;

{$mode objfpc}{$H+}

uses Classes, SysUtils;

var

szoveg : string;

szovegtar : TStringList;

begin

WriteLn('Kérem a max. 100 karakter hosszú szöveget: ');

ReadLn(szoveg);

szovegtar:=TStringList.Create;

ExtractStrings( [' '], [], PChar(szoveg), szovegtar);

Writeln('A szavak száma: ',szovegtar.count);

szovegtar.free;

readln;

end.

[/code]

Ha Turbo Pascalban kell, akkor szét lehet vágni a szöveget a szóközöknél a Pos, Copy, Delete függvényekkel illetve eljárásokkal. Vagy, ha feltételezzük, hogy az első szó előtt illetve az utolsó szó után nincsen szóköz, akkor a Pos-al meg lehet keresni szépen egyesével a szóközöket, majd a talált pozíción törölni a szóközt, növelni egy számláló értékét, aztán ezt ismételgetni addig amíg a pos ad vissza 0tól nagyobb értéket. A végén persze még egyet hozzá kell adni majd a számlálóhoz, hogy az utolsó szó is bele legyen számolva.

Hát ennyire szerencsétlen nem lehetsz. Tessék, az alábbi linkről letöltheted a programot:

*****

Benne van a forráskód, és a futtatható fájl is.