Unterlagen zu Versuch 2

Praktikum zu RgS 2 Versuch2: VHDL-VERHALTENSBESCHREIBUNG
}
return n;
void main(void) {
char x,y;
printf("x := ");
scanf("%c",&x);
y = numbits(x);
printf("Anzahl der gesetzten Bits = %d \n",y);
return;
}
Man beachte, dass in der Hochsprache C auf einen Datentyp char bitweise logische Verknüpfungen
über das gesamte Datenwort (d & 1) und Verschiebeoperationen (d >> 1) möglich sind! Aus der arithmetischen
Sicht entspricht (d & 1) der Abfrage, ob d gerade oder ungerade ist, also (d%2 == 1),
wenn die Zahl auf ungerade zu prüfen ist.
Ein Vergleich zur Ada Lösung soll das aufzeigen. Ada ist strenger und lässt bitweise logische Verknüpfungen
wie UND, ODER, usw. nicht einfach zu, wie C. Also muss char erst nachgebildet werden. Das
erfolgt in der Typ-Vereinbarung type byte is mod 2**8;, dem sog. Modulartyp. Dieser Typ entspricht
dem char im C-Programm. Modulartypen in Ada erlauben bitweise logische Verknüpfungen, wie im Programm
mit (d and 1) zu sehen ist, aber keine Verschiebungen! Hier nutzen wir den Zusammenhang,
dass die Rechtsverschiebung (Verschiebung zu kleineren Stellenwertigkeiten) einer ganzzahligen Dualzahl
um eine Stelle der Division durch die Zahl 2 entspricht.
Der Rest des Ada Programmes sollte nicht näher erläutert werden, sondern dient nur der Vollständigkeit,
damit ein ablauffähiges Programm vorliegt. Nur soviel: Das Package ada.text_io.modular_io dient
der Ein- Ausgabe auf dem Bildschirm. Es wird mit dem Typ byte neu erzeugt und mit dem Namen
byte_io versehen, um die Ein- und Ausgabeprozeduren für Daten vom Typ byte bereitzustellen.
with ada.text_io, ada.integer_text_io;
use ada.text_io, ada.integer_text_io;
procedure test is
type byte is mod 2**8; -- new type
package byte_io is new ada.text_io.modular_io(byte);
use byte_io;
a,b : byte;
function numbits(a :in byte) return byte is
n, k, d : byte := 0;
begin
d := a;
for k in 1..8 loop
if (d and 1) = 1 then
n := n + 1;
end if;
d := d / 2;
end loop;
return n;
end numbits;
begin
put("a := ");
get(a);
b:= numbits(a);
put("Anzahl der gesetzten Bits =");
put(b);
new_line;
end test;
Universität Duisburg-Essen; Fakultät 5; Abt. IIMT; Inst. Informationstechnik (IT), Verteilte Systeme (VS) Seite 5