// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var c1:=ReadlnChar('Введите первый символ:'); var c2:=ReadlnChar('Введите второй символ:'); Print(c1); if c1>c2 then Print('>') else if c1=c2 then Print('=') else print('<'); Println(c2) end.
Примеры Введите первый символ: a Введите второй символ: b a < b
Введите первый символ: d Введите второй символ: d d = d
Введите первый символ: z Введите второй символ: m z > m
Введите первый символ: q Введите второй символ: Q q > Q
type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; end end;
1)
1101 = 1*2^3 + 1*2^2 + 0*2^1 + 1*2^0 = 13
D = это 13 по порядку
13 = 13
значит 1101 = D
2)
0.11111 = 1*2^-1 + 1*2^-2 + 1*2^-3 + 1*2^-4 + 1*2^-5 = 0.96875
0.22 = 2*8^-1 + 2*8^-2 = 0.28125
0.96875 > 0.28125
значит 0.11111 (2) > 0.22 (8)
3)
35.63 (8) = 3*8^1 + 5*8^0 +6*8^-1 + 3*8^-2 = 29.796875
16C (16) = 1*16^2 + 6*16^1 + 12*16^0 = 364
29.796875 < 364
значит 35.63 (8) < 16C (16)