ram

Aus ProgrammingWiki

< BuK < IIm14 < Studenten < s3tomack < ka

Archivierte Version vom 2015-06-25T07:34:39+00:00. Aktuelle Version

Kreativaufgabe RAM Programm

Aufgabenstellung

Geben Sie mind. ein RAM-Programm zur Berechnung der Funktion w : \N \mapsto \N mit w(n) = \left\lfloor \sqrt{n} \right\rfloor an.

RAM Programm 1

BNr	Befehl	Kommenter
\| 0	R0 = 5	R0 = n
\| 1	R3 = 1	Inkrement-/Dekrement-Variable
\| 2	IFZERO R2 GOTO 6	wenn Multiplikationszähler (R2) gleich 0, Multiplikation beendet
\| 3	R4 += R1	Zwischenergebnis der Multiplikation
\| 4	R2 -= R3	Multiplikationszähler dekrementieren
\| 5	GOTO 2	nächster Multiplikationszyklus
\| 6	R4 -= R0	Subtraktion zum Test ob das Quadrat der Testvariablen (R1) größer ist als n
\| 7	IFZERO R4 GOTO 9	wenn Ergebnis der Subtraktion gleich 0 ist, Test mit inkrementierter Testvariable wiederholen
\| 8	GOTO 12	Ergebnis der Subtraktion größer 0, Ergebnis gefunden
\| 9	R1 += R3	Testvariable inkrementieren
\| 10	R2 = R1	Multiplikationszähler gleich der Testvariable setzen
\| 11	GOTO 2	nächster Testzyklus
\| 12	R1 -= R3	Ergebnis dekrementieren zwecks Abrunden
\| 13	R0 = R1	Ergebnis nach R0 übernehmen
\| 14	STOP	Programmende

function monusminus(x, y: integer) : integer;
   begin
      if (x-y) >= 0 then result:= x-y
      else result:= 0
   end;

function ram(): integer;
   label l2, l6, l9, l12;
   var r0 : integer = 0;
       r1 : integer = 0;
       r2 : integer = 0;
       r3 : integer = 0;
       r4 : integer = 0;
   begin
      r0 := 5;
      writeln(intToStr(r0));
      r3 := 1;
  l2: if r2 = 0 then goto l6;
      r4 := r4 + r1;
      r2 := monusminus(r2,r3);
      goto l2;
  l6: r4 = monusminus(r4,r0);
      if r4 = 0 then goto l9;
      goto l12;
  l9: r1 := r1 + r3;
      r2 := r1;
      goto l2;
 l12: r1 := monusminus(r1,r3);
      r0 := r1;
      result := r0;
   end;

writeln(intToStr(ram()));

ram

Kreativaufgabe RAM Programm

Aufgabenstellung

RAM Programm 1

Suche