Priklad

Nevedel by niekto pomoct s prikladom v pascale?
Je to k projektu co som pisal v diskusii, takze nieje to pre mna, je to pre moju znamu, na gymnaziu ktora sa do toho vobec nerozumie. Velmi by som Vas poprosil, su tu 4 "temy" ktore treba urobit, vlemi by som Vam bol vdacny.

Temy: · 05_01: Priemer z n hodnot
· 05_02: hra kameň, papier, nožnice.
· 05_03: Tabelacia funkcie y=x^2+4x+1
· 05_04: Vymena mena a priezviska / 05_04.in

1:

uses crt;
var hod,vys,suc:real;
op,n:integer;
begin
writeln('Zadaj pocet cisel');
readln(n);
suc:=0;
for op:=1 to n do begin
clrscr;
writeln('Zadaj hodnotu');
readln(hod);
suc:=suc+hod;
end;
clrscr;
vys:=suc/n;
writeln('Priemer je ',vys:6:2);
readln;
end.


2:

uses crt;
var na,vol:integer;
begin
randomize;
repeat
repeat
clrscr;
writeln('Co zvolis?');
writeln('1. Kamen');
writeln('2. Papier');
writeln('3. Noznice');
readln(vol);
until((vol<4)and(vol>0));
{1=kamen
2=papier
3=noznice}
case vol of
1:begin{kamen}
na:=random(3)+1;
if na=1 then writeln('Kamen, nerozhodne');
if na=2 then writeln('Papier, prehral si');
if na=3 then writeln('Noznice, vyhral si');
end;
2:begin{papier}
na:=random(3)+1;
if na=1 then writeln('Kamen, vyhral si');
if na=2 then writeln('Papier, nerozhodne');
if na=3 then writeln('Noznice, prehral si');
end;
3:begin{noznice}
na:=random(3)+1;
if na=1 then writeln('Kamen, prehral si');
if na=2 then writeln('Papier, vyhral si');
if na=3 then writeln('Noznice, nerozhodne');
end;
end;
writeln('Znova?');
repeat
writeln('1 ano');
writeln('2 nie');
readln(vol)
until((vol<3)and(vol>0));
until vol=2;
end.

3: čo je tabelacia?
4: ako to mysíš?