Programy - Obsah a obvod :)

Vytvorené: 22. 10. 2013 Tlačiť

Výpočet rôznych obsahov

Program napísaný v jazyku vývojových diagramov.

Program napísaný v jazyku Pascal.

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.