Mod - это остаток от числа. Значит, 9 mod 2 = 1
1) N=2^i. N- мощность алфавита, i - информационный вес одного символа. Дано,что мощность алфавита равна 64, т.е. N=64. Используя формулу, получаем следующее :
64=2^i, информационный вес одного символа равен 6 бит, т.к. 2^6=64.
100 символов * 6 бит = 600 бит = 75 байт.
2) 3.5 Кб * 1024 = 3584 байт.
Кодировка не указана, выбираем самую распространенную -однобайтовую, тогда символ занимает ровно 1 байт.
Значит 3584*1=3584 символа.
3) Информационный вес текста с алфавитом, состоящим из 64 символа, составляет 6 бит,
информационный вес текста с алфавитом, состоящим из 323 символа, составляет x; 323=2^x; x=log₂(323)≈8,34. = 9 бит
Текст с алфавитом 323 символа больше текста с алфавитом 64 символа в 9:6= 1,5 раза.
Unit proect;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, TAGraph, TASeries,Forms,
Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Chart1: TChart;
Image5: TImage;
Image6: TImage;
Label14: TLabel;
Label15: TLabel;
SinSeries2: TLineSeries;
CosSeries2: TLineSeries;
Edit3: TEdit;
Edit4: TEdit;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Shape1: TShape;
SinSeries: TLineSeries;
CosSeries: TLineSeries;
SinCosSeries: TLineSeries;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
const
N = 100;
MIN = -5;
MAX = 5;
var
x, step: Double;
a, b, c, d, i: Integer;
begin
//чистка предыдущих графиков
//считываем переменные
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := StrToInt(Edit3.Text);
d := StrToInt(Edit4.Text);
step := (MAX - MIN) / N;
x := MIN;
repeat
//Рисуем графики
SinSeries.AddXY(x, a * x + b);
CosSeries.AddXY(x, d * x * x);
SinCosSeries.AddXY(x, c / x);
SinSeries2.AddXY(x, sin(x));
CosSeries2.AddXY(x, cos(x));
//следующий
x := x + step;
until x > MAX;
end;
end.
1) 2^4=16 этажей
2) N=(кол-во дней в месяце)*(кол-во месяцев)*(кол-во часов в сутках)= 31*12*24=8928; N=2^I =8928; I =log2 8928 ≈13,124 бит - кол-во инф-ции
3) 2^4<25<2^5 ---> 5 бит для кодирования 1-ого символа; 5*8=40 бит для кодирования сообщения из 8 символов.
Var x:integer;
begin
read (x);
if (x<=5) then writeln (power (x,6)) else writeln (x,'>5');
end.