Kód: Vybrať všetko

1.úloha

Vytvorte program, ktorý na základe vygenerované čísla z intervalu (1,50) rozhodne, či je dané číslo párne alebo nepárne.

Na monitor vypíše oznam:

"Vygenerované číslo číslo je párne (nepárne)."

 

2.úloha

Vytvorte program, ktorý na základe počtu dosiahnutých bodov žiaka z písomnej práce vypočíta jeho percentuálnu úspešnosť a výslednú známku.

Žiak je hodnotený ako:

    *
      výborný, ak dosiahol aspoň 90% úspešnosť
    *
      chválitebný, ak dosiahol aspoň 75% úspešnosť, ale menej ako 90%
    *
      dobrý, ak dosiahol aspoň 55% úspešnosť, ale menej ako 75%
    *
      dostatočný, ak dosiahol aspoň 40% úspešnosť, ale menej ako 55%
    *
      nedostatočný, ak dosiahol menej ako 40% úspešnosť

Dosiahnutý počet bodov načítajte z intervalu (0,20). Maximálny počet bodov je konštanta k=20. Na obrazovku program vypíše:

"Žiak meno dosiahol z písomnej práce body bodov, jeho úspešnosť je úspešnosť % a je hodnotený ako známka. "

Hrubo vytlačené slová v texte sú premenné. 

Kód: Vybrať všetko

cislo := random(51)+1;
write('Vygenerovane cislo ',cislo,' je ');
if ((cislo mod 2)=0) writeln('parne.') else writeln('neparne');

Kód: Vybrať všetko

begin
    readln(body);
    per:=(body*100)/20;
    if (per>=90) then
    	writeln('vyborny..');
    if (per<90 and per>=75) then
	    writeln('chvalitebny..');
    if (per<75 and per>=55) then
	    writeln('dobry..');
    if (per<55 and per>=40) then
	    writeln('dostatocny..');
    if (per<40) then
	    writeln('nedostatocny..');
end.

Kód: Vybrať všetko

begin
    readln(body);
    // co takto otestovat ci je to zo spravneho intervalu ???...
    per:=(body*100)/20;
    if (per>=90) then
       writeln('vyborny..');
    else if (per>=75) then
       writeln('chvalitebny..');
    else if (per>=55) then
       writeln('dobry..');
    else if (per>=40) then
       writeln('dostatocny..');
    else
       writeln('nedostatocny..');
end.