rad sa ASCII datotekama

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Molim da mi neko napiše kako ovaj program treba da izgleda ako treba da čita ulazne podatke isključivo iz tekstualnih (ASCII) datoteka, a takođe da izlaz daje na tekstualne datoteke. Ulazni podaci su d=5, s=7 i r=2


Program prvi;
Var d,s,r,k,d1,s1:integer;
Begin
Readln(d,s);
Readln(r);
d1:=2*r+d;
s1:=2*r+s;
k:=2*(d1+s1);
Writeln(k)
End.

• 1Ovo se svidja korisniku: bocke
  
  Registruj se da bi pohvalio/la poruku!

Pozdrav...

Treba da deklarišeš promenljivu tipa text. Zatim da njoj "pridružiš" fajl, Assign. Sledeće što treba jeste čitanje iz fajla, upisivanje u postojeći fajl ili otvaranje potpuno novog fajla.

Reset
Append
Rewrite

Na kraju obavezno Close

Na stranama postoje primeri koji opisuju proceduru/funkciju. Pogledaj, probaj pa ako bude problema pitaj opet.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Tutorijali/materijali na netu vezani za rad sa datotekama u Pascalu:
http://www.tutorijali.net/forum/pascal-rad-sa-tekstualnim-datotekama-t-531.html
http://rti.etf.rs/rti/ir1p1/materijali/vezbe/P1_11_Pascal_datoteke.pdf
http://imi.pmf.kg.ac.rs/index.php?option=com_docma.....mp;Itemid=
http://kuric.webnode.com/turbo-pascal-7-0/datoteke/
http://www.hkbu.edu.hk/~bba_ism/ISM2110/pas057.htm

Tutorijali i materijal vezani za Pascal/Turbo Pascal:
http://rti.etf.rs/rti/ir1p1/materijal.html
http://kuric.webnode.com/turbo-pascal-7-0/
http://www.puskice-skripte.com/download/doc_downlo.....ripta.html
http://tutoriali.org/

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Teoriju sam malo pročitao ali sam htio da vidim kako to izgleda kada se uporedi konkretan primjer zato sam i postavio jedan konkretan zadatak. Pa ako neko može da odvoji par minuta da mi to napiše bilo bi mi od značajne pomoći. U svakom slučaju hvala i na dosadašnjem trudu.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

http://www.mycity.rs/Zabava-humor-vicevi/Zagonetke-za-zabavu_77.html#1016332

Pogledaj i pokušaj sam. Ima li nešto što ne razumeš? Koji deo?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ne znam kako da unesem ulazne podatke, izlaz na datoteku mi je jasniji, ali ne znam da li u zaglavlju treba da deklarišem ulazne podatke kao konstante ili peomjenljive te da li prilikom upisivanja na ulaznu datoteku upisujem vrijednost ili promjenljivu, uglavnom ne iskompajlira mi program

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako učitavaš ulazne podatke iz datoteke onda deklarišeš jednu promenljivu za fajl. Sad zavisi kako su organizovani podaci u fajlu ali pomoću funkcije EOF dodeliš promenljivoj vrednosti.

Iskoristiću promenljive iz prvog posta ali ovo važi ako imaš samo tri promenljive.
//Sadrzaj ulazne datoteke 5 7 2

{...} i:=0; while not EOF(f) do begin readln(f,a[i]); inc(i); end; d:=a[0]; s:=a[1]; r:=a[2]; {...} {a je za array}

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

brunobruno ::Molim da mi neko napiše kako ovaj program treba da izgleda ako treba da čita ulazne podatke isključivo iz tekstualnih (ASCII) datoteka, a takođe da izlaz daje na tekstualne datoteke. Ulazni podaci su d=5, s=7 i r=2


Program prvi;
Var d,s,r,k,d1,s1:integer;
Begin
Readln(d,s);
Readln(r);
d1:=2*r+d;
s1:=2*r+s;
k:=2*(d1+s1);
Writeln(k)
End.


Tekst zadatka:
Za sadnju jabuka i krušaka u voćnjaku pravougaonog oblika potrebno je razdvojiti prostor u kome se sade jabuke od onog u kojima se sade kruške. Kanapom treba obilježiti prostor u kome se sade jabuke, a izvan koga se mogu saditi kruške. Ako su poznate dimenzije parcele sa jabukama D i S i rastojanje od krušaka R, koliko je potrebno metara kanapa da se parcela ogradi. (položaj parcele sa jabukama je proizvoljan unutar voćnjaka)