Navigace: Hlavní stránka -> BASIC -> 02 Jednoduché výpočty s podmínkou -> 02.02 Výpočet hodnoty funkce s koeficientem

MENU

02.02 Výpočet hodnoty funkce s koeficientem

Zadání:
Sestavte program, který vypočte z hodnoty x hodnotu y podle vzorce (a,b,c,d jsou parametry, zadávané z klávesnice):

Řešení:
Pomocí standardních funkcí programovacího jazyku vypočítat z hodnoty x a parametrů a,b,c,d hodnotu y.
Module Module1

    Sub Main()

        Dim a, b, c, d, x, y As Double

        Console.Write("Zadejte koeficient a: ")
        a = Console.ReadLine
        Console.Write("Zadejte koeficient b: ")
        b = Console.ReadLine
        Console.Write("Zadejte koeficient c: ")
        c = Console.ReadLine
        Console.Write("Zadejte koeficient d: ")
        d = Console.ReadLine
        Console.Write("Zadejte hodnotu x: ")
        x = Console.ReadLine

        If c * x + d <> 0 Then
            y = (a * x + b) / (c * x + d)
            Console.WriteLine("Hodnoty funkce y = {0:0.000}", y)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module
program ke stažení
Pro studenty:
Při převodu do programovacího jazyku je třeba dát si pozor ve zlomcích na správné použití závorek.

Pro učitele:
Vysvětlit použití závorek ve zlomcích.
Lze také řešit v celých číslech