Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

zadatak u Pascalu

[es] :: Pascal / Delphi / Kylix :: zadatak u Pascalu

[ Pregleda: 1532 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

popkatepetl

Član broj: 219982
Poruke: 1
212.200.65.*



Profil

icon zadatak u Pascalu18.04.2009. u 13:22 - pre 153 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

icon Re: zadatak u Pascalu18.04.2009. u 14:46 - pre 153 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

[es] :: Pascal / Delphi / Kylix :: zadatak u Pascalu

[ Pregleda: 1532 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.