Autor |
Beitrag |
xy-z
| Veröffentlicht am Freitag, den 08. Juni, 2001 - 03:11: |
|
in radio, film (z.b.``rosemaries baby´´ von polanski) und fernsehen gibt es ja immer wieder rätsel, wo aus buchstaben, die vertauscht sind, worte entstehen sollen, daher habe ich mal ein computerprogramm geschrieben, in dem man eine zeichenkette eingibt, aus der die mehrfach vorkommenden buchstaben entfernt werden, und dann wird verglichen, ob die buchstaben in einem vorgegebenen wort aus der liste enthalten sind: 10 PRINT "Wortbestimmung" 20 READ Z$:PRINT "Zeichenkette, deren Buchstaben in dem gesuchten Wort enthalten sein sollen";Z$ 30 GOTO 110 40 REM Wertemenge der Zeichenkette bestimmen 50 Y$=MID$ (Z$,1,1):FOR A=2 TO LEN (Z$):A$=MID$ (Z$,A,1):CS=0 60 FOR B=1 TO LEN (Z$):B$=MID$ (Y$,B,1) 70 IF A$=B$ THEN 80 ELSE 90 80 CS=CS+1 90 NEXT B:IF CS=0THEN Y$=Y$+A$ 100 NEXT A:PRINT Y$:RETURN 110 GOSUB 40:X$=Y$ 120 READ WORT$:IF WORT$="-" THEN END 130 Z$=WORT$:PRINT WORT$;LEN (WORT$); 140 GOSUB 40:CS=0:FOR A=1TO LEN (X$) 150 A$=MID$ (X$,A,1):FOR B=1 TO LEN (Y$) 160 B$=MID$ (Y$,B,1):IF A$=B$ THEN CS=CS+1 170 NEXT B:NEXT A:IF CS=LEN (X$) THEN 190 180 GOTO 120 190 PRINT "Das Wort";WORT$;"kommt als Loesungswort in Betracht" 200 DATA GLASAYKTION 210 DATA DONNERWETTER,SONNENSCHIRM,LIEGESTUHL 220 DATA NIKOLAUSTAG,SONNENUNTERGANG 230 DATA NONNENKLOSTER,KINDERGEBURTSTAG,OKTOBERREVOLUTION 240 DATA KATZENJAMMER,MUSKELKATER 250 DATA JAZZFESTIVAL,SOWJETPANZER,FILMFESTIVAL 260 DATA HAMMELSPRUNG,MONARCHIE,DEMOKRATIE 270 DATA RUDELFUEHRER,BLOCKWART,GAULEITER 280 DATA STURMBANNFUEHRER,BRIGADEGENERAL 290 DATA GIPFELTREFFEN,KONJUNKTURFLAUTE,SOMMERRESIDENZ 300 DATA - das ergebnis sieht so aus, wenn alle wörter aus der liste durchgerechnet werden: SONNENSCHIRM 12 SONECHIRM LIEGESTUHL 10 LIEGSTUH NIKOLAUSTAG 11 NIKOLAUSTG SONNENUNTERGANG 15 SONEUTRGA NONNENKLOSTER 13 NOEKLSTR KINDERGEBURTSTAG 16 KINDERGBUTSA OKTOBERREVOLUTION 17 OKTBERVLUIN KATZENJAMMER 12 KATZENJMR MUSKELKATER 11 MUSKELATR JAZZFESTIVAL 12 JAZFESTIVL SOWJETPANZER 12 SOWJETPANZR FILMFESTIVAL 12 FILMESTVA HAMMELSPRUNG 12 HAMELSPRUNG MONARCHIE 9 MONARCHIE DEMOKRATIE 10 DEMOKRATI RUDELFUEHRER 12 RUDELFH BLOCKWART 9 BLOCKWART GAULEITER 9 GAULEITR STURMBANNFUEHRER 16 STURMBANFEH BRIGADEGENERAL 14 BRIGADENL GIPFELTREFFEN 13 GIPFELTRN KONJUNKTURFLAUTE 16 KONJUTRFLAE SOMMERRESIDENZ 14 SOMERIDNZ |
|