ZOZNAM PRÍKLADOV Z PROGRAMOVANIA K MATURITNÝM OTÁZKAM MPS NA ŠKOLSKÝ ROK 2007/2008
- Nakreslite algoritmus a napíšte program v pascale, ktorý na vstupe dostane číslo od 2 po 10 a vypíše jedennásobok, dvojnásobok, ..., desaťnásobok zadaného čísla
var cislo : byte;
I : byte;
begin
write(‚zadaj cislo, ktoreho nasobky chces vypisat:‘);
readln(cislo);
writeln(‚nasobky cisla ‘,cislo);
for i:=1 to 10 do
writeln(i:2,‘x‘ , cislo, ‚=‘, i*cislo:2);
readln;
end.
- Nakreslite algoritmus a napíšte program v pascale, ktorý nakreslí tabuľku malej násobilky.
var i,j :integer;
begin
writeln(‚Mala nasobilka‘)
writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do write(i*j:4);
writeln;
end;
readln;
end.
- Nakreslite algoritmus a napíšte program v pascale, ktorý vymení hodnotu premenných A,B :
a./ s použitím tretej premennej
b./ bez použitia tretej premennej
a./ var A,B,C:integer;
begin
writeln(‘zadaj hodnotu premennej A’);
readln(A);
writeln(‘zadaj hodnotu premennej B);
readln(B)
C:=A;
A:=B;
B:=C;
writeln(‘hodnota A po vymene je ’,A, ‘ a hodnota B po vymene je ’,B);
readln;
end.
b./ var A,B:integer;
begin
writeln(‘zadaj hodnotu premennej A’);
readln(A);
writeln(‘zadaj hodnotu premennej B);
readln(B)
A:=A+B;
B:=A-B;
A:=A-B;
writeln(‘hodnota A po vymene je ’,A, ‘ a hodnota B po vymene je ’,B);
readln;
end.
- Nakreslite algoritmus a napíšte program v pascale, ktorý po zadaní čísla na vstupe /N/ vráti súčet postupnosti S = 1 + 2 + 3 + .........+ N
a./ sekvenčným algoritmom
b./ algoritmom s cyklením
a./ var N,S:integer;
begin
writeln(‘zadaj cislo N);
readln(N);
S:=1/2N*(N+1);
writeln(‘sucet postupnosti 1 az N je ’,S);
readln;
end.
b./ var N,S,i:integer;
begin
S:=0
writeln(‘zadaj cislo N);
readln(N);
for i:=1 to N do
begin
S:=S+i;
end;
writeln(‘sucet postupnosti 1 az N je ‘,S);
readln;
end.
- Nakreslite algoritmus a napíšte program v pascale, ktorý vyhľadá maximálnu hodnotu z N čísiel na vstupe
var N,MAX,I,X:integer;
begin
MAX:=0;
writeln(‘zadaj pocet cisel, z ktorych mam urcit maximalnu hodnotu’);
readln(N);
for i:=1 to N do
begin
writeln(‘zadaj mi ‘,i, ‘.cislo’);
readln(X);
if X>MAX then MAX:=X;
end;
writeln(‘Maximalne cislo z ‘,N,’ cisel na vstupe bolo ’,MAX);
readln;
end.
6. Nakreslite algoritmus a napíšte program v pascale, ktorý vypočíta BMI index a vypíše, či máte alebo nemáte nadváhu. BMI = telesný hmotnostný index, vyráta sa ako podiel hmotnosti v kilogramoch a výšky v metroch na druhú, BMI > 18,5 podváha, 18,5<=BMI<25 normálna hmotnosť, 25<=BMI<30 nadváha, BMI>30 obezita.
var BMI, h,v: real;
begin
writeln(‘zadaj svoju hmotnost v kg‘);
readln(h);
writeln(‘zadaj svoju vysku v m‘);
readln(v);
BMI:=h/(v*v);
write(‘tvoj BMI index je: ‘, BMI:5:1,‘ ‘);
if BMI<18.5 then writeln(‚mas podvahu‘);
if (BMI>=18.5) and (BMI<25) then writeln(‘mas normalnu vahu‘);
if (BMI>=25) and (BMI<30) then writeln(‘mas nadvahu‘);
if (BMI>=30) then writeln(‘si obezny‘);
readln;
end.
- Máte 3 čísla v dvojkovej sústave A=011100001110, B=010101010101 a C=001100110011. Určite, ktoré z nasledujúcich tvrdení je pravdivé a číslo A zmeňte do desiatkovej sústavy.
a./ S=100100110000
b./ S=110001000000
c./ S=010011101100
d./ S=001100001010
e./ výsledkom je záporné číslo a nedá sa v danom počte bitov zapísať
/odpoveď c je správna/
- Nakreslite algoritmus a napíšte program v pascale na vypočítanie postupnosti S=1/(1*2) + 2/(2*3) + 3/(3*4) + ...........+ N/(N+1)
var i,N:integer;
S:real;
begin
writeln(‘zadaj pre ake N mam postupnost vypocitat’);
readln;
S:=0;
for i:=1 to N do
begin
S:=S+i/(i*(i+1))
end;
writeln(‘sucet postupnosti pre N=’,N,’ je ‘,S);
readln;
end.
- Nakreslite algoritmus a napíšte program v pascale na určenie MAXimálneho a MINimálneho čísla v postupnosti ak postupnosť má N čísel.
var MAX,MIN,N,X,i:integer;
begin
writeln(‘zadaj z kolkych cisel mam zistovat max a min hodnotu’);
readln(N);
writeln(‘zadaj 1.cislo’);
readln(X);
MAX:=X;
MIN:=X;
for i:=2 to N do
begin
writeln(‘zadaj ‘,i,’.cislo’);
readln(X);
if X>MAX then MAX:=X;
if X<MIN then MIN:=X;
end;
writeln(‘maximalne cislo postupnosti je ‘,MAX);
writeln(‘minimalne cislo postupnosti je ‘,MIN);
readln;
end.
- Nakreslite algoritmus a napíšte program v pascale na zistenie počtu čísiel Z v postupnosti ak vstupné čísla ukončím zadaním čísla X.
var Z,X,i,A,sucet:integer;
begin
writeln(‘zadaj znak co hladam‘);
readln(Z);
writeln(‘zadaj akym znakom sa vypocet ukonci‘);
sucet:=0;
repeat
writeln(‚zadaj cislo‘);
readln(A);
if A=Z then sucet:=sucet+1;
until(A=X);
writeln(‘pocet hladanych znakov ‘,Z,‘ bolo v postupnosti ‘,sucet);
readln;
end.
- Nakreslite algoritmus a napíšte program v pascale na súčet čísel na vstupe ak posledným číslom postupnosti je 0 a vypiste kolko cisel som musel spocitat.
var i,A,sucet:integer;
begin
sucet:=0;
i:=0;
repeat
writeln(‘zadaj cislo‘);
readln(A);
i:=i+1;
sucet:=sucet+A;
until(A=0);
writeln(‘sucet cisel bol ‘,sucet,‘ a spocitat som musel az ‘,i,‘ cisel‘);
readln;
end.
- Nakreslite algoritmus a program v pascale pre výpočet mzdy pri odchode do dôchodku ak poznáte vek nástupu do práce, vek odchodu do dôchodku, percentuálny ročný nárast a nástupný plat zamestnanca.
var i,ZAC,KON,praca,perc:integer;
plat:real;
begin
writeln(‘zadaj svoj vek pri nastupe do prace’);
readln(ZAC);
writeln(‘zadaj svoj vek pri odchode do dochodku’);
readln(KON);
praca:=KON-ZAC;
writeln(‘zadaj svoj nastupny plat’);
readln(‘plat’);
writeln(‘o kolko ti rastie mzda rocne v priemere’);
readln(perc);
for i:=2 to praca do
begin
plat:=(1+(perc/100))*plat;
end;
writeln(‘Tvoj plat pri odchode do dochodku bude ‘,plat);
readln;
end.
- Nakreslite algoritmus a program v pascale, ktorý nakreslí na obrazovku šachovnicu so smajlíkov /☻-ALT2/ aj s popisom políčok.
uses crt;
var i:integer;
c:char;
begin
clrscr;
write(‘ ‘ : 17);
for c:=’A’ to H do write(c:2);
writeln;
for i:=8 downto 1 do
begin
write(i : 17,’ ‘);
if (I mod 2)=1 then writeln(‘ ☻ ☻ ☻ ☻ ‘,i:2)
else writeln(‘☻ ☻ ☻ ☻ ‘,i:2)
end;
write(‘ ‘ :17);
for c:=’A’ to ‘H’ do write(c:2);
readln;
end.
- Nakreslite algoritmus a program v pascale na hru hádaj číslo. Počítač si vymyslí celé číslo z intervalu 1..100. Hráč zadá číslo, počítač mu vždy poradí, či je hádané číslo menšie alebo väčšie ako zadané. Hra končí uhádnutím čísla.
var cislo,vymyslene,pokusy:byte;
begin
writeln(‘myslim si cislo z intervalu 1..100’);
randomize;
vymyslene:=random(100)+1;
pokusy:=0;
repeat
write(‘zadaj cislo’);
readln(cislo);
if cislo=vymyslene then writeln(‘uhadol si’);
if cislo<vymyslene then writeln(‘moje cislo je vacsie’);
if cislo>vymyslene then writeln(‘moje je mensie’);
pokusy:=pokusy+1;
until vymyslene=cislo;
writeln(‘potreboval si hadat ‘,pokusy,’ krat’);
readln;
end.
- Nakreslite algoritmus a program v pascale, ktorý načíta hodnotu N a nakreslí na obrazovku modrú kocku zo smajlíkov /☻-ALT2/ so stranou veľkosti N.
uses crt;
var i,j,n:integer;
begin
write(‘zadaj stranu kocky‘);
readln(n);
clrscr;
for i:=1 to n do
begin
textcolor(blue);
for j:=1 to 2*n do writw(‘☻’);
writeln;
end;
readln;
end.
16. V obchode pracuje 8 predavačov. Vedúci chce vyhodnotiť ich usilovnosť. Vždy si poznačí, ktorý predavač sa zákazníkovi venoval. Program dostane postupnosť čísel 1..8 ukončenú 0 a má vyhodnotiť, koľko zákazníkov za deň obslúžil každý z predavačov.
var p:array[1..8] of byte;
i,cislo:byte;
begin
for i:=1 to 8 do p[i]:=0;
i:=0;
writeln(’zadaj cisla predavacov: ’);
repeat
inc(i);
write(I, ’. ’);
readln(cislo);
if cislo<>0 then inc(p[cislo]);
until cislo=0;
writeln(’obsluzili : ’);
for i:=1 to 8 do write(’ ’:3,i, ’. ’);
writeln;
for i:=1 to 8 do write(p[i]:4, ’ ’:4);
writeln;
readln;
end.
17.
