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.

 

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:


    Umela inteligencia Novy narodopis Teoria poezie 3D-tlac Arduino Nove rekordy Prudove chranice Robotika Priemysel 4.0 Dejiny Slovenska do roku 1945 ang_znacky_fluidsim LOGOSoftComfort Novinky Historia elektromobilov Free e-kurzy Elektrina pre ZŠ Druhá svetová vojna Cvičebnice O troch pilieroch EP je spat Prehlad Fyzika Prehlad Informatika Ako sa učiť a ako učiť Dejiny sveta

     

    · 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ť


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