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

citanje i pisanje u pascal-u

[es] :: Pascal / Delphi / Kylix :: citanje i pisanje u pascal-u

[ Pregleda: 2859 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

djdejan

Član broj: 28622
Poruke: 138
*.vdial.verat.net.



Profil

icon citanje i pisanje u pascal-u25.12.2004. u 10:28 - pre 206 meseci
Nisam bas vest sa Pascal-om, pa bih zamolio da mi neko pomogne oko probleme.

Problem je sledeci: potreban mi je mali programcic koji ucitava jedan INTEGER broj iz reci fajla d:\fajl.txt
Dobijeni broj treba da uveca za 1 i da ga ponovo upise u taj isti d:\fajl.txt

Verujem da to pravim pascalcima nije problem..... :)

Hvala unapred! :)
 
Odgovor na temu

Burgos
Nemanja Borić
Amazon Web Services
Berlin

Član broj: 12484
Poruke: 1941
*.smin.sezampro.yu.

Sajt: stackoverflow.com/users/1..


+479 Profil

icon Re: citanje i pisanje u pascal-u25.12.2004. u 11:16 - pre 206 meseci
A jel taj broj na početku linije (koje?) ili mu je mesto randomizirano?
 
Odgovor na temu

djdejan

Član broj: 28622
Poruke: 138
*.vdial.verat.net.



Profil

icon Re: citanje i pisanje u pascal-u25.12.2004. u 11:24 - pre 206 meseci
Da, broj je na pocetku samog fajla.
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: citanje i pisanje u pascal-u25.12.2004. u 14:54 - pre 206 meseci
Kako su reci upisane u fajl?

Ovako (svaka rec u novom redu):
prva
druga
treca
cetvrta

Ili (sve reci u jednom redu):
prva druga treca cetvrta

Ili (nije odredjeno koliko ce reci biti u redu):
prva
druga treca
cetvrta

Sta sluzi kao separator reda: #13 ili #10 ili kombinacija #13#10?

Sta sve moze da sluzi kao separator reci? Sve sto nije slovo ni broj ili nesto odredjeno?

Da li 063-123-456 treba da broji kao jednu rec ili 3 reci i da li uopste brojeve treba da broji kao reci?
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: citanje i pisanje u pascal-u25.12.2004. u 15:29 - pre 206 meseci
Sad citam ponovo tvoj post i resenje je ustvari preterano lako :) S obzirom da se sa procitanim recima nista ne radi ne moras ni da ih citas :)
Citat:
djdejan:Problem je sledeci: potreban mi je mali programcic koji ucitava jedan INTEGER broj iz reci fajla d:\fajl.txt
Dobijeni broj treba da uveca za 1 i da ga ponovo upise u taj isti d:\fajl.txt

Znaci ucitas samo prvi red u kojem se nalazi taj integer, dodas mu jedan i ponovo ga upises na prvo mesti i kraj :)
Code:

var F:Text; I:Integer;
begin
    Assign( F, 'D:\Fajl.txt' );
    Reset( F );
    ReadLn( F, I );
    Close ( F );
    Inc( I );
    Rewrite( F );
    WriteLn( F, I );
    Close( F );
end;

Nisam siguran da li Text moze da koristi seek da se vrati na pocetak, ali ovo ce sigurno da radi.
 
Odgovor na temu

djdejan

Član broj: 28622
Poruke: 138
213.244.197.*



Profil

icon Re: citanje i pisanje u pascal-u25.12.2004. u 19:36 - pre 206 meseci
pAZI STVARNO, RADI! :)

jos kada bi samo neko znao da mi kaze kako da pozovem neki drugi eksterni program (bat,exe...)

brobao sam exec.. ali nista se ne izvrsava. :(
 
Odgovor na temu

Burgos
Nemanja Borić
Amazon Web Services
Berlin

Član broj: 12484
Poruke: 1941
*.smin.sezampro.yu.

Sajt: stackoverflow.com/users/1..


+479 Profil

icon Re: citanje i pisanje u pascal-u25.12.2004. u 20:06 - pre 206 meseci
ovako:
Koristi se komanda exec(putanja, parametri) a moraš ubaciti dos komandom
uses dos; .

Primer

Code:

uses dos;
var s,s1: string;
writeln('Putanja do programa: ');
readln(s);
writeln('[opcijonalno] Komandni parametri: ');
readln(s1);
swapvectors;
exec(s,s1);
swapvectors;
writeln('Posle izvršenja programa ');
if doserror = 0 then
writeln('Izlazni kod = ',dosexitcode)
else writeln('Dos error # = ',doserror);
end.
 
Odgovor na temu

djdejan

Član broj: 28622
Poruke: 138
*.vdial.verat.net.



Profil

icon Re: citanje i pisanje u pascal-u25.12.2004. u 20:51 - pre 206 meseci
da, ali uvek prijavljuje doserror: 8 !!!
a u options je memory heap podeseno na maksimum??!! :(
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: citanje i pisanje u pascal-u26.12.2004. u 01:33 - pre 206 meseci
Dodaj {$M 4096,1024,4096} pre uses dos;
Tako ce da radi 100%

Procitaj ovo: http://student.vub.ac.be/~bvingerh/FAQ1.htm
 
Odgovor na temu

djdejan

Član broj: 28622
Poruke: 138
*.vdial.verat.net.



Profil

icon Re: citanje i pisanje u pascal-u26.12.2004. u 10:08 - pre 206 meseci
100% ???

izgleda da ovako bar pokusa da izvrsi program, ali javi gresku!

 
Odgovor na temu

djdejan

Član broj: 28622
Poruke: 138
*.vdial.verat.net.



Profil

icon Re: citanje i pisanje u pascal-u26.12.2004. u 10:12 - pre 206 meseci
100% ???

izgleda da ovako bar pokusa da izvrsi program, ali javi gresku!

Evo i slike ....
Prikačeni fajlovi
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: citanje i pisanje u pascal-u26.12.2004. u 11:12 - pre 206 meseci
Probao sam kod mene i radi lepo :) Pokrecu se i DOS i Win programi bez problema. Sta imas u tom bat fajlu?
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: citanje i pisanje u pascal-u

[ Pregleda: 2859 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

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