Вот, в Excel удобнее, самому не надо проверять каждую строку :)
<span>Цикл с предусловием </span>
<span><span>Цикл с постусловием</span></span>
<span><span><span>Цикл со счётчиком</span></span></span>
{
Код программы и скриншот работы в приложениях
Написано на PascalABC.NET
}
6 видов сигнала.
Для кодирования 1 сигнала необходимо 3 бита, т.к. 22<6<23 или 4<6<8.
Для кодирования 100 сигналов необходимо: 100*3=300 бит.
Переведем в байты:
300\8=37,5 байт.
Округляем (в большую сторону) до 38 байт.
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>