Navigace: Hlavní stránka -> BASIC -> 02 Jednoduché výpočty s podmínkou -> 02.04 Obsah obdélníku

MENU

02.04 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

        If A > 0 And B > 0 Then
            Obsah = A * B
            Console.WriteLine("Obsah obdélníku = {0:0.000}", Obsah)
        Else
            Console.WriteLine("Spatne zadani")
        End If

        Console.ReadLine()

    End Sub

End Module
program ke stažení