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

• #1678 Lortech addikt kem #1675

  Új Válasz 2006-12-14 20:56:15 #1678

  Ú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

  

  Lortech

  addikt

  válasz kem #1675 üzenetére

  Biztos jó, én így csináltam :
  program szorzo;
  
  uses crt,dos;
  
  var
  vsz,i,t1,t2,tipp, mini: byte;
  
  h,h_, m,m_, s,s_, hund, hund_ : Word;
  eltelt,min: longint;
  
  
  begin
  randomize;
  writeln('Versenyzők száma: ');
  readln(vsz);
  min:=maxlongint;mini:=0;
  for i:=1 to vsz do
  begin
  writeln(i,'. versenyző');
  t1:=(random(10));
  t2:=(random(10));
  writeln('Mennyi ',t1,' * ',t2,'?');
  GetTime(h,m,s,hund);
  readln(tipp);
  GetTime(h_,m_,s_,hund_);
  eltelt:=(hund_+s_*100+m_*60*100+h_*60*60*100)-(hund+s*100+m*60*100+h*60*60*100);
  writeln(eltelt);
  if (tipp=t1*t2) and (min > eltelt) then
  begin
  min:=eltelt;
  mini:=i;
  end else if t1*t2 <> tipp then writeln('Nem annyi, kiestél!');
  end;
  if (mini <> 0) then writeln(mini,'. versenyző volt a leggyorsabb!')
  else writeln('Senki sem válaszolt jól');
  end.
  
  Tehát ha nem jót írt be, kiesett, nincs versenyben. Ez már értelmezés kérdése, lehet addig ismételni neki a kérdést, amíg jó választ nem ad. Én így gondoltam.
  
  Tieddel kapcs. megjegyzések: randomize procedúrát hívd meg, különben a random mindig ugyanazt fogja generálni. Az első gettime-ot a writeln-okkal cseréld meg, mert a kiiratás is időbe kerül ugyebár, és nem mindig ugyanannyiba, ezért logikailag utána kell álljon a pontosabb eredmény érdekében. Gyakorlatban persze csak extrém esetben lesz jelentősége, de egy ''olyanabb'' tanár simán beleköthet.
  Most nézem, hogy már meg kellett védened vsz, akkor meg mindegy.

• #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