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

• #1676 kem addikt kem #1675

  Új Válasz 2006-12-14 14:18:51 #1676

  Ú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

  

  kem

  addikt

  válasz kem #1675 üzenetére

  csak egy részét csináltam meg,elég is lesz.
  
  [link]
  
  ez vanbenne:
  ---------------------------------------------------------------------------------------------------
  begin
  .......... a:=random(10)+1;
  .......... b:=random(10)+1;
  .......... gettime(o,p,mp,s);
  .......... writeln(i,'. játékos feladata: ');
  .......... writeln('Mennyi ',a, '* ',b,' ?');
  .......... readln(valasz);
  .......... gettime(o2,p2,mp2,s2);
  .......... ido2:=((o2-o)*360)+ ((p2-p)*120)+((mp2-mp)*60)+(s2-s);
  .......... if (valasz=a*b) and (ido>ido2) then
  .................... begin
  
  
  .................... ido:=ido2;
  .................... jsz2:=i;
  
  .................... end;
  .......... end;
  
  writeln('a legjobb eredményt a ',jsz2,'. játékos érte el');
  ---------------------------------------------------------------------------------------------------
  
  
  
  szerintetek jó?

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