Localize file www.TrSek.com/zadania/deleni.pas{ DELENI.PAS Copyright (c) Pavel Patak }
{ Zada uzivateli 25 prikladu na deleni }
{ }
{ Datum:28.10.2004 http://www.trsek.com }
Program Deleni;
Var I:Integer;
PocetChyb:Integer;
a,b,vysledek:Integer;
Odpoved :Integer;
Begin
PocetChyb:=0;
Randomize;
For I:=1 to 25 do
Begin
Vysledek:=Random(11); {Vygenerujeme-li prvne obe cisla, nemusi byt vysledek celociselny}
B:=Random(11);
if B=0 then B:=B+1; {Nulou nelze delit}
A:=B*Vysledek;
Write(A,' / ', B, ' = ');
Readln(Odpoved);
if Odpoved<>Vysledek then
begin
Writeln('Chyba, spravna odpoved zni ',Vysledek);
PocetChyb:=PocetChyb+1;
end
else
Writeln('Spravna odpoved');
End;
Writeln;
Writeln('Pocet chyb : ',PocetChyb);
PocetChyb:=(PocetChyb div 5)+1; {Vypocet znamky, k jejimu ulozeni pouzijeme promennou PocetChyb}
if PocetChyb > 5 then PocetChyb:=5; {Pokud by bylo vsechno spatne}
Writeln('Vase znamka cini : ',PocetChyb);
Readln;
End.