209,35 Кбайт
Объяснение:
Дано:
N = 128 символов (количество букв в алфавите)
K = 100 страниц * 35 строк * 70 символов в строке = 245 000 символов в книге
Найти:
I
N = 2^i где
N - мощность алфавита (количество символов в алфавите)
i - количество бит для кодирования 1 символа (информационный вес символа)
^ - знак степени
128 = 2^i
i = 7 бит (подбор, знание степеней двойки)
I = К * i где
I - информационный объём текста
K - количество символов в тексте
i - количество бит для кодирования 1 символа (информационный вес символа)
I = 245 000 * 7 = 1 715 000 бит
I = 1 715 000 бит = 1 715 000 / 8 = 214 375 байт = 214 375 / 1024 ≈ 209,35 Кбайт
1 байт = 8 бит
1 Кбайт = 1024 байт
Код1:
#include <iostream>#include <cmath>constexpr double semi_perimeter (double a, double b, double c) { return (a + b + c) / 2;}double first_task(double a, double b, double c) { auto p = semi_perimeter(a, b, c); return sqrt(p*(p-a)*(p-b)*(p-c));}int main() { double A, B, C, S; std::cin >> A >> B >> C; S = first_task(A, B, C); std:: cout << S << std::endl; return 0;}Код2:
#include <iostream>#include <cmath>constexpr double peak(double a, double b) { return (a > b) ? a : b;}double second_task(double a, double b, double c) { return peak(peak(a, b), c);}int main() { double A, B, C, R; std::cin >> A >> B >> C; R = second_task(A, B, C); std:: cout << R << std::endl; return 0;}Поделитесь своими знаниями, ответьте на вопрос:
Перепишите программу на языке паскаль, исправив ошибки: program primer var a, b: integer; begin ; readln( a, b); s=a+b; m: =a*b; d: =a: b; writeln(s); writeln(m); writeln(d) end
ошибки в программе:
program primer - не хватает точки с запятой
var a,b: integer;
begin ; - не ошибка, необязательная точка с запятой
readln( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в : =
m: =a*b;
d: =a: b; - переменная d не была описана; деление - это /
writeln(s);
writeln(m);
writeln(d)
end - не хватает точки.
исправленная программа:
program primer;
var a, b: integer;
d: real;
begin
readln(a, b);
s : = a + b;
m : = a * b;
d : = a / b;
writeln(s);
writeln(m);
writeln(d)
end.