Txt failu apstrāde

[pingvinleduslacis]

Paldies

Labots Februāris 10, 2013 - pingvinleduslacis
Kodu jāliek Code blokā, lai normāli var saprast

[spitaligais]

Ar kodu nedalīšos, bet pasviedīšu ideju:

Ieviešam vēl vienu intu, ciklā palielinam vērtību par 1, un pārbaudam, vai dalās ar 2 bez atlikuma. Nedalās - kods paliek tāds pats. Dalās - OutputString'am pievenojam klāt (nevis pārrakstam) inputstringu, un ierakstam failā.

Elementāri, Vatson.

[binary]

spitaligais, un ko darīt, ja inputā ir nepāra skaits rindu?

 

Tā kā rindas nolasīšanas kods ir īss, tad es laikam pirms rakstīšanas pārbaudītu, vai nav sasniegts eof(), un nolasītu vēl vienu rindu, kuru pieliktu klāt jau nolasītajai.

 

Drusku offtopic komentārs - ja skolā liek lietot "label", tad lai paliek, bet reālajā dzīvē labeļus gan nelieto (varbūt vienīgi ļooooooooti specifiskos gadījumos). Tīri akadēmiskos nolūkos labelus lieto kopā ar "goto" - tā kā tev kodā nav neviens "goto", tad arī "label" ir bezjēdzīgi. Izskatās, ka tavā kodā tie aizvieto komentārus. Būtu es skolotājs, daudz un dikti prašņātu, kāpēc tā raksti.

[girts2]

if (i % 2 == 0) { 

 Write...

} else {

  WriteLn...

}

 

http://borlandpascal.wikia.com/wiki/WRITE_and_WRITELN

[spitaligais]

binary, nu šitādam uzdevumam jau ir simts un viens veids, kā tādu samurgot. Teorētiski, paši uzdevuma nosacījumi ir līki, citēju

Programma uevadit text failu veikt ta apstradi un apstrades rezultatu izvadit cita text faila. Bet galvenais nosacijums ko nsepeju realizet ir : ienakosas rindas apvienot, no katram divam rindam veidojot vienu, kuru izvadit rezultata

 

Značit failā ir pāra skaits rindu, un par spec gadījumiem mums ir po.

Ir tikai 2 varianti - iterācijā nolasām 1 rindu no faila, vai divas. Pārējais jau paliek pāris if'u ziņā.

[Sandman]

Pievienots 07 February 2013 - 00:15

binary, nu šitādam uzdevumam jau ir simts un viens veids, kā tādu samurgot. Teorētiski, paši uzdevuma nosacījumi ir līki, citēju

pingvinleduslacis, on 06 Feb 2013 - 07:57, said:

Programma uevadit text failu veikt ta apstradi un apstrades rezultatu izvadit cita text faila. Bet galvenais nosacijums ko nsepeju realizet ir : ienakosas rindas apvienot, no katram divam rindam veidojot vienu, kuru izvadit rezultata

 

 

Značit failā ir pāra skaits rindu, un par spec gadījumiem mums ir po.

Ir tikai 2 varianti - iterācijā nolasām 1 rindu no faila, vai divas. Pārējais jau paliek pāris if'u ziņā. 

Un ja nē? Tavā kodā to neredzam...

[Sanchus]

OutputString:="";

readln(InpFile, InputString);

OutputString:=OutputString+InputString;

readln(InpFile, InputString);

OutputString:=OutputString+InputString;

writeln(OutputString);

OutputString:='Apstraadaatais teksts='+Outputstring+'.';

Writeln(OutFile, Outputstring);

 

cerams, šādi kods darbojas (ja pareizi sapratu).

Autoram kodā, kas ir dots sākumā, saturs diezgan netīrs.

Labots Februāris 9, 2013 - Sanchus

[arch^]

RTU
While ciklā iebāz if kur salīdzini tekošo rindu InputString ar pašizveidotu JaunuString.
Pēc if cikla beigām InputString vērtību piešķir JaunaString. Atkārtojoties ciklam tiks salīdzināta jaunā InputString vērtība ar iepriekšējo kuru piešķīri JaunaString.
Ja if paties izpildi izvadā Outputstring + JaunaString, ja nepaties Izvadi vienkārši Outputstring.

 

EDIT:

thfu, mazliet sapisos. Domāju par vienu citu variantu kurā jāapvieno vienādās rindas

 

Pēc Sanchus rakstītā jāstrādā.

Labots Februāris 9, 2013 - arch^

[binary]

cerams, šādi kods darbojas (ja pareizi sapratu).

a ko darīt, ja nav vairs rindu, ko nolasīt ar taviem readln?

 

arch^ uzrakstīto vispār nesapratu. Nafig kaut ko jāsalīdzina?

[tr4nkv]

februāra sākums, značit pēdējais laiks nodod lab.darbus, lai neiegrābtos parādā pie prof.Lavendela un viņa draugiem?