Povrch a objem koule

Příklad popisuje výpočet povrchu ($S=4 \ast \pi \ast r \ast r$) a objemu ($V=4/3 \ast \pi \ast r \ast r \ast r$) koule. V hlavním programu má být využit výpočet povrchu a objemu koule bez volání podprogramu a s voláním podprogramu - viz Obrázek 1. Jako první krok ve vývojovém diagramu je výpočet povrchu a objemu koule se zadaným reálným poloměrem bez volání jakéhokoliv podprogramu. Ve výpisu jsme od sebe záměrně oddělili jednotlivé sekce volání podprogramů. Další krokem je volání deklarovaných podprogramů ve formě funkcí.  Nástroj Flowgorithm v současné době nedisponuje předávání parametrů odkazem, proto ve vývojovém diagramu využijeme pouze volání deklarovaného podprogramu bez návratu (procedury). 

Obrázek 1: Vývojový diagram algoritmu PovrchObjemKoule

Na následujícím obrázku vidíme deklaraci podprogramu PovrchKoule, která obsahuje jeden formální parametr předávaný hodnotou, do kterého je uložena reálná hodnota poloměru koule - viz Obrázek 2.  Návratem této funkce je reálná vypočtená hodnota povrchu koule. Ve výpočtu povrchu je použita konstanta Pi. 

Obrázek 2: Podprogram PovrchKoule (funkce)

V další deklaraci podprogramu pro výpočet objemu koule je využit stejný princip podprogramu (funkce) - viz Obrázek 3. 

Obrázek 3: Podprogram ObjemKoule (funkce)

Poslední deklarací algoritmu je podprogram bez návratu, v němž jsou vypsány obě vypočtené hodnoty - povrchu a objemu - viz Obrázek 4. Tyto hodnoty tedy nejsou, na rozdíl od předchozích funkcí, předány zpět do hlavního programu. 

Obrázek 4: Podprogram PovrchObjemKoule (procedura)