Nevedel by niekto pomoct s prikladom v pascale?
Je to k projektu co som spominal v inej sekcii, 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, velmi 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
Priklad v Pascale
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
no takéto zadania, och.. musel som si dosť domýšlať (ako sa budú vlastne vstupy zadávať..) ale na tie druhé dva už nemám predstavivosť. Vymeniť meno a priezvisko? A to bude ako čo? record alebo dve textové? ...
Kód: Vybrať všetko
program Priemer;
var pocet,sucet,cislo:integer;
begin
sucet:=0;
pocet:=0;
write('Zadaj cislo: ');
readln(cislo);
while cislo<>0 do begin
sucet:=sucet+cislo;
inc(pocet);
write('Zadaj cislo: ');
readln(cislo);
end;
write('Priemer je: ',sucet/pocet :3:3);
readln;
end.Kód: Vybrať všetko
program KPN;
var tah,nahodne:integer;
begin
writeln('Kamen.........1');
writeln('Papier........2');
writeln('Noznice.......3');
writeln('Koniec........0');
readln(tah);
while tah<>0 do begin
if tah>3 then tah:=3;
nahodne:=random(3)+1;
if(tah < nahodne) then write('Prehral si') else
if(tah > nahodne) then write('Vyhral si') else write('Remiza');
writeln('Kamen.........1');
writeln('Papier........2');
writeln('Noznice.......3');
writeln('Koniec........0');
readln(tah);
end;
end.
