Informatik (WPII)

Ein Beitrag aus laufendem Unterricht

‚Ein Algorithmus in Basic
Local pal$, wort$
Local imi%, umu%, sum%, z%, L1%, i%

Function umdrehen$(a$) ‚a$ wird hierher übergeben

Local i, L1 : Int
um$ = „“ ‚Hilfsvar leeren
L1 = Len a$ ‚Länge von a$ bestimmen
For i = 1 To L1
um$ = Mid$(a$,i,1) + um$ ‚das umgedrehte Wort wird aufgebaut
Next
a$ = um$ ‚a$ erhält den Rückgabewert
Return a$

EndFunction

‚Hauptteil des Programms
’steht nach allen Functions
pal$ = Input(„bitte eine Zahl < 100 eingeben: „)
palindrom = False
Repeat

imi% = Int(pal$) ‚Zahl aus pal$
wort$ = umdrehen(pal$)
Print wort$ ‚Kontrollausgabe
If pal$ = wort$ Then

palindrom = True
Print „Es ist jetzt ein Palindrom hihihi ..“

EndIf

umu% = Int(wort$) ‚Zahl aus wort$
sum% = imi% + umu% ‚beides addieren
pal$ = String.fromint(sum%) ‚String für neues Umdrehen

Until palindrom