Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function checkUserInput(userString: string): boolean;
- var
- valid: boolean;
- count: integer;
- begin
- valid := true;
- for count := 1 to length(userString) do
- if ((ord(userString[count]) < 65) or (ord(userString[count]) > 90)) and (userString[count] <> ' ') then
- valid := false;
- checkUserInput := valid;
- end;
- function getCharacterCode(character: char): string;
- const
- translationArray: array [0..25] of string = ('.-', '-...', '-.-.', '-..', '.', '..-.', '--.', '....', '..', '.---', '-.-', '.-..', '--', '-.', '---', '.--.', '--.-', '.-.', '...', '-', '..-', '...-', '.--', '-..-', '-.--', '--..');
- begin
- if character = ' ' then
- getCharacterCode := '| '
- else
- begin
- getCharacterCode := translationArray[ord(character) - 65] + ' ';
- end;
- end;
- procedure main();
- var
- userString, codedString: string;
- count: integer;
- begin
- write('Enter a string: ');
- readln(userString);
- if checkUserInput(upcase(userString)) then
- begin
- for count := 1 to length(userString) do
- begin
- codedString := concat(codedString, getCharacterCode(upcase(userString[count])));
- end;
- writeln(codedString);
- end
- else
- writeln('Invalid input!');
- end;
- begin
- main();
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement