Navigace: Hlavní stránka -> BASIC -> 01 Jednoduché výpočty -> 01.05 Obsah obdélníku

MENU

01.05 Obsah obdélníku

Zadání:
Sestavte program, ze zadaných stran obdélníku a,b vypočte jeho obsah.
Řešení:
Obsah obdélníku se vypočte podle vzorce S=ab
Module Module1

    Sub Main()

        Dim A, B, Obsah As Double

        Console.Write("Zadejte stranu A: ")
        A = Console.ReadLine()
        Console.Write("Zadejte stranu B: ")
        B = Console.ReadLine()

        Obsah = A * B

        Console.WriteLine("Obsah obdélníku = {0:0.000}", Obsah)

        Console.ReadLine()

    End Sub

End Module
program ke stažení