FONForum http://www.fonforum.org/ |
|
Pomoc - oko Pascala http://www.fonforum.org/viewtopic.php?f=8&t=1282 |
Stranica 1 od 1 |
Autoru: | tralala [ 10.09.2003. 09:57:35 ] |
Tema posta: | |
Cao, ja sam odavno izasla iz Pascal fazona, a i nisam ga bas najbolje ni ranije znala. Moja drugarica na jednom fakultetu, sprema ispit pa je naisla na zadatak oko koga niko nije mogao da joj da pravo resnje. Da li ovde mozda ima nekog ko bi bio voljan da pomogne. Zadatak glasi ovako: Napisati program na Pascalu koji formira text datoteku na osnovu podataka iz binarne dadoteke. Svaki zapis binarne datoteke sadrzi ceo broj N i N realnih brojeva, gde je N <=20. Svaki red text datoteke treba da sadrzi broj N, minimum i maximum niza od N realnih brojeva iz odgovarajuceg zapisa binarne datoteke. Napisati glavni program kome nedostaje samo izvrsni deo. Eto to je ceo tekst zadatka, pa ako neko ima volje da pomogne ili da bilo kakvu ideju, bile bismo vam veoma zahvalne. Sanja. |
Autoru: | runner [ 10.09.2003. 21:16:07 ] |
Tema posta: | |
mislim da je ovo to, treba proveriti, a za to ti treba napraviti pomenutu datoteku sa zapisom, mene je mrzelo. evo: Kod: Type
tNiz = array[1..20] of real; tZapis = record i: byte; niz: tNiz; end; tDat = file of tZapis; tDatTxt = text; Procedure NadjiMax(niz: tNiz; brElem: byte; var max: real); var i: integer; begin max:= niz[1]; for i:= 2 to brElem do if max < niz[i] then max:= niz[i]; end; Procedure NadjiMin(niz: tNiz; brElem: byte; var min: real); var i: integer; begin min:= niz[1]; for i:= 2 to brElem do if min > niz[i] then min:= niz[i]; end; Procedure Zapisi(var dat: tDat; var dattxt: tDatTxt); var pomZapis: tZapis; min, max: real; begin assign(dat, 'datfile.dat'); assign(dattxt, 'dattxt.txt'); while not eof(dat) do begin read(dat, pomZapis); write(dattxt, pomZapis.i); nadjiMin(pomZapis.niz, pomZapis.i, min); write(dattxt, min); nadjiMax(pomZapis.niz, pomZapis.i, max); writeln(dattxt, max); end; close(dat); close(dattxt); end; pozdrav Sanji, koja se tako lepo predstavila ![]() |
Stranica 1 od 1 | Sva vremena su u UTC + 1 sat |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |