{ DIKTAT.PAS } { Program, ktory vas precvici vo vybranych slovach s pouzitim IF. } { } { Datum:02.12.2008 http://www.trsek.com } program i_y; uses crt; var a,b,c,d,e,f,g,i,j,k,l:longint; begin clrscr; textcolor(10);writeln('Toto je program i-y. Vyskusam ta z vybranich slov.'); writeln('Ak v slove ma byt i-napis 1'); writeln('Ak v slove ma byt y-napis 2'); writeln('Za kazdu spravnu odpoved dostanes 1 bod'); writeln('---------------------------------------'); writeln('v_r ...druh vtaka'); readln(a); if(a=1)then a:=0; if(a=2)then a:=1; writeln('v_r ...napr. vodny'); readln(b); if(b=1)then b:=1; if(b=2)then b:=0; writeln('r_ba'); readln(c); if(c=1)then c:=0; if(c=2)then c:=1; writeln('m_ ...privlastnovacie zameno'); readln(d); if(d=1)then d:=1; if(d=2)then d:=0; writeln('m_ ...osobne zakladne zameno'); readln(e); if(e=1)then e:=0; if(e=2)then e:=1; writeln('ob_lie'); readln(f); if(f=1)then f:=1; if(f=2)then f:=0; writeln('b_t ...niekym'); readln(g); if(g=1)then g:=0; if(g=2)then g:=1; writeln('b_t ...niekoho'); readln(i); if(i=1)then i:=1; if(i=2)then i:=0; writeln('p_sk ...zvieraci'); readln(j); if(j=1)then j:=0; if(j=2)then j:=1; writeln('p_sk ... z pistalky'); readln(k); if(k=1)then k:=1; if(k=2)then k:=0; l:=a+b+c+d+e+f+g+i+j+k; writeln('Pocet bodov:',l,' z 10.'); if(l=10)then writeln('Hodnotenie: 1*'); if(l=9)then writeln('Znamka: 1'); if(l=8)then writeln('Znamka: 2'); if(l=7)then writeln('Znamka: 2'); if(l=6)then writeln('Znamka: 3'); if(l=5)then writeln('Znamka: 3'); if(l=4)then writeln('Znamka: 4'); if(l=3)then writeln('Znamka: 4'); if(l=2)then writeln('Znamka: 5'); if(l=1)then writeln('Znamka: 5'); if(l=0)then writeln('Znamka: 5'); readln; end.