[es] - zadatak u Pascalu

popkatepetl

Član broj: 219982
Poruke: 1
212.200.65.*

Profil

^{18.04.2009. u 13:22 - pre 182 meseci}

Treba da resim ovaj zadatak:
Tekstualna datoteka f ima manje od 1000 linija. Napraviti kopiju g datoteke f stavljajuci broj linije sa desne strane na pozicije od 68 do 70.
Ukoliko linija ulazne datoteke ima vise od 65 karaktera, preklopiti je iza 65-og, i broj linija ispisati na kraju zadnjeg preloma.
Moze li mi neko pomoci?

Odgovor na temu

xenox
ex Memodata sysadmin
Beograd

Član broj: 6903
Poruke: 168
212.200.65.*

ICQ: 7682925

+3 Profil

Re: zadatak u Pascalu

^{18.04.2009. u 14:46 - pre 182 meseci}

Prvo trebas da otvoris datoteku (funkcije za rad sa datotekama assign, reset, close).

Zatim pocnes da citas linije iz datoteke dok ne dodjes do kraja iste (eof i while petlja).

u while petlji za citanje linija (string varijabla) procitas liniju i dok je duzina linje veca od 65 kopiras prvih 65 karaktera u novi string koji upises u novu g datoteku (funkcija copy(s,1,65) i skratis ulazni string za 65 karaktera (funkcija delete). Dizina stringa je funkcija length.
Sada ti je ostao ulazni string (linja) kraca od 65.
Dopuni ga razmaknicama (s=s+' '); dok ne dodjes do duzine od 67 i onda dodaj vrednost brojaca linija prikazanog kao tri cifre (001 - 011 - 911)...

To bi bilo to.

Odgovor na temu