Registracija

zadatak u Pascalu

Odgovori Nova tema

1 odgovor
2.419 pregleda

zadatak u Pascalu 18.04.2009. u 14:22 · pre 213 meseci #1

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?

Re: zadatak u Pascalu 18.04.2009. u 15:46 · pre 213 meseci #2

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.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme