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.

 

Výpočet obsahu a obvodu kruhu

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

 

Výpočet obsahu a obvodu obdĺžníka

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

 

Hodnotenie užitočnosti článku:


    EP je spat Prehlad Fyzika Prehlad Informatika Treti pilier Fotograf_krojov On-line kurzy Ako sa učiť a ako učiť Dejiny sveta Dejiny Slovenska

     

    O VŠETKÝCH KURZOCH 

     

    · 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
    Mám účet a chcem sa prihlásiť Prihlásiť sa
    Nemám účet, ale chcel by som ho získať Registrovať sa
    Poznámka pre autora

    Ak ste na stránke našli chybu, dajte nám vedieť

    Newsletter

    Nenechajte si ujsť žiadny nový článok

    @

    Copyright © 2013-2021 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady