Navigace: Hlavní stránka -> BASIC -> 09 Soubory ->09.01 Uložení 10 čísel do souboru

MENU

09.01 Uložení 10 čísel do souboru

Zadání:
Sestavte program, který uloží do typového souboru 10 celých náhodných čísel.
Řešení:
Pomocí příkazu FileOpen vytvoříme prázdný soubor.
Pomocí cyklu FOR nagenerujeme 10 náhodných čísel a zapíšeme je do souboru. 
Module Module1

    Sub Main()

        Dim i, cislo As Integer

        Randomize(Timer)

        FileOpen(1, "data.dat", OpenMode.Random)
        For i = 1 To 10
            cislo = Rnd() * 100
            FilePut(1, cislo)
            Console.Write("{0} ", cislo)
        Next i

        FileClose(1)

        Console.ReadLine()

    End Sub

End Module
program ke stažení