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/