Navigace: Hlavní stránka -> BASIC -> 01 Jednoduché výpočty -> 01.27 Částku v Kč na počet bankovek a mincí

MENU

01.27 Částku v Kč na počet bankovek a mincí

Zadání:
Sestavte program, zadanou částku převede na nejmenší počet bankovek a mincí.
Řešení:
Výpočet začíná největší možnou bankovkou. Pro každou bankovku či minci je nejprve celočíselným dělením vypočítat
počet bankovek či mincí a následovně počet těchto bankovek či mincí vynásobený jejich hodnotou odečíst od částky. 
Module Module1

    Sub Main()

        Dim c, p5000, p1000, p500, p200, p100, p50, p20, p10, p5, p2 As Integer

        Console.Write("Zadejte celkovou castku: ")
        c = Console.ReadLine

        p5000 = c \ 5000
        c = c - p5000 * 5000
        p1000 = c \ 1000
        c = c - p1000 * 1000
        p500 = c \ 500
        c = c - p500 * 500
        p200 = c \ 200
        c = c - p200 * 200
        p100 = c \ 100
        c = c - p100 * 100
        p50 = c \ 50
        c = c - p50 * 50
        p20 = c \ 20
        c = c - p20 * 20
        p10 = c \ 10
        c = c - p10 * 10
        p5 = c \ 5
        c = c - p5 * 5
        p2 = c \ 2
        c = c - p2 * 2

        Console.WriteLine("5000 = {0}", p5000)
        Console.WriteLine("1000 = {0}", p1000)
        Console.WriteLine("500 = {0}", p500)
        Console.WriteLine("200 = {0}", p200)
        Console.WriteLine("100 = {0}", p100)
        Console.WriteLine("50 = {0}", p50)
        Console.WriteLine("20 = {0}", p20)
        Console.WriteLine("10 = {0}", p10)
        Console.WriteLine("5 = {0}", p5)
        Console.WriteLine("2 = {0}", p2)
        Console.WriteLine("1 = {0}", c)

        Console.ReadLine()

    End Sub

End Module
program ke stažení