Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:tesztverseny

Különbségek

A kiválasztott változat és az aktuális verzió közötti különbségek a következők.

Összehasonlító nézet linkje

inf-prog-fszi:tesztverseny [2017/06/23 13:58]
beistvan létrehozva
inf-prog-fszi:tesztverseny [2017/06/23 18:58] (aktuális)
beistvan
Sor 7: Sor 7:
     kod: string[5];     kod: string[5];
     felelet: ​ string[14];     felelet: ​ string[14];
 +    pont: byte;
   end;   end;
 var var
   a:​array[1..valaszok_max] of valasz;   a:​array[1..valaszok_max] of valasz;
-  i,​n:​integer;​ sor:string;+  i,j,k,n:integer; sor:string;
   helyes_felelet:​ string[14];   helyes_felelet:​ string[14];
   versenyzo_id:​ string[5];   versenyzo_id:​ string[5];
Sor 17: Sor 18:
   feladat_sorszama:​ byte;   feladat_sorszama:​ byte;
   db_helyes: word;   db_helyes: word;
-  f:text;+  ​pontszam, pont: byte; 
 +  cs: valasz; 
 +  ​f: text;
 begin begin
   //1. feladat   //1. feladat
Sor 74: Sor 77:
     then     then
       inc(db_helyes);​       inc(db_helyes);​
-  writeln(db_helyes,​ ' ', db_helyes/​n*100:​5:​2,'​%'​);​ +  writeln('A feladatra ',db_helyes, ' ​fo, a versenyzok ​', 
 +          ​db_helyes/​n*100:​5:​2,'​%-a adott helyes valaszt.'); 
 +  ​writeln;​ 
 +  //6. feladat 
 +  writeln('​6. feladat: A versenyzok pontszamanak meghatarozasa'​);​ 
 +  assign(f,'​pontok.txt'​);​ 
 +  rewrite(f);​ 
 +  for i:=1 to n do 
 +  begin 
 +    pontszam:​=0;​ 
 +    for j:=1 to length(helyes_felelet) do 
 +      if helyes_felelet[j] = a[i].felelet[j] then 
 +      begin 
 +        case j of 
 +          1..5  : pont:=3; 
 +          6..10 : pont:=4; 
 +          11..13: pont:=5; 
 +          14    : pont:=6; 
 +        end; 
 +        pontszam := pontszam + pont; 
 +        a[i].pont:​=pontszam;​ 
 +      end; 
 +    writeln(f,​a[i].kod,​ ' ', pontszam); {kiratas a fajlba} 
 +    //​writeln(a[i].kod,​ ' ', pontszam); {kiratas a kepernyore} 
 +  end; 
 +  close(f); 
 +  writeln; 
 +  //7. feladat 
 +  writeln('​7. feladat: A verseny legjobbjai:'​);​ 
 +  for i:=1 to n-1 do 
 +    for j:=i+1 to n do 
 +      if a[i].pont<​a[j].pont then 
 +      begin 
 +        cs:=a[i]; 
 +        a[i]:​=a[j];​ 
 +        a[j]:=cs; 
 +      end; 
 +  i:=1; 
 +  k:=1; 
 +  while (k<​=3)and(i<​=n) do 
 +  begin 
 +    j:=i; 
 +    while a[i].pont=a[j].pont do 
 +    begin 
 +      writeln(k,'​. dij (',​a[j].pont,​ ' pont): ', a[j].kod);​ 
 +      j:=j+1; 
 +    end; 
 +    inc(k); 
 +    i:=j; 
 +  end;
   readln;   readln;
 end. end.
 +
  
 </​code>​ </​code>​
inf-prog-fszi/tesztverseny.txt · Utolsó módosítás: 2017/06/23 18:58 szerkesztette: beistvan