14. Součet násobků 7

Určete součet násobků čísla 7, dokud tento součet této řady nepřesáhne zadanou mez n. Výsledek součtu řady a počtu jejích prvků vypište v podprogramu (proceduře).

Např. pro n = 43 je součet násobků 7 roven 42, protože 42 = 7 + 14 + 21.

Hlavní program:

  • Výpočet součtu násobků čísla 7 pomocí podprogramu (procedura) Soucet7 volaného z hlavního programu - viz Obrázek 1

Hlavní program Soucet7DoZadaneho pro výpočet součtu násobků čísla 7 do zadané meze

Obrázek 1: Hlavní program Soucet7DoZadaneho pro výpočet součtu násobků čísla 7 do zadané meze 

Podprogram - procedura:

  • Soucet7 - viz Obrázek 2:
    • Formální parametr:

        • n ... zadaná mez (pro součet řady)
      • Proměnné: 

        • soucet ... součet prvků v řadě (násobků 7)
        • pocet ... počet prvků v řadě (násobků 7)
        • i ... prvek řady

    Podprogram Soucet7 - procedura pro výpočet součtu řady násobků 7 a výpis této hodnoty

    Obrázek 2: Podprogram Soucet7 - procedura pro výpočet součtu řady násobků 7 a výpis této hodnoty

    Výstup programu

    Výstup programu Soucet7DoZadaneho: Výpočet součtu násobků čísla 7 do zadané meze

    Výstup programu Soucet7DoZadaneho: Výpočet součtu násobků čísla 7 do zadané meze