Új hozzászólás Aktív témák

• #720 pampika őstag

  Új Válasz 2005-06-15 18:10:14 #720

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pampika

  őstag

  Hello!
  kéne egy kis segítség: egyik ismerősnek gyártok progit:
  ''Hozzon létre egy ''cube'' nevű függvényt, mely kockadobásokat
  generálvéletlenszerűen, s paraméterében ezeket egy megfelelő típusú
  vektorban átadja. A függvény értéke TRUE, ha a dobások legalább 50%-a
  páratlan, ellenkező esetben FALSE; annyi dobást generál, amekkora a
  lemezen lévő ''mese.txt'' nevű fájl mérete, amennyiben a visszatérési
  érték TRUE, a dobások eredményét kiirja képernyőre és beleírja egy
  ''cubes.dat'' nevű állományba.''
  
  Ezt gyártottam,de ahogy javítgatok benne,egyre több lesz a hibaüzi,nem kevesebb.Tudom,hogy a cube fv-t nem teljesne úgy használom,ahogy ők írták,de csak annyi a lényeg,hogy valahogy menjen és a dolgát tegye
  
  
  

  
  program kockadobas;
  var   f: file;
        i,meret,dobas,k:integer;
        par:boolean;
        paratlan: array[0..1024] of integer;
  
  function cube(var a:array of integer; b:integer):boolean;
       var jo:boolean;
       begin
       if (length(a) >= (b/2)) then jo:=true;
       writeln(jo);
       cube:=jo;
       end;
  
  begin
  
     assign(f,'mese.txt');
     Reset(f);
     meret := filesize(f);
     close(f);
  
      k:=0;
      for i:=0 to meret do
       begin
        randomize;
        dobas:=random(5)+1;
        if ((dobas mod 2)=1) then
          begin
            paratlan[k]:=dobas;
            k:=k+1;
            writeln(dobas);
          end;
       end;
  
       par:=cube(paratlan,meret);
      if (par=true) then
        begin
          assign(f,'cubes.dat');
          reset(f);
          for i=0 to length(paratlan) do writeln(paratlan);
          close(f);
  
          for i=0 to length(paratlan) do writeln(paratlan);
        end;
    end.
  

  
  
  thx a segítséget
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák