Var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX
Const n=10;
var a:array[1..n] of real;
max,min:real; i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max = ',max,' min = ',min);
max:=max*max; min:=min*min;
writeln('Измененный массив:');
for i:=1 to n do
if a[i]>0 then a[i]:=a[i]*min else a[i]:=a[i]*max;
for i:=1 to n do write(a[i]:5);
writeln;
end.
Пример:
Исходный массив:
5 6 7 0 -6 5 -2 10 7 -2
max = 10 min = -6
Измененный массив:
180 216 252 0 -600 180 -200 360 252 -200
Знать команды для начала, "поднятия" пера, команду для того,чтобы "опустить" перо. и вписывать потом точки.
Ну смари.
Дано:
X - информационный объём.
X1 - 0.5 Кбайт = 1024 * 0,5 = 512 байт.
X2 - 500 байт.
N ( разница объёмов сообщений ) = X1 - X2 = 512 - 500 = 12 байт.
Ответ: N = 12 байт.
Профит^^
Ответ:
N = 2^64 символов.
Объяснение:
Дано:
K = 65536 символов.
V = 512 кбайт.
Найти: N.
Решение:
Воспользуемся формулой V = K * I, где V - объем в битах, K - количество символов в сообщении, I - информационный вес одного символа. Выразим и посчитаем I:
I = V/K.
Так как объем должен быть в битах, то сразу переводим кбайты в биты, умножив значение V на 2^13. Для упрощения вычислений, представим число 65536 в качестве степени двойки:
I = (512 * 2^13)/(2^16) = (2^9 * 2^13)/(2^16) = (2^22)/(2^16) = 2^6 = 64 бита.
Теперь можем найти мощность алфавита по формуле:
N = 2^i, где N - мощность алфавита.
N = 2^64 символов.