Pascal - Konsolowe

Zliczanie słów

Zliczanie słów
Pascal - Konsolowe

Program: zliczający ilość słów w wprowadzonym tekście.

Użytkownik wprowadza tekst, po czym problem zlicza ilość słów.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program slowa;
uses crt;
var tekst:String;
    wyraz,i:integer;
begin
     clrscr;
     Write('Wprowadź tekst: ');
     read(tekst);
     for i:=1 to length(tekst) do if tekst[i]=' ' then wyraz:=wyraz+1;
     Write('Wprowadziłeś ',wyraz+1,' wyrazów');
     readkey;
end.