написать программу в паскаль

[Kate3110]

Определить по двоичному представлению вещественного числа в па-мяти компьютера соответствующее ему десятичное число.

[Stilet]

Так?:

const s='00000001';
var i,n:integer;
begin
 n:=0;
 for i:=8 downto 1 do begin if s[i]='1' then n:=n or 1; n:=n sh l 1; end;
 write(n); readln;
end.

[Kate3110]

где то ошибка допущена, программа не работает

[Stilet]

Ладно. Поправим:

const s='00000010';
var i,n:integer;
begin
 n:=0;
 for i:=1 to 8 do begin if s[i]='1' then n:=n or 1; n:=n shl 1; end;
 write(n); readln;
end.

[Kate3110]

Спасибо огромное!все работает!

[Serge_Bliznykov]

извините за занудство, но какое отношение данный код имеет к представлению ВЕЩЕСТВЕННОГО числа?

[Stilet]

Ой. А вот на это я и не обратил внимание...
Сорри.