Vytvorené: 22. 10. 2013 Tlačiť
![]() |
program Obsahy_s_procedurami;
const pi=3.14159;
var
volba:integer;
procedure Stvorec;
var
a,S:integer;
begin
writeln('Zadaj velkost strany');
readln(a);
S:=a*a;
writeln('Obsah stvorca = ',S);
end;
procedure Obdlznik;
var
a,b,S:integer;
begin
writeln('Zadaj velkost stran');
readln(a,b);
S:=a*b;
writeln('Obsah obdlznika = ',S);
end;
procedure Kruh;
var
r:integer;
S:real;
begin
writeln('Zadaj velkost polomeru kruznice');
readln(r);
S:=pi*r*r;
writeln('Obsah kruhu = ',S:5:2);
end;
procedure Elipsa;
var
a,b:integer;
S:real;
begin
writeln('Zadaj dlzku poloosi A a B');
readln(a,b);
S:=pi*a*b;
writeln('Obsah elipsy = ',S:5:2);
end;
begin
writeln('Obsah akeho plosneho utvaru chces vypocitat?');
writeln('Obsah stvorca = 1');
writeln('Obsah obdlznika = 2');
writeln('Obsah kruhu = 3');
writeln('Obsah elipsy = 4');
readln (volba);
writeln;
case volba of
1:begin
writeln('Vypocitam obsah stvorca');
Stvorec;
end;
2:begin
writeln('Vypocitam obsah obdlznika');
Obdlznik;
end;
3:begin
writeln('Vypocitam obsah kruhu');
Kruh;
end;
4:begin
writeln('Vypocitam obsah elipsy');
Elipsa;
end;
end;
readln;
end.
![]() |
![]() |
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |