Anonymní profil Exibit – Programujte.com

Dobrý den, potřeboval bych pomoct s úlohou. Nějak se nemůžu prokousat k funkčnímu programu. Předem děkuji za rady. 

Zadání: Napište program, který načte z klávesnice větu a vytiskne každé slovo této věty na
samostatný řádek. Předpoklad: mezi slovy je jedna mezera a věta je ukončena
tečkou.

Moje nefunkční řešení:

var txt: string;

      i,z:integer;

begin

writeln('Zadejte text: ');

readln(txt);

z:=1;

for i:=1 to length(txt) do

begin

if txt[i]=' ' then

begin

z:=i+1;

writeln(copy(txt,z,i-z));

end;

if i=length(txt) then writeln(copy(txt,z,i-z+1));

end;

END.

Dobrý den, potřeboval bych pomoct s úlohou. Nějak se nemůžu prokousat k funkčnímu programu. Předem děkuji za rady. 

Zadání: Napište program, který načte z klávesnice větu a vytiskne každé slovo této věty na
samostatný řádek. Předpoklad: mezi slovy je jedna mezera a věta je ukončena
tečkou.

Moje nefunkční řešení:

var txt: string;

      i,z:integer;

begin

writeln('Zadejte text: ');

readln(txt);

z:=1;

for i:=1 to length(txt) do

begin

if txt[i]=' ' then

begin

z:=i+1;

writeln(copy(txt,z,i-z));

end;

if i=length(txt) then writeln(copy(txt,z,i-z+1));

end;

END.