В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
olena4519
olena4519
18.10.2021 08:44 •  Информатика

сделать задачку в паскале Месячная выплата m по займу в s рублей на n лет под процент p вычисляется по формуле:
m=(s*r*(1+r) в n степени / (12*((1+r) в n степени -1)), где r=p/100
Необходимо рассчитать месячную выплату по займу и прибыль банка.
Выражение exp(In(1+r)*n) вычисляет (1+r) в n степени.
Выражение trunc(100*m+0.5)/100 выполняет округление до копейки.
Данные для самопроверки:
Величина заема: 200000
Процент: 14.5
Количество лет: 6
Месячная выплата равна: 4344.8
Прибыль банка: 112825.5

Показать ответ
Ответ:
polina2006200
polina2006200
25.12.2022 09:41
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.

инструментарий для дебага оставила. Проверяйте значение символов перед стартом
0,0(0 оценок)
Ответ:
alevtinatian
alevtinatian
14.03.2020 00:09
V=K*i, где V – это информационный объём текстового сообщения; K – количество символов в сообщении, i – информационный вес одного символа.

Значит, V=K*i=67 символов (с учётом пробелов и знаков препинания) * 16 бит= 1072 бит или 134 байт.

И здесь у нас проблема. Мой ответ не совпадает ни с одним из возможных вариантов. Более-менее сходными с моим ответом являются варианты 2) 134 бит (у меня 134 бАЙт) и 4) 1027 бит (у меня 1072 бит).
И тут есть вероятными три пути развития событий: а) я допустил ошибку в вычислениях, б) Вы допустили ошибку при написании вариантов ответа, в) ошибка кроется в самом задании.

Внимательно перечитайте задание, вдруг вы обнаружите, что случайно ошиблись.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота