Question

Napisz program który poprosi o podanie liczby w systemie dwójkowym (liczba w zakresie od 8 do 16 bitów) a następnie wyświeli na ekranie jej reprezentację w systemie dziesiętnym.

Uwaga do realizacji:
Zakładam, że operujemy wyłącznie na liczbach z zakresu od 0 do 65535.
(pascal)

Answer 1

Program binarny;
uses CRT;
var
liczba: string;
dlugosc, potega, i:integer;
dziesietna:real;
begin
clrscr;
Writeln('Podaj liczbe w systemie binarnym:');
readln(liczba);
dlugosc := length(liczba);
dziesietna := 0;
for i := 1 to dlugosc do begin
if liczba[i] = '1' then begin
dziesietna := dziesietna + exp((dlugosc - i)*ln(2));
end;
end;
write('Ta liczba w systemie dziesientnym to: ');
Write(trunc(dziesietna));
readln;
end.


W razie reklamacji pisz PW