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:
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]

Tutorijali i materijal vezani za Pascal/Turbo Pascal:
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]

• 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!

[Link mogu videti samo ulogovani korisnici]

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)