Как изменится размер файла статьи, которыц будет перекодирован из 2-ухбайтовой кодировки в 8- мибитовую? 1 уменшится в 4 р, 2 увеличится в 4 р,3 уменшится в 2 р, 4 увеличится в 2 р . 5 увеличится в 6 раз
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
1) day integer (PK) month varchar(10) (PK) temperature integer falls varchar(50) wind varchar(50)
3) дату всетаки лучше задавать датой, а не число отдельно, месяц отдельно, условий на них писать море год не указан, так что в следующем году ждут проблемы не наложены ограничения на поля Осадки и Ветер, потому в них может быть написано что угодно, лучше все возможные варианты закинуть в отдельные таблицы
2) не одна таблица а система таблиц конечно же Автор id integer (PK) name vaechar(50)
Издательство id integer (PK) name vaechar(50)
Книга id integer (PK) name vaechar(50) language varchar(50) id_publisher integer (FK)
Произведение id integer (PK) name vaechar(50) original_name varchar(50) id_auther integer (FK)
Произведения в книге id integer (PK) id_book integer (FK) id_proizvedenie integer (FK)
ответ: уменьшится в 2 раза
Объяснение:
В 1 байте- 8 битов
В 2 байтов - 16 битов
То есть 16/8=2