09.02 Přečtení 10 čísel ze souboru
Zadání:
Sestavte program, který přečte z typového souboru 10 celých náhodných čísel a vytiskne je na obrazovku
Sestavte program, který přečte z typového souboru 10 celých náhodných čísel a vytiskne je na obrazovku
Řešení:
Pomocí příkazu FileOpen otevřeme soubor pro čtení.
Pomocí cyklu FOR přečteme ze souboru 10 čísel a vytiskneme je.
Pomocí příkazu FileOpen otevřeme soubor pro čtení.
Pomocí cyklu FOR přečteme ze souboru 10 čísel a vytiskneme je.
Module Module1
Sub Main()
Dim i, cislo As Integer
FileOpen(1, "data.dat", OpenMode.Random)
For i = 1 To 10
FileGet(1, cislo)
Console.Write("{0} ", cislo)
Next i
FileClose(1)
Console.ReadLine()
End Sub
End Module
program ke stažení