Navigace: Hlavní stránka -> BASIC -> 02 Jednoduché výpočty s podmínkou -> 02.03 Výpočet hodnot funkcí z hodnoty x

MENU

02.03 Výpočet hodnot funkcí

Zadání:
Sestavte program, který vypočte z hodnoty x hodnoty y1-y6 podle vzorců:

Řešení:
Pomocí standardních funkcí programovacího jazyku vypočítat z hodnoty x hodnoty y1 - y6. 
Module Module1

    Sub Main()

        Dim x, y1, y2, y3, y4, y5, y6 As Double

        Console.Write("Zadejte hodnotu x: ")
        x = Console.ReadLine

        If x - 2 = 0 Or 2 * x + 1 = 0 Or x + 3 = 0 Or x - 7 = 0 Or 2 * x - 3 = 0 Then
            Console.WriteLine("Vypocet nelze provest")
        Else
            y1 = (2 * x + 3) / (x - 2)
            y2 = (x - 2) / (2 * x + 1)
            y3 = (x ^ 2 - 9) / (x + 3)
            y4 = x / (x - 7)
            y5 = (4 * x ^ 2 - 3 * x) / 5
            y6 = (x ^ 2 - 5) / (x + 3) - (x - 5) ^ 2 / (2 * x - 3) ^ 3
            Console.WriteLine("y1 = {0:0.000}", y1)
            Console.WriteLine("y2 = {0:0.000}", y2)
            Console.WriteLine("y3 = {0:0.000}", y3)
            Console.WriteLine("y4 = {0:0.000}", y4)
            Console.WriteLine("y5 = {0:0.000}", y5)
            Console.WriteLine("y6 = {0:0.000}", y6)
        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:
Hodnoty x, pro které lze vypočítat všech šest hodnot y jsou např. {0},{1},{4}.