STRING úloha – Pascal – Fórum – 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.

#1 Exibit
Máš v tom chaos.

Pokud na pozici i najdeš mezeru, do z si přičteš o jedničku víc, tak jaký bude výsledek

i-z+1 ?

když z=i+1

i-z+1=i-(i+1)+1=i-i-1+1=0!

no a kolik asi znaků se pak nakopíruje v příkazu copy(txt,z,i-z+1) ? Přesně NULA znaků!

Tak tady hledej chybu.

zajimavy, tohle sem mu rikal pred par dny... a stejne nebyl schopnej prohodit ty dva radky