citanje i pisanje u pascal-u

citanje i pisanje u pascal-u 25.12.2004. u 11:28 · pre 266 meseci #1

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! :)

Re: citanje i pisanje u pascal-u 25.12.2004. u 12:16 · pre 266 meseci #2

A jel taj broj na početku linije (koje?) ili mu je mesto randomizirano?

Re: citanje i pisanje u pascal-u 25.12.2004. u 12:24 · pre 266 meseci #3

Da, broj je na pocetku samog fajla.

Re: citanje i pisanje u pascal-u 25.12.2004. u 15:54 · pre 266 meseci #4

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?

Potpis

Play Store

Re: citanje i pisanje u pascal-u 25.12.2004. u 16:29 · pre 266 meseci #5

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.

Potpis

Play Store

Re: citanje i pisanje u pascal-u 25.12.2004. u 20:36 · pre 266 meseci #6

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. :(

Re: citanje i pisanje u pascal-u 25.12.2004. u 21:06 · pre 266 meseci #7

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.

Re: citanje i pisanje u pascal-u 25.12.2004. u 21:51 · pre 266 meseci #8

da, ali uvek prijavljuje doserror: 8 !!!
a u options je memory heap podeseno na maksimum??!! :(

Re: citanje i pisanje u pascal-u 26.12.2004. u 02:33 · pre 266 meseci #9

Dodaj {$M 4096,1024,4096} pre uses dos;
Tako ce da radi 100%

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

Potpis

Play Store

Re: citanje i pisanje u pascal-u 26.12.2004. u 11:08 · pre 266 meseci #10

100% ???

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

Re: citanje i pisanje u pascal-u 26.12.2004. u 11:12 · pre 266 meseci #11

100% ???

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

Evo i slike ....

pascal.jpg19.41k

Re: citanje i pisanje u pascal-u 26.12.2004. u 12:12 · pre 266 meseci #12

Probao sam kod mene i radi lepo :) Pokrecu se i DOS i Win programi bez problema. Sta imas u tom bat fajlu?

Potpis

Play Store

Forum kao aplikacija na telefonu

Srodne teme