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

• #219 9CS senior tag

  Új Válasz 2003-12-17 16:22:44 #219

  Ú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

  

  9CS

  senior tag

  Oh ez valószinű moderálva lesz, de akkor nézzük: Kivettem pár ellenörző sort ami nem kell igazaból, csak próbálkoztam megkeresni velük a hibát... Remélem hasznos sort nem vágtam ki .
  
  Program max20ev;
  Uses    crt;
  Var
          falka : array[1..80] of byte;
          o, {kiválasztott elem}
          e, {évek száma}
          t  {a falka 0-val való feltöltéséhez kell}
          : byte;
          osszeg {átlag korhoz}
          :word;
          atl    {az átlag}
          : real;
                            { --- Procedurák --- }
  Procedure Kivalasztas;                                 {Egy véletlen szám}
            Var                                          {1-80-ig}
               v : byte;
            Begin
               Randomize;
               v := Random(80)+1;
               o := v;
            end;
  Procedure Oregites;                                    {No ez igen }
            Var x : integer;                             {Öregít elvileg}
                v : byte;
            Begin
               {readln(e);}
               x := round(100-e*(100/20));
            {writeln('ez a ''%'': ',x);}
                   Begin
                      Randomize;
                      v := Random(100);
                   {WriteLn('ez a random szám a vénséghez: ',o);}
                         Begin
                            if v<=x then e:=e+1
                            else e:=0;
                   {writeln('öregedés utáni kor: ',e);}
                         end;
                   end;
            end;
  Procedure Hanyeves;                                    {Megnézi mennyi idős}
            {Var}                                        {Ha a két kritikus}
               {e : byte;}                               {kor akkor lekezeli}
            begin                                        {Nem szükséges!}
               {read(e);}                                {elvileg}
                 if e=0 then e:=1                        {elég az öregítés}
                   else
                 if e=20 then e:=0
                   else oregites;
            end;
  Procedure Lentivonal;                                  {Egy vonal lent}
            Var i : byte;
            begin
                gotoxy(1,24);
            for i:=1 to 80 do
                  write(chr(178));
            End;
  Procedure oszloptorol;                                 {Oszlopok törlése}
            Var i,k : byte;
            Begin                           {Kezdő pont}
                k := 23;
            for i:=1 to 20 do
                  gotoxy(o,k);
                  write(' ');
                  k:=k-1;
            {readkey;}
            End;
  Procedure Egyoszlop;                                   {Oszlopok huzása}
            Var i,k : byte;
            Begin                             {Kezdő pont}
                k := 23;
            for i:=1 to e do
                  gotoxy(o,k);
                  write(chr(178));
                  k:=k-1;
            {readkey;}
            End;
  Procedure Atlagkor;                                    {Átlag életkor}
            Begin
                atl:=0;
                atl:=(osszeg/80);
            End;
            { --- Kezdődjék hát a program --- Változók az elején! --- }
  Begin
       clrscr;
       lentivonal;
       for t:= 1 to 80 do
          falka[t]:=0;
       osszeg:=0;
  
       Repeat
          Kivalasztas;
          e:=falka[o];
          osszeg:=osszeg-e;
          hanyeves;
          oregites;
          falka[o]:=e;
          osszeg:=osszeg+e;
          atlagkor;
          readln(e);}
          oszloptorol;
          egyoszlop;
          gotoxy(30,3);
             write('Átlag kor: ',atl);
       Until keypressed;
  End.

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