Program, ktorý vás precvičí vo vybraných slovách s použitím IF

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: KMP (Klub mladých programátorov)
diktat.pngProgram: Diktat.pas
Súbor exe: Diktat.exe

Program, ktorý vás precvičí vo vybraných slovách s použitím IF.
{ 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.