Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе. 1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации. 2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
В операторах Dat[1] := 7; ... ; Dat[10] := 9; задаются элементы массива. m := 0; n := 0; - начальные значения переменных m и n. В цикле for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива). ответ: 8
var
FD: text;
y, step, first, last: real;
begin
write('Введите начальное значение, конечное значение и шаг:');
read(first, last, step);
assign(FD, 'tabl.txt');
rewrite(FD);
writeln(FD, 'x':4, 'f(x)':10);
while (first <= last) do
begin
if (first.Between(0.41, 0.58)) then
writeln(FD, first:4:2, 'infinity':10)
else
begin
y := (2 * first + 1) / (2 * first - 1);
writeln(FD, first:4:2, y:10:4);
end;
first := first + step;
end;
close(FD);
end.