Készítsünk programot, amely bekér egy mondatot, majd kiírja ugyanezt a mondatot úgy, hogy mindegyik betű (karakter) után kirak egy szóközt (free pascal)?

mondat (bekért mondat)

létrehozol egy karakter tömböt(kesz_mondat), ami 2x olyan hosszú, mint a mondat

for(i 0 tól mondat hosszának 2xeséig ketetsével)

{

kesz_mondat[i]=mondat[i/2];

kesz_mondat[i+1]=' ';

}

Tárolni is kell, vagy csak kiíráskor szóközöket berakni?

Ez utóbbi eset még egyszerűbb:

write('Írj be egy mondatot:');

readln(mondat);

for x:=1 to length(mondat) do

begin

write(mondat[x],' ');

end;

Mutass már valami kódot, ha ennyit agyaltál rajta. Ez a feladat rém egyszerű.

#1. minek ide karaktertömb? Egy sima string típusú változó bőven elég ha tárolni kell a szóközökkel teletűzdelt mondatot is. Csak akkor a #2-es válaszoló kódját annyiban kell módosítani, hogy a kiírás helyett a stringbe másolgatja karakterenként (+ szóköz) a betűket a bemeneti stringből.

for i := 1 to Ord(Mondat[0]) do MondatUj := MondatUj + Mondat[i] + #32;

Csakhogy utána legyen még mit kérdezni :)