Возведение вещественного числа x в натуральную степень n (без использования стандартных функций):
var n,i:integer; x,xn:real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
xn:=1;
for i:=1 to n do xn:=xn*x;
writeln('xn = ',xn:6:3);
end.
Пример:
<span>x = 2
n = 5
xn = 32</span>
Программы для решения задач - в прилагаемом файле.
const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(104)-37;
write (a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if (odd(a[i])=true) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.
Разрядность двоичного кода — это и есть информационный вес символа. Информационный вес каждого символа, выраженный в битах (b), и мощность алфавита (N) связаны между собой формулой: N= 2b. Информационныйобъем текста и единицы информации. Информационный объем текста складывается из информационных весовсоставляющих его символов. Например, следующий текст, записанный с помощью двоичного алфавита: 1101001011000101110010101101000111010010.