Navigace: Hlavní stránka -> BASIC -> 09 Soubory ->09.03 Přečtení čísel ze souboru, jejich součet a uložení součtu

MENU

09.03 Přečtení čísel ze souboru, jejich součet a uložení součtu

Zadání:
Sestavte program, který přečte z typového souboru náhodná čísla, vypočte jejich součet a vloží ho na konec souboru.
Řešení:
Pomocí příkazu FileOpen otevřeme soubor pro čtení. Pomocí cyklu DO ... LOOP UNTIL čteme ze souboru všechna
čísla, přičítáme je do součtu a na konci programu zapíšeme součet na konec souboru. 
Module Module1

    Sub Main()

        Dim cislo, soucet As Integer

        FileOpen(1, "data.dat", OpenMode.Random)

        soucet = 0

        Do
            FileGet(1, cislo)
            Console.Write("{0} ", cislo)
            soucet = soucet + cislo
        Loop Until (EOF(1))

        FilePut(1, soucet)
        Console.WriteLine()
        Console.WriteLine("Soucet={0}", soucet)

        FileClose(1)

        Console.ReadLine()

    End Sub

End Module
program ke stažení