Kvíz ktorý má 5 otázok

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pheo
web: pascalsource.ic.cz

Program: Kviz.pas
File exe: Kviz.exe

Kvíz. Program položí 5 otázok a vyhodnotí vedomosti.
{ KVIZ.PAS                                       Copyright (c) Pheo }
{ Kvíz. Program položí 5 otázok a vyhodnotí vedomosti.              }
{                                                                   }
{ Datum:17.06.1994                             http://www.trsek.com }
 
program kviz;
uses crt;
var a,x,c:integer;
begin
x:=0;
writeln(  'Kviz'  );
writeln ('zadaj spravnu odpoved');
writeln ('hl. mesto francuzska je: ');
writeln ('1.londyn');
writeln ('2.pariz');
writeln ('3.moskva');
readln (a);
if a=2 then x:=x+1;
writeln;
writeln ('najvatsia rieka je:');
writeln ('1.amazon');
writeln ('2.nil');
writeln ('3.zlta rieka');
readln (a);
if a=1 then x:=x+1;
writeln;
writeln ('najvyssi vrch meria:');
writeln ('1.7645m');
writeln ('2.8488m');
writeln ('3.8848m');
readln (a);
if a=3 then x:=x+1;
writeln;
writeln ('najhlbsie miesto na Zemi je:');
writeln ('1.marianska priekopa');
writeln ('2.filipinska priekopa ');
writeln ('3.portoricka priekopa ');
readln (a);
if a=1 then x:=x+1;
writeln;
writeln ('Bedrich Hrozny rozlustil:');
writeln('1.hieroglyfy');
writeln('2.klinove pismo');
writeln('3.chetitske pismo');
readln (a);
if a=3 then x:=x+1;
writeln;
if x>=4 then writeln('ziskal si ',x,' bodov , tvoje vedomosti su vynikajuce')
        else writeln('ziskal si ',x,' bodov, mal by si sa viac ucit');
readln;
end.