A-level 計算機科學/AQA/試卷 1/程式框架/AS2018
這是針對 AQA AS 計算機科學規範的。
在這裡可以提出關於一些問題可能是什麼以及如何解決它們的建議。
請保持尊重，不要破壞或篡改頁面，因為這會影響學生備考！
修改程式，以便使用者可以將傳輸（從空格和等號的形式）讀寫到二進位制格式（以減少儲存空間）。
C#
Delphi/Pascal
Java
Python
# These functions need to be added to relavent subroutines if support for a binary file is required:
# BinaryEncode result passed as parameter to BinaryWrite with filename, called from SendMorseCode (pass MorseCodeString to BinaryEncode)
# BinaryRead result (parameter is file name) passed as parameter to BinaryDecode, and the return is to be used as variable Transmission in GetTransmission()
# Python binary file handling reads / writes in bytes. Therefore, for optimum usage, we need to be making full use of each byte. Letting a space be a 0 and an equals sign be 1, each 8 characters from the currently supported text file become 1 byte. Leftmost character = first value in each byte, 8n th = last byte of array
def BinaryEncode(Message):
Bytes = []
Current = 128
Count = 0
for Character in Message:
if Current == 0.5:
Bytes.append(int(Count))
Count = 0
Current = 128
if Character == '=':
Count += Current
Current = Current / 2
if Count != 0:
Bytes.append(int(Count))
return bytes(Bytes) # base10 -> base2 value
def BinaryWrite(Bytes, FileName):
FileHandle = open(FileName, 'wb')
FileHandle.write(Bytes)
FileHandle.flush()
FileHandle.close()
def BinaryRead(FileName):
FileHandle = open(FileName, 'rb')
ByteValues = list(FileHandle.read()) # base2 -> base10 value
FileHandle.close()
return ByteValues
def BinaryDecode(Bytes):
Message = str()
for Byte in Bytes:
for BitValue in [128, 64, 32, 16, 8, 4, 2, 1]:
if Byte >= BitValue:
Byte -= BitValue
Message += '='
else:
Message += ' '
return Message
# Example usage (using message from preliminary material
Bin = (BinaryEncode("=== = = === === = = === "))
BinaryWrite(Bin, 'binfile')
print(BinaryDecode(BinaryRead('binfile')))
VB.NET
此問題涉及GetTransmission和ReceiveMorseCode子程式。該問題要求建立GetKey和DecryptTransmission子程式。
程式框架需要進行調整，以便能夠接收和解密使用替換密碼加密的訊息。解密方法是將解密金鑰應用於訊息。
在替換密碼中，每個字元都被替換成另一個字元。例如，每個字母 A 都可以替換成數字 7。
解密金鑰將儲存在一個文字檔案中，包含 36 個字元。前 26 個字元將代表字母 A - Z，接下來的 10 個字元將代表數字 0 - 9。
需要建立一個新的 GetKey 子程式，它將從使用者指定的檔案中讀取並返回金鑰。如果未指定金鑰，則該子程式應返回金鑰：ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789。此金鑰應解釋為每個字元都代表它本身。
需要建立一個新的 DecryptTransmission 子程式，它將解密金鑰應用於傳輸。它將由 ReceiveMorseCode 中的新行呼叫，插入到print(PlainText)之前。
PlainText = DecryptTransmission(PlainText)。
C#
Delphi/Pascal
Java
Python
def ReceiveMorseCode(Dash, Letter, Dot):
PlainText = EMPTYSTRING
MorseCodeString = EMPTYSTRING
Transmission = GetTransmission()
LastChar = len(Transmission) - 1
i = 0
while i < LastChar:
i, CodedLetter = GetNextLetter(i, Transmission)
MorseCodeString = MorseCodeString + SPACE + CodedLetter
PlainTextLetter = Decode(CodedLetter, Dash, Letter, Dot)
PlainText = PlainText + PlainTextLetter
print(MorseCodeString)
PlainText = DecryptTransmission(PlainText)
print(PlainText)
def GetKey():
theline = ''
with open('keykey.txt', 'r') as decryptionkey:
for line in decryptionkey:
theline = line
return theline
def DecryptTransmission(gibberish):
keys = GetKey()
#print(keys)
keylst = []
for i in keys:
keylst.append(i)
actualword = list('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789')
decryptedmessage = ''
for lettertodecrypt in gibberish:
if lettertodecrypt in keys:
decryptedmessage += actualword[keylst.index(lettertodecrypt)]
elif lettertodecrypt == ' ':
decryptedmessage += ' '
else:
print('Invalid')
return decryptedmessage
VB.NET
程式當前在輸入錯誤選項時只是再次列印選單；新增驗證，以便程式在輸入無效選項時列印一條訊息。
C#
switch (MenuOption)
{
case "R":
ReceiveMorseCode(Dash, Letter, Dot);
break;
case "S":
SendMorseCode(MorseCode);
break;
case "X":
ProgramEnd = true;
break;
default:
Console.WriteLine("You have made an invalid selection. Try again");
break;
}
Delphi/Pascal
Procedure SendReceiveMessages();
const
Dash: array[0..26] of Integer = (20,23,0,0,24,1,0,17,0,21,0,25,0,15,11,0,0,0,0,22,13,0,0,10,0,0,0);
Dot : array[0..26] of Integer = (5,18,0,0,2,9,0,26,0,19,0,3,0,7,4,0,0,0,12,8,14,6,0,16,0,0,0);
Letter : array[0..26] of Char= (' ','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
MorseCode : array[0..26] of String= (' ','.-','-...','-.-.','-..','.','..-.','--.','....','..','.---','-.-','.-..','--','-.','---','.--.','--.-','.-.','...','-','..-','...-','.--','-..-','-.--','--..');
var
ProgramEnd : Boolean;
MenuOption : String;
begin
ProgramEnd := False;
while not(ProgramEnd) do
begin
DisplayMenu();
MenuOption := GetMenuOption();
if (MenuOption = 'R') or (MenuOption ='r') then
ReceiveMorseCode(Dash, Letter, Dot)
else if (MenuOption = 'S') or (MenuOption='s') then
SendMorseCode(MorseCode)
else if (MenuOption = 'X') or (menuOption='x') then
ProgramEnd := True
else
writeln('you did not enter a valid option.');
readln;
end;
end
Java
static void sendReceiveMessages() throws IOException {
int[] dash = { 20, 23, 0, 0, 24, 1, 0, 17, 0, 21, 0, 25, 0, 15, 11, 0, 0, 0, 0, 22, 13, 0, 0, 10, 0, 0, 0 };
int[] dot = { 5, 18, 0, 0, 2, 9, 0, 26, 0, 19, 0, 3, 0, 7, 4, 0, 0, 0, 12, 8, 14, 6, 0, 16, 0, 0, 0 };
char[] letter = { ' ', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R',
'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z' };
String[] morseCode = { " ", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-",
".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--",
"--.." };
boolean programEnd = false;
while (!programEnd) {
displayMenu();
String menuOption = scan.next();
if (menuOption.equalsIgnoreCase("r")) {
receiveMorseCode(dash, letter, dot);
} else if (menuOption.equalsIgnoreCase("s")) {
sendMorseCode(morseCode);
} else if (menuOption.equalsIgnoreCase("x")) {
programEnd = true;
}else {
System.out.println("That was an Incorrect Input");
}
}
}
Python
def GetMenuOption():
MenuOption = EMPTYSTRING
Correct = False
while len(MenuOption) != 1:
MenuOption = input("Enter your choice: ")
if MenuOption == 'R' or MenuOption == 'S' or MenuOption == 'X':
Correct = True
else:
{{CPTAnswerTab|C#}}
MenuOption = input("Invalid choice. Re-Enter your choice: ")
return MenuOption
## Change from lower to upper case with ascii incase they lead you up to it or tell you to use ascii instead of .upper()
def GetMenuOption():
MenuOption = EMPTYSTRING
while len(MenuOption) != 1:
MenuOption = raw_input("Enter your choice: ")
Ascii = ord(MenuOption)
if Ascii>=97:
Ascii=Ascii-32
MenuOption=chr(Ascii)
return MenuOption
VB.NET
更新接收訊號以允許直接輸入而不是 txt 檔案。
C#
private static string GetTransmission()
{
string choice = EMPTYSTRING;//declares to empty
Console.WriteLine ("Would you like to load a file (Y/N)");//outputs the line
choice = Console.ReadLine().ToUpper();//assigns the value
string Transmission;//declares
if (choice == "Y")
{
string FileName = EMPTYSTRING; //declare
Console.Write("Enter file name: ");//outputty
FileName = (Console.ReadLine() + ".txt");//assigns
try//error handling
{
Transmission = File.ReadAllText(FileName);//assings varaible to text from the file in bin
Transmission = StripLeadingSpaces(Transmission);//removes spaces at the start of the transmission
if (Transmission.Length > 0)//chekcs length
{
Transmission = StripTrailingSpaces(Transmission);//strips spaces from the end of the text
Transmission = Transmission + EOL; //adds the global to it
}
}
catch
{
ReportError("No transmission found"); //catches if the try errors calling sub
//give instructions
Console.WriteLine("Please enter a valid text file name that is in the bin/debug");
Transmission = EMPTYSTRING;//assigns it to empty
}
}
else
{
Console.WriteLine("Please enter your transmission");//outputs
Transmission = Console.ReadLine();//assigns
Transmission = StripLeadingSpaces(Transmission);//strips spaces at the start
if (Transmission.Length > 0)//chekcs length
{
Transmission = StripTrailingSpaces(Transmission);//strips spaces from the end of the text
Transmission = Transmission + EOL; //adds the global to it
}
}
return Transmission;//returns transmission
}
THIS REQUIRES AN INPUT OF TRANSMISSION RATHER THAN DIRECT MORSE
Delphi/Pascal
Function GetTransmissionFromFile() : String;
var
FileName : String;
FileHandle : Textfile;
Transmission : String;
begin
write('Enter file name: ');
readln(FileName);
try
assign(FileHandle,FileName);
reset(FileHandle);
readln(FileHandle, Transmission);
close(FileHandle);
Transmission := StripLeadingSpaces(Transmission);
if length(Transmission) > 0 then
begin
Transmission := StripTrailingSpaces(Transmission);
Transmission := Transmission + EOL;
end;
except
on E: exception do
begin
ReportError('No transmission found');
Transmission := EMPTYSTRING;
end;
end ;
GetTransmissionFromFile := Transmission;
end;
Function GetTransmissionFromInput() : String;
var
transmission : String;
begin
writeln('please enter your transmission (using = to signify on and a space to represent off) ');
readln(transmission);
Transmission :=StripLeadingSpaces(Transmission);
if length(Transmission) > 0 then
begin
Transmission := StripTrailingSpaces(Transmission);
Transmission := Transmission + EOL;
end;
GetTransmissionFromInput := Transmission;
end;
Function GetAnyTransmission() : string;
var
choice: string;
valid: integer;
begin
repeat
begin
writeln('Do you want to receive transmission from a file?(Y/N) ');
readln (choice);
if (Choice = 'Y') or (Choice = 'y') or (Choice = 'yes') or (Choice= 'YES') or (Choice= 'Yes') then
begin
valid := 1;
GetAnyTransmission := GetTransmissionFromFile();
end
else if (Choice ='N') or (Choice = 'n') or (Choice = 'no') or (Choice= 'NO') or (Choice ='No') then
begin
valid := 1;
GetAnyTransmission := GetTransmissionFromInput();
end
else
begin
valid := 0;
writeln('You have not entered a valid response');
end;
end;
until Valid = 1;
end;
Java
Python
def GetTransmission():
choice = input("Would you like to load a file? (Y/N): ")
if choice == "Y":
FileName = input("Enter file name: ")
try:
FileHandle = open(FileName, 'r')
Transmission = FileHandle.readline()
FileHandle.close()
Transmission = StripLeadingSpaces(Transmission)
if len(Transmission) > 0:
Transmission = StripTrailingSpaces(Transmission)
Transmission = Transmission + EOL
except:
ReportError("No transmission found")
Transmission = EMPTYSTRING
else:
Transmission = input("Enter your transmission String: ")
Transmission = StripLeadingSpaces(Transmission)
if len(Transmission) > 0:
Transmission = StripTrailingSpaces(Transmission)
Transmission = Transmission + EOL
return Transmission
VB.NET
Function GetTransmission() As String
Dim Filename As String
Dim Transmission As String
Dim choice As String
Console.WriteLine("Do you wish to load a file?")
choice = Console.ReadLine
If choice = "yes " Then
Console.Write("Enter file name: ")
Try
Filename = Console.ReadLine()
Dim Reader As New StreamReader(Filename)
Transmission = Reader.ReadLine
Reader.Close()
Transmission = StripLeadingSpaces(Transmission)
If Transmission.Length() > 0 Then
Transmission = StripTrailingSpaces(Transmission)
Transmission = Transmission + EOL
End If
Catch
ReportError("No transmission found")
Transmission = EMPTYSTRING
End Try
Else
Console.WriteLine("please enter the morse code string")
Transmission = Console.ReadLine
Transmission = StripLeadingSpaces(Transmission)
If Transmission.Length() > 0 Then
Transmission = StripTrailingSpaces(Transmission)
Transmission = Transmission + EOL
End If
End If
Return Transmission
End Function
- 將生成的摩爾斯電碼轉換為傳輸訊號。
- 將傳輸訊號寫入 txt 檔案。
C#
// Add SaveToFile(MorseCodeString) to last line of the SendMorseCode() subroutine, and also define the following subroutines:
private static void SaveToFile(string MorseCodeString) // ADDED - SAVE TO FILE
{
Console.WriteLine("Would You like to save the message to a file (Y/N)?");
string SaveChoice = Console.ReadLine(); // Check whether user wants to save to file
if (SaveChoice[0] == 'y' || SaveChoice[0] == 'Y') // [0] to only account for first character of input (both cases checked)
{
try
{
Console.WriteLine("Enter the name of the file to save the message to: ");
string FileName = Console.ReadLine(); // User input file name
if (!FileName.Contains(".txt")) // If it doesn't contain '.txt' then add the ".txt" to FileName
{
FileName += ".txt"; // Append .txt if not present
}
StreamWriter FileSaver = new StreamWriter(FileName); // Open file in write mode (new StreamWriter)
FileSaver.Write(MorseCodeString); // Write the MorseCodeString to the File chosen
FileSaver.Close();
}
catch
{
ReportError("Error when writing to file."); // Error handling message
}
Console.WriteLine("File successfully written");
}
}
Delphi/Pascal
Java
static void sendMorseCode(String[] morseCode) throws IOException {
Console.write("Enter your message (uppercase letters and spaces only): ");
String plainText = Console.readLine();
plainText=plainText.toUpperCase();
int plainTextLength = plainText.length();
String morseCodeString = EMPTYSTRING;
int index;
for (int i = 0; i < plainTextLength; i++) {
char plainTextLetter = plainText.charAt(i);
if (plainTextLetter == SPACE) {
index = 0;
} else {
index = (int) plainTextLetter - (int) 'A' + 1;
}
String codedLetter = morseCode[index];
morseCodeString = morseCodeString + codedLetter + SPACE;
}
Console.writeLine(morseCodeString);
System.out.println("Do you want to save you message \n 1:Y \n 2:N");
String choice = scan.next();
switch(choice) {
case "Y":
filewriter(morseCodeString);
break;
case "N":
break;
default:
System.out.println("That was not an option /n Your data will be stored");
filewriter(morseCodeString);
break;
}
}
public static void filewriter(String sendMorseCode) throws IOException {
System.out.println("Enter the name of the file");
String filename = scan.next();
FileWriter fw = new FileWriter(filename);
PrintWriter end = new PrintWriter(fw);
end.print(sendMorseCode);
end.close();
fw.close();
}
Python
#SBaker May 18 4. Save a text file when sending Morse Code
#we need to format MorseCodeString into the output format
outputString = ''
for letter in MorseCodeString:
if letter == '.':
outputString = outputString + "= "
elif letter == '-':
outputString = outputString + "=== "
elif letter == ' ':
outputString = outputString + " "
FileName = input("Enter file name: ")
try:
FileHandle = open(FileName, 'w')
FileHandle.write(outputString)
FileHandle.close()
except:
ReportError("No file found")
VB.NET
Sub SendMorseCode(ByVal MorseCode() As String)
Dim PlainText As String
Dim PlainTextLength As Integer
Dim MorseCodeString As String
Dim PlainTextLetter As Char
Dim CodedLetter As String
Dim Index As Integer
Console.Write("Enter your message (letters and spaces only): ")
PlainText = Console.ReadLine()
PlainText = PlainText.ToUpper()
PlainTextLength = PlainText.Length()
MorseCodeString = EMPTYSTRING
For i = 0 To PlainTextLength - 1
PlainTextLetter = PlainText(i)
If PlainTextLetter = SPACE Then
Index = 0
Else
Index = Asc(PlainTextLetter) - Asc("A") + 1
End If
CodedLetter = MorseCode(Index)
MorseCodeString = MorseCodeString + CodedLetter + SPACE
Next
Console.WriteLine(MorseCodeString)
Console.WriteLine("Would you like to save this to a text file?")
Dim save As String = Console.ReadLine()
If save = "Y" Or save = "y" Then
Dim fileTitle As String
Console.WriteLine("What would you like to call the file?")
fileTitle = Console.ReadLine()
Dim fileLoc As String
fileLoc = "H:\Documents\2018 June\VB\" + fileTitle + ".txt"
Dim fs As New FileStream(fileLoc, FileMode.CreateNew, FileAccess.Write)
Dim sw As New StreamWriter(fs)
sw.WriteLine(MorseCodeString)
sw.Flush()
Else
Console.WriteLine("Okay.")
Console.ReadLine()
End If
End Sub
- 將生成的摩爾斯電碼轉換為傳輸訊號。
- 將傳輸訊號寫入 txt 檔案。
C#
// Add EncodeMorseCode(MorseCodeString) to last line of the SendMorseCode() subroutine, and also define the following subroutines:
private static void EncodeMorseCode(string MorseCode) // Function to convert MorseCodeString to the '=' and (Space) format in Preliminary Material
{
Console.WriteLine("Would You like to save the message to a file (Y/N)?");
string ShouldSave = Console.ReadLine(); // Check whether user wants to save to file
if (ShouldSave[0] == 'y' || ShouldSave[0] == 'Y') // [0] to only account for first character of input (both cases checked)
{
try
{
Console.WriteLine("Enter the name of the file to save the message to: ");
string FileName = Console.ReadLine(); // User input file name
if (!FileName.Contains(".txt")) // If it doesn't contain '.txt' then add the ".txt" to FileName
{
FileName += ".txt"; // Append .txt if not present
}
StreamWriter CodedFileSaver = new StreamWriter(FileName); // Open file in write mode (new StreamWriter)
// Use the built-in .Replace(old, new) method to swap out the relevant characters in C#.
string CodedOutput = MorseCode.Replace("-", "=== ").Replace(".", "= ").Replace(" ", " ").Replace(" ", " ");
// This now effectively formats the MorseCodeString message to the '=' and ' ' format
CodedFileSaver.Write(CodedOutput);
CodedFileSaver.Close();
}
catch
{
ReportError("Error when writing to file."); // Error handling
}
Console.WriteLine("Coded File successfully written");
}
}
// S Wood - Teach
Delphi/Pascal
Procedure SaveTransmission(Transmission : string);
var
FileHandle : TextFile;
begin
AssignFile(FileHandle, 'Message.txt');
try
rewrite (FileHandle);
writeln (FileHandle, Transmission);
CloseFile (FileHandle);
except
on E: exception do
writeln ('Exception: ', E.Message);
end;
end;
Procedure SendMorseCode(MorseCode : Array of String);
var
PlainText, MorseCodeString, CodedLetter, TransmissionString : String;
PlainTextLength, i, Index, k : Integer;
PlainTextLetter : Char;
begin
write('Enter your message (uppercase letters and spaces only): ');
readln(PlainText);
PlainTextLength := length(PlainText);
MorseCodeString := EMPTYSTRING;
TransmissionString := EMPTYSTRING;
for i := 1 to PlainTextLength do
begin
PlainTextLetter := PlainText[i];
if PlainTextLetter = SPACE then
Index := 0
else
Index := ord(PlainTextLetter) - ord('A') + 1;
CodedLetter := MorseCode[Index];
for k := 1 to length(CodedLetter) do
begin
case CodedLetter[k] of
' ': TransmissionString += ' ';
'.': TransmissionString += '=';
'-': TransmissionString += '==='
end;
TransmissionString += ' ';
end;
MorseCodeString := MorseCodeString + CodedLetter + SPACE;
if i <> PlainTextLength then
TransmissionString += ' ';
end;
writeln(MorseCodeString);
SaveTransmission(TransmissionString);
writeln ('Message encoded and saved in Message.txt');
end;
Java
for (int i = 0; i < morseCodeString.length(); i++) {
char c = morseCodeString.charAt(i);
if (c == '-') {
morseCodeTransmission = morseCodeTransmission + " ===";
}
if (c == '.') {
morseCodeTransmission = morseCodeTransmission + " =";
}
if (c == ' ') {
morseCodeTransmission = morseCodeTransmission + " ";
}
}
System.out.println("Name the file you would like to save this too");
String fileName = Console.readLine();
if (!fileName.contains(".txt")) {
fileName = fileName + ".txt";
}
try {
BufferedWriter fileHandle = new BufferedWriter(new FileWriter(fileName));
fileHandle.write(morseCodeTransmission);
fileHandle.close();
} catch (IOException e) {
}
Python
# Add SaveToFile(MorseCodeString) to last line of the SendMorseCode() subroutine, and also define the following subroutines:
def SaveToFile(MorseCodeString): # ADDED - SAVE TO FILE
ShouldSave = input("Would You like to save the message to a file (Y/N)?") # Check whether user wants to save to file
if ShouldSave[0].lower() == 'y': # .lower to make casing irrelevant, [0] to only account for first character (e.g. yes will also be accepted)
try:
FileName = input("Enter the name of the file to save the message to: ") # User input file name
if ' '+FileName[-4].lower() != '.txt': # Check if file extension is .txt. The ' ' at start is 4 spaces in order to prevent error from index not existing (if file name was under 4 characters)
FileName += '.txt' # Append .txt if not present
FileHandle = open(FileName, 'w') # Open file in write mode
FileHandle.write(EncodeMorseCode(MorseCodeString)) # Write the encoded message to file
FileHandle.close()
except:
ReportError("Error when writing to file.") # Error handling
def EncodeMorseCode(MorseCode): # Function to convert morse code to format saved in file
Output = MorseCode.replace('-', '=== ').replace('.', '= ').replace(' ', ' ').replace(' ', ' ') # Format message to required format
return Output # Return message to be saved to file
VB.NET
Sub SendMorseCode(ByVal MorseCode() As String)
Dim PlainText As String
Dim PlainTextLength As Integer
Dim MorseCodeString As String
Dim PlainTextLetter As Char
Dim CodedLetter As String
Dim Index As Integer
Dim save As Integer
Dim file As StreamWriter
Dim file2 As String
Dim morsecodesymbol As String
Dim morsecodesymbolR As String
Dim morsecodemessage As String
Console.Write("Enter your message (uppercase letters and spaces only): ")
PlainText = Console.ReadLine()
PlainTextLength = PlainText.Length()
MorseCodeString = EMPTYSTRING
For i = 0 To PlainTextLength - 1
PlainTextLetter = PlainText(i)
If PlainTextLetter = SPACE Then
Index = 0
Else
If Asc(PlainTextLetter) < 65 Then
Index = Asc(PlainTextLetter) - 21
Else
Index = Asc(PlainTextLetter) - Asc("A") + 1
End If
End If
CodedLetter = MorseCode(Index)
MorseCodeString = MorseCodeString + CodedLetter + SPACE + SPACE + SPACE
Next
Console.WriteLine(MorseCodeString)
Console.WriteLine("would you like to save your message in a document? If so then please press 1 if not press 2")
Try
save = Console.ReadLine
Catch ex As Exception
Console.WriteLine("you have messed up the saving program, please do as asked")
End Try
If save = 1 Then
Console.WriteLine("your file will be saved please choose a name")
file2 = Console.ReadLine & ".txt"
For i = 0 To MorseCodeString.Length - 1
morsecodesymbol = MorseCodeString(i)
If morsecodesymbol = "-" Then
morsecodesymbolR = "==="
ElseIf morsecodesymbol = "." Then
morsecodesymbolR = "="
ElseIf morsecodesymbol = SPACE Then
morsecodesymbolR = " "
ElseIf morsecodesymbol = SPACE And morsecodesymbol = SPACE Then
morsecodesymbolR = " "
End If
morsecodemessage = morsecodemessage & " " & morsecodesymbolR
Next
File = New StreamWriter(file2)
File.Write(morsecodemessage)
File.Close()
End If
允許使用者將數字和標點符號（其中有摩爾斯電碼）轉換為摩爾斯電碼。
C#
Delphi/Pascal
Java
Python
def SendReceiveMessages(): # All lists here have been modified to support numbers & some punctuation ( .,?! ) by adding indexes 27 onwards. This has been modified so that sending & receiving (if only sending required, only the MorseCode list requires changing) works.
Dash = [20,23,0,45,24,1,0,17,31,21,28,25,0,15,11,42,0,0,46,22,13,48,30,10,0,0,44,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,0,38,40,37,0,29]
Dot = [5,18,33,0,2,9,0,26,32,19,0,3,0,7,4,43,0,0,12,8,14,6,0,16,0,0,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,35,0,0,46,39,47]
Letter = [' ','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.', ',', '?', '!']
MorseCode = [' ','.-','-...','-.-.','-..','.','..-.','--.','....','..','.---','-.-','.-..','--','-.','---','.--.','--.-','.-.','...','-','..-','...-','.--','-..-','-.--','--..', '-----', '.----', '..---', '...--', '....-', '.....', '-....', '--...', '---..', '----.', '.-.-.-', '--..--', '..--..', '-.-.--']
ProgramEnd = False
while not ProgramEnd:
DisplayMenu()
MenuOption = GetMenuOption()
if MenuOption == 'R':
ReceiveMorseCode(Dash, Letter, Dot)
elif MenuOption == 'S':
SendMorseCode(MorseCode)
elif MenuOption == 'X':
ProgramEnd = True
def SendMorseCode(MorseCode):
PlainText = input("Enter your message (uppercase letters and spaces only): ")
PlainTextLength = len(PlainText)
MorseCodeString = EMPTYSTRING
for i in range(PlainTextLength):
PlainTextLetter = PlainText[i]
if PlainTextLetter == SPACE:
Index = 0
elif PlainTextLetter.isalpha(): # Character in position is a letter
Index = ord(PlainTextLetter.upper()) - ord('A') + 1
elif PlainTextLetter.isnumeric(): # Character in position is a number
# 0 needs to be at index 27, so subtract unicode value of 0 and add 27 to get index of all numbers
Index = ord(PlainTextLetter) - ord('0') + 27
else: # Is not a number / letter / space, assume it is a symbol. If statements for all supported symbols, setting index to position in MorseCode list
if PlainTextLetter == '.':
Index = 37
elif PlainTextLetter == ',':
Index = 38
elif PlainTextLetter == '?':
Index = 39
elif PlainTextLetter == '!':
Index = 40
else: # Unsupported character, replace with space (could also output error here if needed)
Index = 0
CodedLetter = MorseCode[Index]
MorseCodeString = MorseCodeString + CodedLetter + SPACE
print(MorseCodeString)
VB.NET
Sub SendReceiveMessages()
Dim Dash = {20, 23, 0, 0, 24, 1, 0, 17, 31, 21, 28, 25, 0, 15, 11, 37, 45, 0, 40, 22, 13, 341, 30, 10, 0, 0, 44, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 46, 0, 0, 0, 0, 0, 0, 0}
Dim Letter = {" ", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "OT", "ö", "/", "Ä", "ü", "+", "üe", "ZT", "Á", ",", "@", ".", "?"}
Dim Dot = {5, 18, 33, 0, 2, 9, 0, 26, 32, 19, 0, 3, 0, 7, 4, 38, 0, 0, 12, 8, 14, 6, 0, 16, 39, 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 42, 43, 48, 49, 0, 47}
Dim MorseCode = {" ", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..", "-----", ".----", "..---", "...--", "....-", ".....", "-....", "--....", "---...", "----..", "-----.", "----", "---.", "-··-·", ".-.-", "..--", ".-.-.", "..--.", "--..-", ".--.-", "--..--", ".--.-.", ".-.-..", "..--.."}
- Symbols work in progress numbers work!
目前小寫字元會使程式崩潰，新增功能以翻譯小寫字母並正確翻譯數字/符號
C#
Delphi/Pascal
Java
// Does not have numbers or symbols. Any other instances in the code where it does not allow lower case use the code equalsIgnoreCase(
// The code below shows it working in the menu of the Program
static void sendReceiveMessages() throws IOException {
int[] dash = { 20, 23, 0, 0, 24, 1, 0, 17, 0, 21, 0, 25, 0, 15, 11, 0, 0, 0, 0, 22, 13, 0, 0, 10, 0, 0, 0 };
int[] dot = { 5, 18, 0, 0, 2, 9, 0, 26, 0, 19, 0, 3, 0, 7, 4, 0, 0, 0, 12, 8, 14, 6, 0, 16, 0, 0, 0 };
char[] letter = { ' ', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R',
'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z' };
String[] morseCode = { " ", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-",
".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--",
"--.." };
boolean programEnd = false;
while (!programEnd) {
displayMenu();
String menuOption = scan.next();
if (menuOption.equalsIgnoreCase("r")) {
receiveMorseCode(dash, letter, dot);
} else if (menuOption.equalsIgnoreCase("s")) {
sendMorseCode(morseCode);
} else if (menuOption.equalsIgnoreCase("x")) {
programEnd = true;
}else {
System.out.println("That was an Incorrect Input");
}
}
}
Python
# Currently only supports lowercase letters & prevents invalid characters. Needs modifying to support numbers.
def SendMorseCode(MorseCode):
Error = True # Input validation
while Error: # Repeat the code in this section until input is valid
Error = False # Assume no errors until one is detected
PlainText = input("Enter your message (uppercase letters and spaces only): ")
PlainTextLength = len(PlainText)
MorseCodeString = EMPTYSTRING
for i in range(PlainTextLength):
PlainTextLetter = PlainText[i]
if PlainTextLetter == SPACE:
Index = 0
else:
Index = ord(PlainTextLetter.upper()) - ord('A') + 1 # .upper() added to support lowercase characters
try: # Attempt to find morse code for current character
CodedLetter = MorseCode[Index]
MorseCodeString = MorseCodeString + CodedLetter + SPACE
except: # Has been an issue finding morse code for character - inform user of this & re-run loop to allow a new input
print("Invalid character in message.")
Error = True # Set error to true so loop re-runs
break # Break for loop to go back to start of Error loop (and ask for a new input)
print(MorseCodeString)
VB.NET
使使用者無需在檔名中新增 '.txt' 副檔名的程式碼
C#
FileName = FileName.Contains(".txt") ? FileName : FileName + ".txt";
Delphi/Pascal
Function GetTransmission(): String;
var
FileName, FileNameOriginal: String;
FileHandle: Textfile;
Transmission: String;
begin
write('Enter file name: ');
readln(FileNameOriginal); {Variable was originally set as FileName but was changed for Concentrate}
FileName := Concat(FileNameOriginal,'.txt');
Java
static void sendMorseCode(String[] morseCode) throws IOException
{
Console.write("Enter your message (letters and spaces only): ");
String plainText = Console.readLine();
plainText = plainText.toUpperCase();
int plainTextLength = plainText.length();
String morseCodeString = EMPTYSTRING;
int index;
for (int i = 0; i < plainTextLength; i++)
{
char plainTextLetter = plainText.charAt(i);
if (plainTextLetter == SPACE)
{
index = 0;
}
else
{
index = (int)plainTextLetter - (int)'A' + 1;
}
String codedLetter = morseCode[index];
morseCodeString = morseCodeString + codedLetter + SPACE;
}
Console.writeLine(morseCodeString);
Save(morseCodeString);
}
public static void Save(String pop) throws IOException {
System.out.println("Enter file name: ");
Scanner scan = new Scanner(System.in);
String f = scan.next();
FileWriter file = new FileWriter(f+".txt", true);
PrintWriter print = new PrintWriter(file);
print.println(pop);
print.flush();
print.close();
}
Python
def GetTransmission():
FileName = input("Enter file name: ")
if FileName[-4:] != '.txt': # If last 4 characters match .txt - the 4 spaces appended to the start of string are to prevent the string being shorted than the indexes being checked
FileName += '.txt' # Append .txt to end of file name
try:
FileHandle = open(FileName, 'r')
Transmission = FileHandle.readline()
FileHandle.close()
Transmission = StripLeadingSpaces(Transmission)
if len(Transmission) > 0:
Transmission = StripTrailingSpaces(Transmission)
Transmission = Transmission + EOL
except:
ReportError("No transmission found")
Transmission = EMPTYSTRING
return Transmission
VB.NET
Function GetTransmission() As String
Dim Filename As String
Dim Transmission As String
Console.Write("Enter file name: ")
Try
Filename = Console.ReadLine()
Filename = Filename + ".txt"
Dim Reader As New StreamReader(Filename)
Transmission = Reader.ReadLine
Reader.Close()
Transmission = StripLeadingSpaces(Transmission)
If Transmission.Length() > 0 Then
Transmission = StripTrailingSpaces(Transmission)
Transmission = Transmission + EOL
End If
Catch
ReportError("No transmission found")
Transmission = EMPTYSTRING
End Try
Return Transmission
End Function
將翻譯後的程式碼儲存到文字檔案的程式碼
C#
// Add SaveToFile(MorseCodeString) to last line of the SendMorseCode() subroutine, and also define the following subroutines:
private static void SaveToFile(string MorseCodeString) // ADDED - SAVE TO FILE
{
Console.WriteLine("Would You like to save the message to a file (Y/N)?");
string SaveChoice = Console.ReadLine(); // Check whether user wants to save to file
if (SaveChoice[0] == 'y' || SaveChoice[0] == 'Y') // [0] to only account for first character of input (both cases checked)
{
try
{
Console.WriteLine("Enter the name of the file to save the message to: ");
string FileName = Console.ReadLine(); // User input file name
if (!FileName.Contains(".txt")) // If it doesn't contain '.txt' then add the ".txt" to FileName
{
FileName += ".txt"; // Append .txt if not present
}
StreamWriter FileSaver = new StreamWriter(FileName); // Open file in write mode (new StreamWriter)
FileSaver.Write(MorseCodeString); // Write the MorseCodeString to the File chosen
FileSaver.Close();
}
catch
{
ReportError("Error when writing to file."); // Error handling message
}
Console.WriteLine("File successfully written");
}
}
Delphi/Pascal
Procedure SaveMorseToFile(MorseString : string); //added to save morse
var
FileMorse:TextFile;
begin
AssignFile(FileMorse, 'MorseFile.txt');
try
rewrite(FileMorse);
writeln(FileMorse, MorseString);
CloseFile(FileMorse);
except
on E: exception do
writeln ('Exception: ', E.Message);
end;
end;
Procedure SendMorseCode(MorseCode : Array of String);
var
PlainText, MorseCodeString, CodedLetter : String;
PlainTextLength, i, Index : Integer;
PlainTextLetter : Char;
begin
write('Enter your message (uppercase letters and spaces only): ');
readln(PlainText);
PlainTextLength := length(PlainText);
MorseCodeString := EMPTYSTRING;
for i := 1 to PlainTextLength do
begin
PlainTextLetter := PlainText[i];
if PlainTextLetter = SPACE then
Index := 0
else
Index := ord(PlainTextLetter) - ord('A') + 1;
CodedLetter := MorseCode[Index];
MorseCodeString := MorseCodeString + CodedLetter + SPACE;
end;
writeln(MorseCodeString);
SaveMorseToFile(MorseCodeString);//Saves it to a file
writeln('Saved to MorseFile.txt');
end;
Java
static void write(String morseCodeString) throws IOException
{
FileWriter fw = new FileWriter ("morse.txt");
PrintWriter output = new PrintWriter (fw);
output.println(morseCodeString);
output.close();
output.flush();
System.out.println("Printed in morse.txt");
}
Python
# Add SaveToFile(MorseCodeString) to last line of the SendMorseCode() subroutine, and also define the following subroutines:
def SaveToFile(MorseCodeString): # ADDED - SAVE TO FILE
ShouldSave = input("Would You like to save the message to a file (Y/N)?") # Check whether user wants to save to file
if ShouldSave[0].lower() == 'y': # .lower to make casing irrelevant, [0] to only account for first character (e.g. yes will also be accepted)
try:
FileName = input("Enter the name of the file to save the message to: ") # User input file name
if FileName[-4:].lower() != '.txt': # Check if file extension is .txt. The ' ' at start is 4 spaces in order to prevent error from index not existing (if file name was under 4 characters)
FileName += '.txt' # Append .txt if not present
FileHandle = open(FileName, 'w') # Open file in write mode
FileHandle.write(EncodeMorseCode(MorseCodeString)) # Write the encoded message to file
FileHandle.close()
except:
ReportError("Error when writing to file.") # Error handling
def EncodeMorseCode(MorseCode): # Function to convert morse code to format saved in file
Output = MorseCode.replace('-', '=== ').replace('.', '= ').replace(' ', ' ').replace(' ', ' ') # Format message to required format
return Output # Return message to be saved to file
VB.NET
輸出列表中所有字元及其摩爾斯電碼表示形式。
C#
// NEW SUBROUTINE- Letter and MorseCode lists are passed as parameters/arguments
private static void ListMorseCode(char[] Letter, string[] MorseCode)
{
for (int index = 0; index < Letter.Length; index++) // for loop - loops through all elements in the Letter Array
{
Console.WriteLine(Letter[index] + " " + MorseCode[index]); // Output the text character, followed by a few spaces, and then the Morse code representation
}
}
// AMENDED SUBROUTINE
private static void DisplayMenu()
{
Console.WriteLine();
Console.WriteLine("Main Menu");
Console.WriteLine("=========");
Console.WriteLine("R - Receive Morse code");
Console.WriteLine("S - Send Morse code");
Console.WriteLine("L - List Morse code characters"); // Added - display menu option for this modification
Console.WriteLine("X - Exit program");
Console.WriteLine();
}
// AMENDED SUBROUTINE
private static void SendReceiveMessages()
{
int[] Dash = new int[] { 20, 23, 0, 0, 24, 1, 0, 17, 0, 21, 0, 25, 0, 15, 11, 0, 0, 0, 0, 22, 13, 0, 0, 10, 0, 0, 0 };
int[] Dot = new int[] { 5, 18, 0, 0, 2, 9, 0, 26, 0, 19, 0, 3, 0, 7, 4, 0, 0, 0, 12, 8, 14, 6, 0, 16, 0, 0, 0 };
char[] Letter = new char[] { ' ', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z' };
string[] MorseCode = new string[] { " ", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.." };
bool ProgramEnd = false;
string MenuOption = EMPTYSTRING;
while (!ProgramEnd)
{
DisplayMenu();
MenuOption = GetMenuOption();
if (MenuOption == "R")
{
ReceiveMorseCode(Dash, Letter, Dot);
}
else if (MenuOption == "S")
{
SendMorseCode(MorseCode);
}
else if (MenuOption == "X")
{
ProgramEnd = true;
}
else if (MenuOption == "L") // Added - if menu option selected is the 'L' (list Morse code)
{
ListMorseCode(Letter, MorseCode); // Run ListMorseCode subroutine, passing lists Letter and MorseCode
}
}
}
Delphi/Pascal
Procedure DisplayMenu();
begin
writeln;
writeln('Main Menu');
writeln('=========');
writeln('R - Receive Morse code');
writeln('S - Send Morse code');
writeln('L - List Morse code characters');//Added menu option for this
writeln('X - Exit program');
writeln;
end;
Procedure ListCharacters(Letter:Array of char; MorseCode:Array of String); //new procedure for listing
var
z : integer;
begin
for z:=0 to 26 do
writeln(Letter[z],' ',MorseCode[z]);
end;
Procedure SendReceiveMessages();
const
Dash: array[0..26] of Integer = (20,23,0,0,24,1,0,17,0,21,0,25,0,15,11,0,0,0,0,22,13,0,0,10,0,0,0);
Dot : array[0..26] of Integer = (5,18,0,0,2,9,0,26,0,19,0,3,0,7,4,0,0,0,12,8,14,6,0,16,0,0,0);
Letter : array[0..26] of Char= (' ','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
MorseCode : array[0..26] of String= (' ','.-','-...','-.-.','-..','.','..-.','--.','....','..','.---','-.-','.-..','--','-.','---','.--.','--.-','.-.','...','-','..-','...-','.--','-..-','-.--','--..');
var
ProgramEnd : Boolean;
MenuOption : String;
begin
ProgramEnd := False;
while not(ProgramEnd) do
begin
DisplayMenu();
MenuOption := GetMenuOption();
if MenuOption = 'R' then
ReceiveMorseCode(Dash, Letter, Dot)
else if MenuOption = 'S' then
SendMorseCode(MorseCode)
else if MenuOption = 'X' then
ProgramEnd := True
else if MenuOption = 'L' then
ListCharacters(Letter, MorseCode); //Added to lead to new procedure
end;
end;
Java
Python
# Added subroutines
def ListMorseCode(Letter, MorseCode): # New subroutine - Letter and MorseCode lists are passed as parameters
for Pos in range(len(Letter)): # Loop through all positions in the length of the list
print(Letter[Pos]+" "+MorseCode[Pos]) # Output the text character, followed by a few spaces, and then the Morse code representation
# Existing modified subroutines
def DisplayMenu():
print()
print("Main Menu")
print("=========")
print("R - Receive Morse code")
print("S - Send Morse code")
print("L - List Morse code characters") # Added - display menu option for this modification
print("X - Exit program")
print()
def SendReceiveMessages():
Dash = [20,23,0,0,24,1,0,17,0,21,0,25,0,15,11,0,0,0,0,22,13,0,0,10,0,0,0]
Dot = [5,18,0,0,2,9,0,26,0,19,0,3,0,7,4,0,0,0,12,8,14,6,0,16,0,0,0]
Letter = [' ','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']
MorseCode = [' ','.-','-...','-.-.','-..','.','..-.','--.','....','..','.---','-.-','.-..','--','-.','---','.--.','--.-','.-.','...','-','..-','...-','.--','-..-','-.--','--..']
ProgramEnd = False
while not ProgramEnd:
DisplayMenu()
MenuOption = GetMenuOption()
if MenuOption == 'R':
ReceiveMorseCode(Dash, Letter, Dot)
elif MenuOption == 'S':
SendMorseCode(MorseCode)
elif MenuOption == 'X':
ProgramEnd = True
elif MenuOption == 'L': # Added - if menu option selected is the 'L' (list Morse code)
ListMorseCode(Letter, MorseCode) # Run ListMorseCode subroutine, passing lists Letter and MorseCode
VB.NET
問題描述
C#
Delphi/Pascal
Procedure SendMorseCode(MorseCode : Array of String);
var
PlainText, MorseCodeString, CodedLetter,x : String;
PlainTextLength, i, Index : Integer;
PlainTextLetter : Char;
continue : integer;
begin
continue:= 0;
repeat
write('Enter your message (uppercase letters and spaces only): ');
readln(PlainText);
PlainTextLength := length(PlainText);
MorseCodeString := EMPTYSTRING;
for i := 1 to PlainTextLength do
begin
PlainTextLetter := PlainText[i];
if PlainTextLetter = SPACE then
Index := 0
else
Index := ord(PlainTextLetter) - ord('A') + 1;
CodedLetter := MorseCode[Index];
MorseCodeString := MorseCodeString + CodedLetter + SPACE;
end;
writeln(MorseCodeString);
write('Continue (Y or N): ');
readln(x);
if (x = 'Y') or (x ='y') then //start of continue
continue:= 0
else if (x = 'N') or (x = 'n') then
continue:= 1
else
begin
writeln('Interpreting answer as no');//could be made to loop if needed
continue:=1;
end;
until continue = 1;
end;
Java
Python
def SendMorseCode(MorseCode):
Continue = 0
while Continue != 1:
PlainText = input("Enter your message (uppercase letters and spaces only): ").upper()
PlainTextLength = len(PlainText)
MorseCodeString = EMPTYSTRING
for i in range(PlainTextLength):
PlainTextLetter = PlainText[i]
if PlainTextLetter == SPACE:
Index = 0
else:
Index = ord(PlainTextLetter) - ord('A') + 1
CodedLetter = MorseCode[Index]
MorseCodeString = MorseCodeString + CodedLetter + SPACE
print(MorseCodeString)
x = input("Continue Y/N?: ")
if x == "Y" or x == "y":
Continue = 0
elif x == "N" or x == "n":
Continue = 1
else:
print("Interpreting answer as no")
Continue = 1
VB.NET
這將接受小寫字元的輸入
C#
// AMENDED SUBROUTINE - Allows Lowercase values in Send string now. (ASCII values used)
private static void SendMorseCode(string[] MorseCode)
{
Console.Write("Enter your message (uppercase letters and spaces only): ");
string PlainText = Console.ReadLine();
int PlainTextLength = PlainText.Length;
string MorseCodeString = EMPTYSTRING;
char PlainTextLetter = SPACE;
int Index = 0;
int ascii; // declare new value 'ascii' to store that value.
for (int i = 0; i < PlainTextLength; i++)
{
PlainTextLetter = PlainText[i];
if (PlainTextLetter == SPACE)
{
Index = 0;
}
else
{
if ((int)PlainTextLetter >= 97) // if ASCII Value of that letter is 97 or above, it is assumed to be lowercase.
ascii = (int)PlainTextLetter - 32; // if lowercase then subtract 32 from its ASCII value
else
ascii = (int)PlainTextLetter; // else it is uppercase, then use that ASCII value.
Index = ascii - (int)'A' + 1; // use the 'ascii' value to calculate, just incase lowercase has been used.
}
string CodedLetter = MorseCode[Index];
MorseCodeString = MorseCodeString + CodedLetter + SPACE;
}
Console.WriteLine(MorseCodeString);
}
Delphi/Pascal
Procedure SendMorseCode(MorseCode : Array of String);
var
PlainText, MorseCodeString, CodedLetter : String;
PlainTextLength, i, Index, assci : Integer;
PlainTextLetter : Char;
begin
write('Enter your message (uppercase letters and spaces only): ');
readln(PlainText);
PlainTextLength := length(PlainText);
MorseCodeString := EMPTYSTRING;
for i := 1 to PlainTextLength do
begin
PlainTextLetter := PlainText[i];
if PlainTextLetter = SPACE then
Index := 0
else
begin //added to allow lower case letters
if ord(PlainTextLetter) >= 97 then
assci:= ord(PlainTextLetter) - 32
else
assci:= ord(PlainTextLetter);
Index := assci - ord('A') + 1;
end; //should work
CodedLetter := MorseCode[Index];
MorseCodeString := MorseCodeString + CodedLetter + SPACE;
end;
writeln(MorseCodeString);
end;
Delphi/Pascal
write ('This is a question: ');
readln(Variable);
Variable := AnsiUpperCase(Variable);
{This can be added for the MenuOption (in GetMenuOption) and Plaintext (in SendMorseCode)}
Java
static char getMenuOption() {
boolean valid = false;
char menuOption = ' ';
while(!valid) {
String option = EMPTYSTRING;
Console.write("Enter menu option");
try {
option = Console.readLine();
} catch (Exception e) {
System.out.println("Invalid input");
}
if (option.equalsIgnoreCase("R"))
menuOption = 'R'; valid = true;
if (option.equalsIgnoreCase("S"))
menuOption = 'S'; valid = true;
if (option.equalsIgnoreCase("X")) {
menuOption = 'X'; valid = true;
}
else if (!valid) {
System.out.println("Invalid input");
}
}
Python
def SendMorseCode(MorseCode):
PlainText = input("Enter your message (uppercase letters and spaces only): ").upper()#Changed
PlainTextLength = len(PlainText)
MorseCodeString = EMPTYSTRING
for i in range(PlainTextLength):
PlainTextLetter = PlainText[i]
if PlainTextLetter == SPACE:
Index = 0
else:
Index = ord(PlainTextLetter) - ord('A') + 1
CodedLetter = MorseCode[Index]
MorseCodeString = MorseCodeString + CodedLetter + SPACE
print(MorseCodeString)
def GetMenuOption():
MenuOption = EMPTYSTRING
while len(MenuOption) != 1:
MenuOption = input("Enter your choice: ").upper()#Changed
return MenuOption
VB.NET
Sub SendMorseCode(ByVal MorseCode() As String)
Dim PlainText As String
Dim PlainTextLength As Integer
Dim MorseCodeString As String
Dim PlainTextLetter As Char
Dim CodedLetter As String
Dim Index As Integer
Console.Write("Enter your message (uppercase letters and spaces only): ")
PlainText = Console.ReadLine()
PlainTextLength = PlainText.Length()
MorseCodeString = EMPTYSTRING
For i = 0 To PlainTextLength - 1
PlainTextLetter = PlainText(i)
If PlainTextLetter = SPACE Then
Index = 0
Else
Index = Asc(PlainTextLetter)
If Index > 96 And Index < 123 Then
Index -= 32
End If
Index = Index - Asc("A") + 1
End If
CodedLetter = MorseCode(Index)
MorseCodeString = MorseCodeString + CodedLetter + SPACE
Next
Console.WriteLine(MorseCodeString)
SaveMorseCode(MorseCodeString)
End Sub