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

• #1675 kem addikt Lortech #1664

  Új Válasz 2006-12-14 13:52:47 #1675

  Ú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 Lortech #1664 üzenetére

  Szia.Sikerültígy megcsinálnom,de nem tudok stuktogrammot csinálni, mert a gettime meg ilyeneket nem tudom,hogy kell.
  
  program szorzo;
  uses crt,dos;
  var jsz,jsz2,i,a,b,valasz,ido,ido2:integer;
  var o,p,mp,s,o2,p2,mp2,s2:word;
  
  begin
  clrscr;
  write('játékosok száma: ');
  readln(jsz);
  ido:=1000;
  jsz2:=0;
  for i:=1 to jsz do
  ..... 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');
  
  readln;
  end.
  
  mindjárt meg kell védenem a programot, és ahoz kéne a stuktogramm.
  ha sikerül belőle valami linkelem

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