Konvertieren in Morse-Code in Ada

Question

posted ich neulich hier, weil ich hinter der Syntax von Fortran war verwirrt und bekam eine Antwort, die sehr geholfen. Aber jetzt stecke ich in der gleichen Gurke, aber dieses Mal mit Ada.

Im Folgenden ist der Kern meines Programms. Ich versuche, einen Satz vom Benutzer zu lesen und jedes Zeichen darin in Morse-Code umzuwandeln.

with Ada.Text_IO; 
with Ada.Strings; 
with Ada.Strings.Unbounded; 
with Ada.Strings.Unbounded; 
with Ada.Command_Line; 
use Ada.Text_IO; 

procedure MorseCode is 
    tempSentence : array(1 .. 20) of string; 
    last : Integer; 
    size : Integer; 
    i : Integer; 
begin 

Put("Enter the size of your sentence: "); 
Get(size); 
Put("Enter the sentence you would like to convert to morse code: "); 
Get_Line(tempSentence, last); 
Put_Line(tempSentence); 

While_Loop : 
while i < size loop 

if tempSentence(i .. i) = 'A' or tempSentence(i) = 'a' then 
    Put(".- "); 
elsif tempSentence(i .. i) = 'B' or tempSentence(i) = 'b' then 
    Put("-... "); 
elsif tempSentence(i) = 'C' or tempSentence(i) = 'c' then 
    Put("-.-. "); 
end if; 
end loop While_Loop; 

end; 

Answer 1

ich sollte wohl nicht, aber die Probleme hier gehen weit über einfache Syntaxfehler so ist hier ein paar Hinweise zu einem Ada-ähnlichen Ansatz.

Worte in Fettschrift sind etwa in einem guten Ada Buch genauer lesenswert.

Zuerst stoppt auf ein so niedriges Niveau zu denken. Strings Arrays von Zeichen sind, und Arrays in Ada bieten Einrichtungen wie Array Attribute Programmierung einfacher zu machen - und vor allem Programmpflege.

Arrays werden in der Länge festgelegt, wenn Sie sie erstellen, aber diese Länge hat erst dann bestimmt werden. So können Sie ein Array deklarieren und mit einem Funktionsaufruf initialisieren - es nimmt seine Größe vom Ergebnis des Funktionsaufrufs.

Mit dieser Anlage und beseitigen size als separate Sache insgesamt.

Wenn der declave-Block endet, wird das Array nicht mehr verwendet, sodass es automatisch freigegeben wird. Wenn es in einer Schleife ist, kann der Funktionsaufruf eine andere Zeichenfolge zurückgeben, sodass die Array-Grenzen jedes Mal anders sein können Problem.

Wir müssen alle Zeichen im Array durchlaufen, aber wir wissen nicht, wie groß es ist ... also fragen Sie es, zum Beispiel über seinen Bereich Attribut.

Und anstatt jeden Test zweimal zu schreiben, eine Funktion aus der Ada.Characters.HandlingPaket verwenden wir nur, um sicherzustellen, hve mit Kleinbuchstaben beschäftigen.

Auch wenn Aussagen sind eine schlechte Wahl für diese Aufgabe, eine Fall Aussage ist einfacher und kürzer - ich habe gezeigt, beide unter

with Ada.Text_IO; 
use Ada.Text_IO; 
with Ada.Characters.Handling; 


procedure MorseCode is 

begin 
    Put("Enter the sentence you would like to convert to morse code: "); 

    declare 
     Sentence : String := Get_Line; 
    begin 
     Put_Line(Sentence); 

     for i in Sentence'range loop 

     if Ada.Characters.Handling.To_Lower(Sentence(i)) = 'a' then 
      Put(".- "); 
     -- elsif etc ... not very nice 
     end if; 

     case Ada.Characters.Handling.To_Lower(Sentence(i)) is 
     when 'b' => Put("-..."); 
     when 'c' => Put("-.-."); 
     when others => null; 
     end case; 

     end loop; 
    end; 
end; 

Es gibt auch begrenzt und unbegrenzt Zeichenfolgen, die Sie in diesem einfachen Beispiel nicht benötigen. Sie sind manchmal etwas mühsam zu verwenden, Sie benötigen Typumwandlungen zwischen ihnen und einfache Strings.