консольное приложение
Код:
program Zadacha;
{$APPTYPE CONSOLE}
uses
SysUtils;
Procedure WriteByte(a : byte);
var i : integer;
begin
for i:=7 downto 0 do begin
if ((a shr i) and $01) <> 0 then write('1')
else write('0');
end;
write(' ');
end;
type
vector=array[1..4] of byte;
Var
x:Single;
i:byte;
p1:^vector;
Begin
writeln('vvedite deystvitelnoe chislo');
readln(x);
Writeln('x=',x:32);
P1:=@x;
for i := sizeof(x) downto 1 do
begin writebyte(p1^); write(' '); end;
writeln;
readln
end.
Админ: Внимательнее с тегами!
В этой программе нужно изменить текст программы для того, чтобы исследовать числа типа Double (8-байтовые числа) и Extended (10-байтовые числа)
И вторая задача вывести на экран таблицу двоичного представления в 4 -, 8 -, 10-байтовых чисел из диапазона (n +21) + m ...(n +45) + m с шагом h, где n - номер варианта,m от -1 к 1 , h от 0,2 к 2,5