Программы на pascal
1)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
y:= sin(sqr(x));
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
2)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
if x >= 0 then y:= cos(x) //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx
else y:= 1 - 2 * sin(x);
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
Если все правильно, отметь решение как лучшее)
Формула Шенона: 2^I=N, где N - объём информации, I - количество бит.
I = [log_2 (N)] - округление в большую сторону
1 байте = 8 бит.
Задача 1
Трижды запускается либо красная, либо зелёная ракета.
N = 2^3 = 8
Ответ: 8
Задача 2
I = [log_2 (800)] = [9.6438] = 10 бит на ученика
Объём 320 учащихся = 320 * 10 = 3200 бит = 400 байт
Ответ: 4
Задача 3
I = [log_2 (10+12+12)] = [5.0875] = 6 бит на символ
6 * 11 = 66 бит = 8.25 байт ~= 9 байт
9 * 60 = 540 байт
Ответ: 3
Задача 4
I = [log_2 (5*5)] = [4.6439] = 5 бит на клетку
15 ходов + начальная позиция = 16 клеток
16 * 5 бит = 80 бит = 10 байт
Ответ: 1
По тввлииввввввуввдывды в
Var
i:integer;
a:array[10..20]of integer;
begin
writeln('Исходный массив:');
for i:=10 to 20 do
begin
a[i]:=random(23);
writeln(a[i]);
end;
for i:=10 to 20 do
if (a[i]>=10) and (a[i]<=20) then a[i]:=a[i]*5;
writeln('Преобразованный массив:');
for i:=10 to 20 do
writeln(a[i]);
<span>end.</span>
1. У меня в комнате сейчас пустое множество драконов.
2. Мои родители являются множеством мощности 2.
3. Множество возможных слов языка
4. Множество точек в отрезке.
Или
1. [1, 2] ∩ [9, 19]
2. {1, 4}
3. Множество всех многочленов с целыми коэффициентами.
4. Множество непрерывных функций на отрезке [0, 1].