[hannibalsmith23]

консольное приложение

Код:

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