Program - Testovanie znalosti anglických slovíčok :)

Program napísaný v jazyku Pascal.

program slovicka;

var
slovickoSK: array [1..15] of string;
slovickoAN: array [1..15] of string;
nahodne,spravne,cislo,i:integer;
pom:string;

begin
slovickoSK[1]:='cervena'; slovickoAN[1]:='red';
slovickoSK[2]:='siva'; slovickoAN[2]:='grey';
slovickoSK[3]:='svetla'; slovickoAN[3]:='light';
slovickoSK[4]:='tmava'; slovickoAN[4]:='dark';
slovickoSK[5]:='strieborna'; slovickoAN[5]:='silver';
slovickoSK[6]:='zlata'; slovickoAN[6]:='gold';
slovickoSK[7]:='oranzova'; slovickoAN[7]:='orange';
slovickoSK[8]:='hneda'; slovickoAN[8]:='brown';
slovickoSK[9]:='fialova'; slovickoAN[9]:='purple';
slovickoSK[10]:='ruzova'; slovickoAN[10]:='pink';
slovickoSK[11]:='zlta'; slovickoAN[11]:='yellow';
slovickoSK[12]:='zelena'; slovickoAN[12]:='green';
slovickoSK[13]:='modra'; slovickoAN[13]:='blue';
slovickoSK[14]:='biela'; slovickoAN[14]:='white';
slovickoSK[15]:='cierna'; slovickoAN[15]:='black';
randomize;
for i:=1 to 5 do
begin
nahodne:=random(3)+1;
cislo:=cislo+nahodne;
writeln;
writeln ('Napiste po anglicky, malym pismom, slovo ',slovickoSK[cislo],'.');
readln (pom);
if pom=slovickoAN[cislo] then begin
writeln ('Odpovedali ste spravne.');
spravne:=spravne+1;
end else begin
writeln ('Odpovedali ste nespravne.');
writeln ('Spravna odpoved je ',slovickoAN[cislo],'.');
end;
end;
writeln;
writeln ('Prelozili ste spravne ',spravne,' slovicka z 5.');
writeln ('Uspesny ste boli na ',spravne*20,' %.');
if spravne > 0 then writeln ('Hodnotim Vas znamkou ',6-spravne,'.');
if spravne = 0 then writeln ('Slovicka ste ani nevideli. Hodnotim Vas znamkou 5.');
readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Rozklad na prvočinitele :)
• Program - Triedenie :) →