Kleine BASIC-Aufgabe aus einer Zeitschrift vom Juni 1985

Es gibt 48 Antworten in diesem Thema, welches 2.433 mal aufgerufen wurde. Der letzte Beitrag (1. Mai 2025 um 21:05) ist von next_i.

  • Hier nun die abgedruckten Lösungen aus dem Nachfolgeheft.

    Die drei C64-Lösungen sind allesamt falsch. Die Anzahl der Sterne stimmt nicht oder sie haben Zeilen mit Spalten verwechselt und dergleichen mehr... =O

    Man sollte den Verlag anschreiben und berechtigte Kritik vorbringen! :D

  • So hätte man auch bequem komplette Spiele in ein paar Zeilen Text im Heft unterbringen können:

    Basic-Rätsel

    Unser Listing des Monats soll ein umfangreiches Knobelspiel werden, bei dem man zwei oder mehr gleiche Spielsteine durch Zusammenschieben abräumen muss. Die 100 Level sollten abwechslungsreich und mit steigendem Schwierigkeitsgrad gestaltet werden. Alle 10 Level soll eine hübsche Frau als Sprite-Grafik gezeigt werden. Das wars auch schon. Auf dem C64 haben wir's mal wieder mit drei Zeilen geschafft und wie sieht's bei Euch aus?

  • Auf dem C64 haben wir's mal wieder mit drei Zeilen geschafft

    Aber nur mit TSB! :D

    Arndt

    GoDot C64 Image Processing
    Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen.
    Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen.

  • Unser Listing des Monats soll ein umfangreiches Knobelspiel werden, bei dem man zwei oder mehr gleiche Spielsteine durch Zusammenschieben abräumen muss. Die 100 Level sollten abwechslungsreich und mit steigendem Schwierigkeitsgrad gestaltet werden. Alle 10 Level soll eine hübsche Frau als Sprite-Grafik gezeigt werden. Das wars auch schon. Auf dem C64 haben wir's mal wieder mit drei Zeilen geschafft und wie sieht's bei Euch aus?

    Liebe Redaktion, mit großem Interesse habe ich euren Aufruf zum 3-Zeilen-Spielewettbewerb gelesen.

    Also... ich bin kein Experte, aber ich habe mir das mal angeschaut. Ich erinnere mich, dass kommerzielle Spiele wie Ghosts’n Goblins oder Commando auch oft nur aus einer einzigen Zeile bestanden, meistens sowas wie:

    10 SYS 49152 CRACKED BY TRIAD

    Daher nehme ich mal an, dass ähnliche Spiele auch mit nur einer Zeile oder wenigen Zeilen machbar sind. Vermutlich gibt es für jede Art Spiel eine Zahl, die man hinter SYS angeben muss. Und wenn man jetzt alle Zahlen von -unendlich bis +unendlich durchprobiert, dann kann man jede Art von Spiel entstehen lassen.

    Die Zusatzzeichen "CRACKED BY TRIAD" in diesem Listing müssen übrigens eine ganz wichtige Funktion haben. Ich vermute, sie geben an, wie das Spiel abzulaufen hat und welche speziellen Parameter festgelegt werden. Vielleicht definieren sie sogar den Schwierigkeitsgrad, die Anzahl der Levels oder die Art der Sprites.

    Man müsste also herausfinden, welche SYS-Zahl und welche Zusatzzeichen so ein Spiel mit 100 Levels und hübschen Damen entstehen lassen. Vielleicht gibt es ja ein Programm, das die richtige Zahl und die passenden Zusatzzeichen automatisch berechnet?

    Mit freundlichem Gruß,

    Euer treuer Leser

  • Ich dachte mir, warum immer 3 Zeilen, mach doch gleich zehn Mal so viele. Gesagt, getan! Sogar 40 Zeilen! Und weil's mir besser gefällt, wahlweise nur im Einmaleins bis 10 (also max. 10*10), dafür aber mit 0, hehe... Das entspricht zwar nicht der Aufgabenstellung, aber die war ja eh nicht gerade herausfordernd (vielleicht gab es deswegen so wenige Rückmeldungen?)

    Code im C64Studio-Format, kann dort nach Copy eingefügt werden. In VICE auch (die erste Zeile wird da aber angemäkelt - und auf der letzten Zeile Return drücken!). Wer für R$ "schönere" Zeichen vorzieht, nimmt diese hier: {cbm-a}{shift-*}{cbm-s}{shift--}{space}{shift--}{cbm-z}{shift-*}{cbm-x} (das bildet den TSB-Kasten).

    Arndt

    GoDot C64 Image Processing
    Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen.
    Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen.

  • ...oder noch mehr Zeilen mit noch mehr Rechenarten und Variationen. :D

    Bitte melde dich an, um diesen Anhang zu sehen.

    Verdammt, wie die Zeit verfliegt...

  • GoDot: Das ist ein sehr ordentlich geschriebenes TSB-Programm.

    Obwohl ich nicht verstehe, warum man repeat...until, if...then...else oder irgendwelche gemischten Sachen in eine einzelne Zeile quetscht. Du solltest nicht vergessen, dass wir die Programmierer hier nach LOC (Lines of Code) bezahlen. :prof:

  • Es wirkt, als hätte man es sich damals absichtlich extra schwer gemacht - als wäre es ein sportlicher Ehrgeiz gewesen, Programme nicht möglichst gut, sondern möglichst kurz zu schreiben.

    In der Perl-Szene nennt man das "Golf".

    Perl
    perl -e 'print"MALNEHMEN PAUKEN\n";$a=1;$b=2;$r=3;while($r!=$a*$b){$a=int(rand(100))+1;$b=int(rand(100))+1;print"\n$a * $b = ? ";$r=<>;chomp($r);if($r!= $a*$b){print"\n**** FALSCH ****\n";}}print"\n**** RICHTIG ****\n\n";'
  • Übrigens: In Perl hab' ich's mal wieder in einer Zeile geschafft, so sieht's bei mir aus. ;)

    Perl ist ja auch Write Only.

    C64Studio: Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. --- C64Studio WIP: Bitte melde dich an, um diesen Link zu sehen. - Bitte melde dich an, um diesen Link zu sehen. --- Bitte melde dich an, um diesen Link zu sehen.

  • Das Puzzlespiel schreib ich in Basic am C64 mit 2 Zeilen8)

    1 if a=0 the load"Mcode",8,1:a=a+1

    2 sys 49152

    Feddisch:thumbsup:

    Das funktioniert so nicht. Du musst A vor dem LOAD umsetzen. So hast du eine endlose Ladeschleife gebaut (wenn man vom fehlenden N bei THEN mal absieht...:D )

    Bitte melde dich an, um diesen Link zu sehen.

    Bitte melde dich an, um diesen Link zu sehen.

    Bitte melde dich an, um diesen Link zu sehen.

  • 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. ;)

  • 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. ;)

    Das Image ist leider leer.

    Bitte melde dich an, um diesen Link zu sehen. - Ratespiel • Bitte melde dich an, um diesen Link zu sehen. - BASIC-Erweiterung • Bitte melde dich an, um diesen Link zu sehen. - Sprite-Editor • Bitte melde dich an, um diesen Link zu sehen. - Zeichensatz-Editor Bitte melde dich an, um diesen Link zu sehen. - 2048 Blöcke

  • 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. ;)

    Das Image ist leider leer.

    hi goloMAK

    jetzt sollte es funktionieren.

  • Übrigens: In meinem Lieblingsbuch über Perl "Laura Lemay: Perl in 21 Tagen" ist so ein ähnliches Programm als kleine Aufgabe zu schreiben. Es ist aber nicht mit Zahlen, und auch nicht für die Schule oder so sinnvoll, aber ich fand's trotzdem ganz witzig. Anbei ein C64-".prg" davon, das ich gerade mal zusammengeschraubt hab'.

    Bitte melde dich an, um diesen Anhang zu sehen.

  • 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.