Pascal - Konsolowe

Rozdzielanie słów

Rozdzielanie słów
Pascal - Konsolowe

Program: rozdzielający wprowadzony tekst.

Wprowadzona fraza jest dzielona na słowa, każde od nowej linii – jeśli zdanie zakończone jest kropką, program to wypisze na ekranie.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program slowka;
uses crt;
var tekst:String;
    i:integer;
begin
     clrscr;
     Write('Wprowadz tekst: ');
     read(tekst);
     for i:=1 to length(tekst) do
     if tekst[i]=' ' then writeln else if tekst[i]='.' then
     begin
          writeln;
          Write('i Kropka');
     end
     else write(tekst[i]);
     readkey;
end.