restructure and add ipi texs

2019-11-06 18:24:04 +01:00
parent e21da561fc
commit 8fd8d2a485
155 changed files with 129 additions and 0 deletions
@@ -0,0 +1,124 @@
+// Konstruktor fuer leeres Programm
+Programm::Programm ()
+{
+  zeilen = 0; // noch keine gueltige Zeile
+  fertig = false;
+}
+
+// Fuege eine Zeile in die Zustandsuebrgangstabelle hinzu
+void Programm::zeile (int q_ein, char s_ein, char s_aus, R richt, int q_aus)
+{
+  if (fertig) {
+    print("Programm war schon abgeschlossen!");
+    return;
+  }
+  Qaktuell[zeilen] = q_ein;
+  eingabe[zeilen] = s_ein;
+  ausgabe[zeilen] = s_aus;
+  richtung[zeilen] = richt;
+  Qfolge[zeilen] = q_aus;
+  zeilen = zeilen+1;
+}
+
+// Definiere letzte Zeile in der Zustandsuebergangstabelle
+void Programm::zeile (int endzustand)
+{
+  if (fertig) {
+    print("Programm war schon abgeschlossen!");
+    return;
+  }
+  Qaktuell[zeilen] = endzustand;
+  zeilen = zeilen+1;
+  fertig = true;
+  print("Programm mit ",zeilen," Zeilen definiert",0);
+  print("Anfangszustand ",Anfangszustand(),0);
+  print("Endzustand ",Endzustand(),0);
+}
+
+// Ermittle zu schreibendes Zeichen
+char Programm::Ausgabe (int q, char symbol)
+{
+  // wurde Zeile als letztes benutzt ?
+  if ( letztesQ==q && letzteEingabe==symbol )
+    return ausgabe[letzteZeile];
+  // suche Zeile im Programm
+  if (FindeZeile(q,symbol))
+    return ausgabe[letzteZeile];
+  // Fehler: es gibt keine solche Zeile
+  print(q," , ",symbol,0);
+  print(" nicht definiert!"); 
+  return 0;
+}
+
+// Ermittle Richtung
+Programm::R Programm::Richtung (int q, char symbol)
+{
+  // wurde Zeile als letztes benutzt ?
+  if ( letztesQ==q && letzteEingabe==symbol )
+    return richtung[letzteZeile];
+  // suche Zeile im Programm
+  if (FindeZeile(q,symbol))
+    return richtung[letzteZeile];
+  // Fehler: es gibt keine solche Zeile
+  print(q," , ",symbol,0);
+  print(" nicht definiert!"); 
+  return links;
+}
+
+// Ermittle Folgezustand
+int Programm::Folgezustand (int q, char symbol)
+{
+  // wurde Zeile als letztes benutzt ?
+  if ( letztesQ==q && letzteEingabe==symbol )
+    return Qfolge[letzteZeile];
+  // suche Zeile im Programm
+  if (FindeZeile(q,symbol))
+    return Qfolge[letzteZeile];
+  // Fehler: es gibt keine solche Zeile
+  print(q," , ",symbol,0);
+  print(" nicht definiert!"); 
+  return -1;
+}
+
+// Gebe Anfangszustand zurueck
+int Programm::Anfangszustand ()
+{
+  return Qaktuell[0];
+}
+
+// Gebe Endzustand zurueck
+int Programm::Endzustand ()
+{
+  return Qaktuell[zeilen-1];
+}
+
+// Finde Zeile in der Zustandsuebergangstabelle zu gegebenem
+// Zustand und Symbol. Merke Eingabe und Zeilennummer damit
+// bei wiederholtem Zugriff nicht gesucht werden muss. 
+bool Programm::FindeZeile (int q, char symbol)
+{
+  for (int i=0; i<zeilen; i=i+1)
+    if ( Qaktuell[i]==q && eingabe[i]==symbol )
+      {
+	letzteZeile = i;
+	letztesQ = Qaktuell[letzteZeile];
+	letzteEingabe = eingabe[letzteZeile];
+	return true;
+      }
+  return false;
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+