Ú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.

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