program cela_cisla;
(*
3.cviceni 2.priklad celociselne operace div,mod
*)
var
i,j,k,l:integer;
begin
writeln('Zadej citatel a jmenovatel:');
readln(i,j);
if(j=0) then
begin
writeln('Jmenovatel nemuze byt nula!!');
exit
end;
k:=i div j;
l:=i mod j;
write(i:3,' DIV ',j:3,'=',k,' ');
writeln(i:3,' MOD ',j:3,'=',l);
end.
program koule;
{prednedeni pouziti const a exit}
const
pi=3.1415926535;
celkmist=10;
desmist=4;
var polomer,plocha,objem:real;
a,b,c,d,e:real;
begin
writeln('Zadej polomer:');
read(polomer);
if(polomer<=0)then
begin
writeln('Nespravna hodnota polomeru=',polomer);
exit
end else
begin {tady uz by bylo mozno else begin-end vynechat}
plocha:=4*pi*sqr(polomer);
objem:=polomer*plocha/3;
writeln('Velikost koule:');
writeln('Polomer =',polomer:celkmist:desmist);
writeln('Plocha =',plocha:celkmist:desmist);
writeln('Objem =',objem:celkmist:desmist);
(* testovaci vysledky:
Polomer = 10
Plocha = 1256.6371
Objem = 4188.7902 *)
end
end.
program log;
{zkouseni ruznych logických operaci}
var
l,m:boolean;
a,b,c,d:integer;
begin
writeln('Zadej cisla a,b');
readln(a,b);
l:=a = b; {tady zkouset ruzne operatory}
writeln(l);
end.