prvok');
readln(a[i]);
end;
writeln('Povodne pole:');
for i:=1 to n do write(a[i]:3);
writeln;
randomize;
m:=random(100)+1; {m - pocet premiesani}
for i:=1 to m do begin
u:=random(n)+1; {u,v - index}
v:=random(n)+1;
vymena(u,v);
end;
writeln('Premiesane pole:');
for i:=1 to n do write(a[i]:3);
readln;
end.
20, Zostavte program, ktorý zistí podiel dvoch čísel s presnosťou na určený počet
desatinných miest.
21, Zostavte program na vypísanie prvých desatinných riadkov Pascalovho
trojuholníka.
program Pascalov_trojuholnik;
uses CRT;
const posun=30;
var i,j:integer;
function faktorial(n:integer):longint;
var i:integer;
f:longint;
begin
f:=1;
if n=0 then faktorial:=1
else begin
for i:=1 to n do f:=f*i;
faktorial:=f;
end;
end;
function komb_cislo(n,k :integer):integer;
var p:real;
begin
p:=faktorial(n)/(faktorial(n-k)*faktorial(k));
komb_cislo:=trunc(p);
end;
begin
Clrscr;
for i:=0 to 9 do begin
write(' ':posun-2*i);
for j:=0 to i do write(komb_cislo(i,j):4);
writeln;
end;
readln;
end.
22, Zostavte program na výpočet počtu dní medzi dvoma dátumami.
program pr_22;
const m:array[1..12] of integer =(31,28,31,30,31,30,31,31,30,31,30,31);
var d1,d2,m1,m2,r1,r2,i,c1,c2,b,s,p:integer;
begin
writeln('Zadaj 1.datum v tvare den, mesiac, rok');
readln(d1, m1, r1);
writeln('Zadaj 2.datum v tvare den, mesiac, rok');
readln(d2, m2, r2);
c1:=0;
for i:=1 to m1-1 do c1:=c1+m[i];
if ((r1 mod 4)=0) and (m1>2) then c1:=c1+1;
c1:=c1+d1;
c2:=0;
for i:=1 to m2-1 do c2:=c2+m[i];
if ((r2 mod 4)=0) and (m2>2) then c2:=c2+1;
c2:=c2+d2;
b:=(r2-r1) div 4; {pocet prestupnych rokov}
s:=(r2-r1)*365+b; {pocet dni medzi rokmi r1 a r2}
p:=s+c2-c1; {celkovy pocet dni}
writeln('Celkovy pocet dni je ',p);
readln;
end.
23, Zostavte program na výpis dní ľubovolného mesiaca roku 2002.
program dni;
var m:integer;
begin
write('zadaj cislo mesiac: ');
readln(m);
if m=2 then write (m,'mesiac ma 28 dni')
else
if ((m=4) or (m=6) or (m=9) or (m=11)) then writeln(m,'mesiac ma 30 dni')
else writeln(m,'mesiac ma 31 dni');
writeln;
readln
end.
program pr_23;
uses Crt;
var i,j:integer;
mesiac:string;
m:array[1..12] of string;
begin
ClrScr;
m[1]:='januar';
m[2]:='februar';
m[3]:='marec';
m[4]:='april';
m[5]:='maj';
m[6]:='jun';
m[7]:='jul';
m[8]:='august';
m[9]:='september';
m[10]:='oktober';
m[11]:='november';
m[12]:='december';
writeln('Zadaj mesiac');
readln(mesiac);
for i:=1 to 12 do if m[i]=mesiac then j:=i;{j-poradove cislo mesiaca}
case j of
1,3,5,7,8,10,12:writeln('Mesiac ',mesiac,' ma ',31,' dni');
2:writeln('Mesiac ',mesiac,' ma ',28,' dni');
4,6,9,11:writeln('Mesiac ',mesiac,' ma ',30,' dni');
end;
readln;
end.
24, Zostavte program, ktorý uhol v sekundách premení na stupne, minúty a sekundy.
program pr_24;
uses CRT;
var stupne, minuty, sekundy, p:integer;
begin
ClrScr;
writeln('Zadaj uhol v sekundach');
readln(sekundy);
stupne:=sekundy div 3600;
p:=sekundy mod 3600;
minuty:=p div 60;
sekundy:=p mod 60;
writeln('Vysledok: ',stupne,' stupnov, ',minuty,' minut a ',sekundy,' sekund');
readln;
end.
25, Sú zadané tri čísla. Môžu byť stranami trojuholníka? Akého?
program trojuholnik;
var a, b, c, max:real;
begin
write('zadaj strany strany: a, b, c, : ');
readln(a,b,c);
if ((a+b>c) and (a+c>b) and (b+c>a))
then
begin
writeln('a= ',a,'b= ',b,'c= ',c,' su stranami trojuholnika');
if a>b then max:=a
else max:=b;
if max
else
begin
if ((a=b) and (b=c) and (a=c)) then writeln(' je to rovnostranny trojuholnik')
else
if (a=b) then writeln('je to rovnoramenni trojuholnik')
else writeln('je to nepravidelny trojuholnik');
end
end
else
writeln('a= ',a,'b= ',b,'c= ',c,' nie su stranami trojuholnika');
readln
end.
26, Malá ručička hodín sa pohybuje o jedenminútový diel za 12 minút.
