Stilllegung des Forums
Das Forum wurde am 05.06.2023 nach über 20 Jahren stillgelegt (weitere Informationen und ein kleiner Rückblick).
Registrierungen, Anmeldungen und Postings sind nicht mehr möglich. Öffentliche Inhalte sind weiterhin zugänglich.
Das Team von spieleprogrammierer.de bedankt sich bei der Community für die vielen schönen Jahre.
Wenn du eine deutschsprachige Spieleentwickler-Community suchst, schau doch mal im Discord und auf ZFX vorbei!
Werbeanzeige
Ich habe mir die 2.schlechte Kundenrezision durch gelesen und stimmt es, das da soviele Druckfehler und etliches vorhanden sind?
Weil ich kenne teilweise solche Bücher und das ist echt schlimm zu lesen!
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
Program einfache_Syntaxpruefung; { 'nonterm' S(->N:Integer) S(->1) : ab S(->N+1) : aS(->N)b } Function S (txt : String; var n : Integer) : Boolean; Var p : Byte; Begin Result := FALSE; if txt = 'ab' then Begin // S(->1) : ab n := 1; Result := TRUE; end else Begin // S(->N+1) : aS(->N)b p := Pos ('ab', txt); if p > 0 then Begin Delete (txt, p, 2); Result := S(txt, n); n := n+1; end else Result := FALSE; end; end; Var wort : String; i : Byte; n : Integer; Begin WriteLn ('Syntaxpruefung fuer Gramatik "ab"'); WriteLn ('nonterm S(->N:Integer) '); WriteLn (' S(->1) : ab '); WriteLn (' S(->N+1) : aS(->N)b '); WriteLn ('---------------------------------'); WriteLn ('Gebe "exit" ein zum Beenden. '); WriteLn ('=========================================================='); WriteLn; Repeat Write('>> ');ReadLn (wort); if UpCase(wort) = 'EXIT' then Break; if S(Wort, n) then Begin WriteLn ('Erfolgreich: n=', n); end else Begin WriteLn ('Syntaxfehler "',Wort,'"'); WriteLn ('Syntax: '); WriteLn (' a^nb^n'); WriteLn (' Bespiele: ab, aabb, aaabbb, ...'); end; WriteLn ('--------------------------------------------------------'); Until FALSE; end. { aaabbb | 'a' S 'b' // aabb R02: S->aSb | 'a' S 'b' // ab R02: S->aSb | 'ab' // R01: S->ab } |
Werbeanzeige