|
#1
|
|||
|
|||
Задача делфи
консольное приложение
Код:
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 Последний раз редактировалось Admin, 11.01.2011 в 21:38. |