Werbung
EINFACHE PROZEDUREN
ANALYSE
FESTLEGEN VON
VARIABLEN
PROZEDUREN
HAUPTPROGRAMM
Programm
34
adjek1$
vollständige
systematische
intelligente
kontrollierte
automatisierte
synchronisierte
functionale
optionale
positive
ausgeglichene
integrierte
koordinierte
wissenschaftliche
Nun werden wir ein Programm schreiben, mit dem zahn vorgefertigte Sätze erzeugt
werden. Die einzelnen Programmstationen sind:
1. Speichern Sie die Wörter in drei String-Tabellen.
2. Wählen Sie drei Zufallszahlen, die als Indizes der Tabellen-Variablen benutzt wer-
den.
3. Drucken Sie die Phrase aus.
4. Wiederholen Sie die Schritte 2 und 3 zehn Mal.
Wir benennen drei Tabellen, von denen die beiden ersten Adjektive oder als Adjektiv
benutzte Wörter enthalten. Die dritte Tabelle enthält die Hauptwörter. In jedem
Abschnitt gibt es 13 Wörter, wobei das längste Wort 16 Zeichen umfaßt.
Tabelle
adjek1 $(13,17)
adjek2$(13,19)
subst$(13,17)
Hier werden drei Prozeduren benutzt, die den drei angegebenen Aufgaben entspre-
chen.
Mit daten_speichern
werden die drei Gruppen mit 13 Wörtern gespeichert. Mit
wort..wen.
werden drei Zufallszahlen im Bereich von 1 bis 13 gewählt.
Mit zusammensetzung wird eine Phrase ausgedruckt.
Das Hauptprogramm ist sehr einfach, da die Hauptarbeit von den Prozeduren über-
nommen wird.
Deklaration der Tabellen (DIM)
Daten_speichern
FOR zehn Begriffe
Wo rL.wah I
Zusammensetzung
END
100 REMark ********************
110 REMark * PHRASENDRESCHEREI*
120 REMark ********************
130 DIM adjec1$(13,17),
140 daten_spei ehern
150 FOR phrase
=
160
wort_wahl
170
zusammensetzung
180 END FOR ph rase
190 REMark **************************
200 REMark *Definition der Prozeduren
210 REMark **************************
220 DEFine PROCedure daten_speichern
230
REMark *** Procedur um DATA zu spei ehern ***
adjek2$
modernste
wissensbasierte
kompatible
kybernetische
benutzerfreundliche
parallele
lernende
anpassungsfähige
modulare
strukturierte
logik-orientierte
kartei-orientierte
normierte
Zweck
Erste Adjektive
Zweite Adjektive
Hauptwörter
adjec2$(13,19),subst$(13,17)
1 TO 10
subst$
Systme
Maschinen
Computer
Rechenanlagen
Kapazitäten
Mikro-Chips
Konsole
Programmierer
Pakete
Datenzentren
Datenverarbeiter
Prozessoren
Rückkoppelungen
3/85
(
Werbung
Kapitel
