Beiträge von berni im Thema „Kleine BASIC-Aufgabe aus einer Zeitschrift vom Juni 1985“

    hi zusammen. also ich habe mir das rätsel auch mal vorgenommen, ohne irgend welche spoiler oder andere lösungen anzuschauen und lade es einfach mal hoch. es ist in 3 zeilen. elegant ist es nicht, aber es scheint der gestellten aufgabe zu entsprechen. erst danach werde ich die anderen anschauen, um zu sehen, wie es eleganter geht. ;)

    Vier Dinge sind mir aufgefallen:

    1) Das Programm gibt Zahlen von 0 bis 99 und nicht von 1 bis 100 aus.

    2) Das `TAB(10)` in Zeile 1 kannst du weglassen. Das bewirkt nichts Sichtbares.

    3) Das IF in Zeile 2 kannst du weglassen. Zu dem Zeitpunkt weißt du bereits, dass `R<>M*N`

    4) MALNEHMEN schreibt man nur mit einem H :)

    Übrigens: Du bist der erste, der die Anführungszeichen bei "MALNEHMEN PAUKEN" als Teil der Ausgabe verstanden hat.

    Wenn man die Aufgabenstellung genau genug liest, geht es in zwei Zeilen:

    Code
    0a=rN(1)*98:a$(0)="r* * * falsch":a$(1)=
    "* * * * richtig *":?"S malnehmen pauken
    1a%=a+2:?"q"a%"*"a%;:inputa:?a$(-(a=285)
    )" * * *":fOi=0to2600:nE:on(-(a<>285))gO

    Etwas lesbarer:

    Code
    0 a=rnd(1)*98:a$(0)="{rvon}* * * falsch":a$(1)="* * * * richtig *":print"{clr} malnehmen pauken
    1 a%=a+2:print"{down}"a%"*"a%;:inputa:printa$(-(a=285))" * * *":fori=0to2600:next:on(-(a<>285))goto