Нужно 8 бит. 129 словам присваиваем номера от 0 до 128 в десятичной системе. 0(10)=0(2), 128(10)=10000000(2). Если словам присваивать номера от 1 до 129, то понадобится тоже 8 бит, только 129(10)=10000001(2)
Для перевода можно пользоваться простым методом
129/2 = 64 с остатком, записываем 1
64/2 =32 без остатка, записываем 0
32/2 =16 без остатка, записываем 0
16/2 =8 без остатка, записываем 0
8/2 =4 без остатка, записываем 0
4/2 =2 без остатка, записываем 0
2/2 =1 без остатка, записываем 0
1/2 =0 с остатком, записываем 1
Т.е. делим каждое частное на 2 и записываем наличие остатка в конец двоичной записи в виде остаток есть-1, остатка нет-0. Деленим до тех пор, пока в частном не будет 0. Результат записывается справа налево.
Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>
read(n);
if (n>99) and (n<1000) then writeln('Yes');
Необходимо построить лепестковую диаграмму по десяти координатам, причем, все четные (по порядку) значения должны быть равны между собой и равны половине нечетных. Т.е. если пять нечетных значений равны 10, то пять четных должны быть равны 5. Пример с данными для построения этой диаграммы прилагается.
