Werbung
240
(
250
260
270
280 END DEF ine
290 DEFine PROCedure wort_wahl
300
310
320
330
340 END DEFi ne
350 DEFine PROCedure zusammensetzung
360
370
380 END DEFi ne
390 REMark
400 REMark
410 REMark
420 DATA "vollständige","modernste"
430 DATA "systematische"
440 DATA "intelligente"
450 DATA "kontrollierte"
lage' ,
460 DATA "automatisierte","anwenderfreundli-
che","
470 DATA "synchronisierte","parallele","Mikro-
Chips"
480 DATA
490 DATA
grammierer"
500 DATA "positive","modulare","Pakete"
510 DATA
tenzentren"
520 DATA "integrierte","logikorientierte","Da-
tenverarbeiter"
530 DATA
" ,"Prozessoren"
540 DATA
koppe lung en' ,
funktionale
vollständige
optionale
positive
(
positive
synchronisierte
kontrollierte
kontrollierte
Angenommen, es sollen Quadrate mit verschiedener Größe und verschiedenen Far-
ben in verschiedenen Positionen auf dem Bildschirm gezeichnet werden.
Hierzu definieren wir eine Prozedur, Quadrat, für die vier Angaben erforderlich sind:
Länge einer Seite
- Farbe (Farbcode)
- Position (waagerecht und senkrecht).
Die Position der Quadrate wird durch Angabe von zwei Werten, waagerecht und
senkrecht, festgelegt. Mit ihnen wird die untere linke Ecke des Quadrates wie nach-
folgend dargestellt festgelegt.
(
3/85
RESTORE 420
FOR word = 1 TO 13
READ adjec1$(wort), adjec2$(wort),subst$(wort)
END FOR wort
***
REMark
Prozedur um Wörter zu wählen
LET ad1 = RND(1 TO 13)
LET ad2 = RND(1 TO 13)
LETS=RND(1
T013)
***
REMark
Procedur um Phrase auszudrucken
PRINT! adjec1$(ad1) ! adjec2$(ad2) ! subst$(S)
****************
*
*
Program DATA
****************
,"wissensbasierte"
,"kompatible"
Kapazi täten"
"funktionale","
"optionale","anpassungsfähige","Pro-
"ausgeglichene","strukturierte","Da-
"koordinierte","karteiorientierte-
"wissenschaftliche","normierte","Rück-
logikorientierte
parallele
normierte
Kapazitäten
anwenderfreundliche
lernende
Datenverarbeiter
karteiorientierte
modernste
karteiorientierte
***
,"Systeme"
,"Maschine"
,"Computer"
,"kybernetische","Rechenan-
lernende","Konsole"
Rückkoppelungen
Prozessoren
Mikro-Chips
Datenzentren
Rückkoppelungen
Pakete
***
ÜBERGABE VON
INFORMATION AN
PROZEDUREN
EINFACHE PROZEDUREN
35
Werbung
Kapitel
