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

• #721 pampika őstag pampika #720

  Új Válasz 2005-06-15 23:30:04 #721

  Ú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

  válasz pampika #720 üzenetére

  No,látom most épp nem járt senki errefelé,de közben megoldottam a dolgot
  Berakom,hátha segít majd egyszer vkin
  
  

   program kockadobas;
  uses crt;
  var   f: file of byte;
        g: text;
        j:integer;
        k,dobas,i:integer;
        meret:integer;
        par,h,jo:boolean;
        paratlan: array[0..500] of integer;
  
  {function cube(var a:array of integer; b:integer):boolean;
       var jo:boolean;
           k,dobas,i:integer;
    begin
       k:=0;
       for i:=0 to (b-1) do
        begin
         randomize;
         dobas:=random(5);
           if ((dobas mod 2)=1) then
             begin
               a[k]:=dobas;
               k:=k+1;
               writeln('dobott:',dobas,'   k:',k);
             end;
        end;
       if (k >= (b div 2)) then jo:=true;
       writeln(jo);
       cube:=jo;
    end;            }
  
  BEGIN
  
     assign(f,'mese.txt');
     reset(f);
     meret:=filesize(f);
     close(f);
  
     {par:=cube(paratlan,meret);
      if (par=true) then
        begin
          assign(g,'cubes.dat');
          rewrite(g);
          reset(g);
          append(g);
          j:=0;
           repeat
             writeln(g,paratlan[j]);
             writeln(paratlan[j]);
             j:=j+1;
             if ((paratlan[j]>6) or (paratlan[j]<1)) then h:=false;
           until h;
           
          close(g); }
          writeln(meret);
  
          k:=0;
       randomize;
       for i:=0 to (meret-1) do
        begin
  
         dobas:=(random(5)+1);
           writeln('dobas:',dobas);
           if ((dobas mod 2)=1) then
             begin
               paratlan[k]:=dobas;
               k:=k+1;
               writeln('dobott:',dobas,'   k:',k);
             end;
        end;
       if (k >= (meret div 2)) then jo:=true;
       writeln(jo);
  
       k:=(k-1);
  
       if (jo=true) then
        begin
          assign(g,'cubes.dat');
          rewrite(g);
          j:=0;
           repeat
             writeln(g,paratlan[j]);
             writeln('j:',j,'  j. elem:',paratlan[j]);
             writeln('k:',k);
             if (j=k) then begin jo:=false; writeln('wazz');end;
             j:=j+1;
           until jo=true;
          writeln('j:',j);
          close(g); 
        end;
          readkey;
  
        {end;}
  END.
  

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