Контрольная работа по теме «Программирование и алгоритмизация» 10

https://photos.app.goo.gl/LVvMyMZG3V8t6g1f7

Const
    max_length = 10;

type
    arr = array [0..max_length, 0..max_length] of byte;

var
    a: arr;
    i, j, n, m, k, x, y: byte;
    c: char;
    f: text;

//procedure PrintMatrix(a: arr);
//begin
//    for var i := 0 to max_length do
//    begin
//        writeln;
//        for var j := 0 to max_length do
//            write(a[i, j], ' ');
//    end;
//    writeln;
//end;

procedure labirint(i, j: byte);
begin
    if (i <= n) and (i >= 0) and (j <= m) and (j >= 0) and (a[i, j] = 0) then begin
        a[i, j] := 1;
        k := k + 1;
        labirint(i, j - 1);
        labirint(i, j + 1);
        labirint(i - 1, j);
        labirint(i + 1, j);
    end;
end;

begin
    Assign(f, 'input.txt');
    Reset(f);
    
    readln(f, n, m);
    for i := 0 to n do
    begin
        for j := 0 to m do
        begin
            read(f, c);
            case c of
                'x': a[i, j] := 2;
                '.': a[i, j] := 0;
                '+':
                    begin
                        x := i;
                        y := j;
                        a[i, j] := 0;
                    end;
            end;
        end;
        readln(f);
    end;
    Close(f);
    
//    PrintMatrix(a);
    
    labirint(x, y);
    writeln(k);
//    PrintMatrix(a);
end.

инструментарий для дебага оставила. Проверяйте значение символов перед стартом

задача2

посчитаем общее количество шариков в мешочке по формуле N=2^i

подставим в эту формулу 3 и получим двойку в третьей степени - это 8 шариков

задача3

общее количество вариантов рассчитывается по формуле  по формуле N=2^i подставим в эту формулу 16 и получим двойку в четвертой  степени т.е. i=4 бита

задача5

запишем условие: I=450 бит, К=150, i=?

решение: найдем вес одного символа , разделим I на K - получим

i=450/150=3 бита

задача9

запишем условие: I=2Кб, К=8192, N=?

решение: выразим объем информационного сообщения в битах

I=2*1024*8=16384 бит  найдем вес одного символа , разделим I на K - получим

i=16384/8192=2 бита если i=2  если вес одного символа 2, то мощность алфавита равна 4

 задача11

определим, сколько символов в алфавите планеты Альфа. Для этого вычеркнем из сообщения повторяющиеся символы: букву М, К, Н, О

осталось вот что: МКЛНОПРСТ! - всего 10 символов

определим вес 1 символа по таблице нецелых степеней числа 2: i=3.32 бита. В исходном тексте 15 символов, поэтому умножим наше i на 15

I=15*3.32=49.8 бит