09.05 Převod textu do Morseovy abecedy
Zadání:
Sestavte program, který převede textový soubor do Morseovy abecedy.
Sestavte program, který převede textový soubor do Morseovy abecedy.
Řešení:
Pomocí příkazu FileOpen otevřeme soubor s Morseovou abecedou pro čtení. Pomocí cyklu FOR čteme ze souboru
všechny řádky, smažeme z nich první písmeno a mezeru a znak v Morseově abecedě zapíšeme na příslušné místo v poli
morse. Po načtení všech znaků soubor morse.txt zavřeme.
Otevřeme vstupní a výstupní soubor. Pomocí cyklu FOR čteme všechny znaky ze vstupního souboru, převedeme
je do Morseovy abecedy a zapíšeme do výstupního souboru.
Na konci programu oba soubory zavřeme.
Pomocí příkazu FileOpen otevřeme soubor s Morseovou abecedou pro čtení. Pomocí cyklu FOR čteme ze souboru
všechny řádky, smažeme z nich první písmeno a mezeru a znak v Morseově abecedě zapíšeme na příslušné místo v poli
morse. Po načtení všech znaků soubor morse.txt zavřeme.
Otevřeme vstupní a výstupní soubor. Pomocí cyklu FOR čteme všechny znaky ze vstupního souboru, převedeme
je do Morseovy abecedy a zapíšeme do výstupního souboru.
Na konci programu oba soubory zavřeme.
Module Module1
Sub Main()
Dim radek As String
Dim morse(25) As String
Dim i As Integer
Dim znak As Char
FileOpen(1, "morse.txt", OpenMode.Input)
For i = 0 To 25
radek = LineInput(1)
morse(i) = Right(radek, Len(radek) - 2)
Next i
FileClose(1)
FileOpen(2, "vstup.txt", OpenMode.Input)
FileOpen(3, "vystup.txt", OpenMode.Output)
radek = LineInput(2)
For i = 1 To Len(radek)
znak = UCase(radek(i - 1))
Select Case UCase(znak)
Case "A" To "Z"
Print(3, "/" & morse(Asc(znak) - Asc("A")))
Case " "
Print(3, "/")
End Select
Next i
Print(3, "/")
FileClose(2)
FileClose(3)
End Sub
End Module
program ke stažení