008
18.11.2005, 19:35 Uhr
hans822
|
| Code: |
program umwandlungvomdualinsoktalsystem (Input,Output);
uses crt;
var i,p,summe,b:Integer;
dualzahl:array[0..30]of integer;
feld:array[0..30]of integer;
begin
writeln('Bitte geben Sie ihre Dualzahl ein');
i:=0;
writeln('Die Eingabe von 9 beendet die Eingabe: ');
writeln();
repeat
i:=i+1;
dualzahl[i]:=readkey; :twisted: hier bringt er "incompatible types got char expected longinteger"
until dualzahl[i]=9;
i:=i-1;
writeln();
p:=0;
repeat
summe:=0;
for b:=0 to 3 do
begin
dualzahl[i]:=dualzahl[i]*exp(b*ln(2)); :twisted: hier bringt er auch "incompatible types got S80Real expected longinteger" aber warum ich mein in dualzahl[i] steht doch lediglich ne 1 oder ne 0 als was soll das und multipliziert wird es auch höchsten mit 2^3. Das is doch noch lange keine longint.
b:=b+1;
i:=i-1;
summe:=summe+dualzahl[i];
end;
feld[p]:=summe;
p:=p+1
until i=0;
repeat
writeln('',feld[p]);
p:=p-1;
until p=0;
readln()
end.
|
|
