Перевести из Pascal на язык C++ program junk;
uses crt;
var m,d:byte;
begin
clrscr;
writeln('Введите дату рождения в формате дата <Enter> месяц (пример 12 <Enter> 02) ');
readln(d,m);
textcolor(red);
case m of
1: if d<20 then writeln('Козерог') else writeln('Водолей');
2: if d<19 then writeln('Водолей') else writeln('Рыба');
3: if d<21 then writeln('Рыба') else writeln('Овен');
4: if d<20 then writeln('Овен') else writeln('телец');
5: if d<21 then writeln('Телец') else writeln('Близнецы');
6: if d<22 then writeln('Близнецы') else writeln('Рак');
7: if d<23 then writeln('Рак') else writeln('Лев');
8: if d<23 then writeln('Лев') else writeln('Дева');
9: if d<23 then writeln('Дева') else writeln('Весы');
10: if d<23 then writeln('Весы') else writeln('Скорпион');
11: if d<23 then writeln('Скорпион') else writeln('Стрелец');
12: if d<22 then writeln('Стрелец') else writeln('Козерог')
end;
readln
end.
var
c,d,Gd,Gm:integer;
k:real;
begin
Writeln('10<=c<=460; 10<=d<=230');
Write('Задайте c в пределах от 10 до 460: ');Read(c);
if (c<10) or (c>460) then Writeln('Неверное значение!')
else begin
Write('Задайте d в пределах от 10 до 230: '); Readln(d);
if (d<10) or (d>230) then Writeln('Неверное значение!')
else begin
Gd := Detect;
InitGraph(Gd, Gm, 'Y:\tp7\bgi'); { Инициализируем графический режим }
SetColor(4);
k:=GetMaxX/GetMaxY; { Коэффициент искажений по осям }
if c<d then Rectangle(Trunc(10/k),10,Trunc((2*d+10)/k),2*d+10)
else Line(Trunc(c/k),c,Trunc(d/k),d);
Readln;
CloseGraph
end
end
end.
Вес одного символа (Включая точки, запятые, пробелы и т.д) равен 8 битам.
Например.
Кошка мурлычет. Вес этого предложения равен:
I = i · k.
I - это информационный объём всего сообщения.
i - это информационный объём одного символа.
k - это количество символов во всём сообщении.
То есть, количество символов умножить на вес одного символа. В данном случае получим 15 · 8 = 120 (В битах. Если нужно перевести в байты, то 120 : 8 = 15 байт (Т.к. в одном байте содержится 8 бит)).
Надеюсь, ответ достаточно исчерпывающий.