lūdzu palīdziet ar pascal...

Ievietoja: EiJei @ 2008.02.04 12:19

Tāds uzdevums:
Programmā ievadīt TEXT failu, veikt tā apstrādi un apstrādes rezultātu izvadīt citā TEXT failā. Ja ievades failā rinda sākas ar vārdu "begin" vai "BEGIN", tad pirms dotās rindas izvades failā izvadīt divas tukšas rindas.
Princips, jau skaidrs, tikai šādi jautājumi:
1) kā pievienot tās divas tukšās rindas, jo izvades failā tak rindas būs tādas pašas kā ievades failā
2) kā norādīt, ka rinda sākas ar begin vai BEGIN, nevis ka šie vārdi ir vienīgie rindā?
Jau iepriekš pateicos...

Komentāri:

#1 KaNeiet @ 2008.02.04 12:29

1) http://www.liis.lv/nps/nps10.html#10.2.%20darbs%20ar%20failiem
piemērā gan dzēš, bet var arī pievienot;
2) lietojot funkciju POS.

#2 EiJei @ 2008.02.04 14:46

ok, pamēģināšu, paldies.

ar pos funkciju viss sanaaca, bet nekādi nevaru saprast, kā lai ievieto 2 tukšas rindas, pirms attiecīgajām rindām, kuras sākas ar begin vai BEGIN, mēģināju darīt šādi :
if blablabla
then
insert(emptystring, outfilestring, 0);
Outputstring:='apstraadaatais teksts='"+outputstring+"';
else blablabla,
neizdodas savienot taas funkcijas zem then...
varbuut , kaads vareetu ko ieteikt?

ar pos funkciju viss sanaaca, bet nekādi nevaru saprast, kā lai ievieto 2 tukšas rindas, pirms attiecīgajām rindām, kuras sākas ar begin vai BEGIN, mēģināju darīt šādi :
if blablabla
then
insert(emptystring, outfilestring, 0);
Outputstring:='apstraadaatais teksts='"+outputstring+"';
else blablabla,
neizdodas savienot taas funkcijas zem then...
varbuut , kaads vareetu ko ieteikt?

#3 LMN @ 2008.02.04 14:59

Pamēģini kādu no šiem:
writeln(f, '');
write(f, #13#10);

#10 - carriage return
#13 - line feed

#4 karuuzo @ 2008.02.04 16:46

writeln(f, newline); ja nemaldos.
Apsties helpā pie write.

m

Datuve

Mana Datuve

Forums

Ieskaties

Raksti

Lietotāji online

lūdzu palīdziet ar pascal...

Komentāri: