Помогите решить задачку по информатике (Паскаль)

Желательно подробное решение, хочу не просто списать , а понять , как это делать, заранее огромное спасибо.

1

Ответы и объяснения

2013-11-15T12:02:45+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Const
    start_a = -1.5;
    stop_a = 1.5;
    h_a  = 0.32;
    start_b = -1.8;
    stop_b = 2.5;
    h_b = 0.54;

var
    a, b, min_a, min_b, min_z, z: real;

begin
    a := start_a - h_a;
    writeln('a':10, ' |', 'b':10, ' |', 'z':10);
    
    repeat
        a := a + h_a;
        b := start_b - h_b;
        repeat
            b := b + h_b;
            z := sin(b + a) / ln(a * a * Pi);
            writeln(a:10:4, ' |', b:10:4, ' |', z:10:4);
            
            if (z < 0) and (z < min_z) then begin
                min_z := z;
                min_a := a;
                min_b := b;
            end;
        until b >= stop_b;
    until a >= stop_a;
    
    writeln('min');
    writeln(min_a:10:4, ' |', min_b:10:4, ' |', min_z:10:4);
end.
код вполне аккуратен и читабелен как по мне)
А можешь написать более простым языком? :(
всмысле более простым? я тебя не понимаю
могу написать на C# , там это действительно может выглядеть проще