Informatik

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