В Scilab или excel Выполнить 10 заданий

Відповідь:

Банковский вклад — это сумма денег, переданная банку на хранение с целью получить доход в виде начисленных процентов.   Раз в какой-то промежуток времени (в задачах это, как правило, месяц или год) банк начисляет на текущую сумму некоторое количество r% процентов.   Раз в год после начисления процентов клиент, как правило, имеет право доложить на счет любую сумму денег. Также клиент имеет право снимать со счета любую сумму (естественно, не превышающую имеющуюся). Время, когда он может это сделать, указывается в задаче.   Пример: В январе 2014 года клиент положил в банк 30000 рублей под 10% годовых, которые банк начисляет раз в год в декабре. Сколько рублей будет на счете у клиента в январе 2017 года?   То, что банк начисляет на текущую сумму 10%, значит, что после начисления процентов сумма будет составлять 110% от суммы, находящейся на счете до начисления процентов. Составим таблицу: Г о д С у м м а н а с ч е т е д о н а ч и с л е н и я я н в а р ь С у м м а н а с ч е т е п о с л е н а ч и с л е н и я д е к а б р ь ГодСумма на счете до начисления %Сумма на счете после начисления %(январь)(декабрь)2014300001,1⋅3000020151,1⋅300001,12⋅3000020161,12⋅300001,13⋅30000 Таким образом, в декабре 2016 года после начисления процентов на счете у клиента будет 1,13⋅30000 рублей. Эта же сумма будет у него на счете и в январе 2017 года (т.к. проценты начисляются только в декабре).   Значит, ответом будет 39930 рублей. Ознакомиться с полной теорией

Источник: https://shkolkovo.net/catalog/slozhnye_zadachi_prikladnogo_haraktera/pro_bankovskij_vklad

© shkolkovo.net

Пояснення:

var a, b, c, d, x1, x2, t: real;
begin 
    writeln('Программа для решения неравенства ax^2 + bx + c > 0'); 
    write('Введите коэффициенты a, b, c: '); 
    readln(a, b, c); 
    if a = 0 then begin
        if b = 0 then
        begin        
            if c > 0 then writeln('(-∞; +∞)')                   
                       else writeln('ø')       
        end       
        else if b > 0 then writeln('(', -c / b : 0 : 3, '; +∞)')             
                           else writeln('(-∞; ', -c / b, ')') 
    end 
    else 
    begin   
        d := b * b - 4 * a * c;   
        if d = 0 then
        begin     
            x1 := -b / (2 * a);     
            if a > 0 then writeln('(-∞; ', x1, ') U (', x1, '; +∞)')               
                       else writeln('ø')   
        end   
        else if d > 0 then   
        begin     
            x1 := (-b - sqrt(d)) / (2 * a);     
            x2 := (-b + sqrt(d)) / (2 * a);     
            if x1 > x2 then     
            begin       
                t := x1;       
                x1 := x2;       
                x2 := t     
            end;     
            if a > 0 then writeln('(-∞; ', x1, ') U (', x2, '; +∞)')               
                       else writeln('(', x1, '; ', x2, ')')   
        end   
        else   
        begin     
            if a > 0 then writeln('(-∞; +∞)')               
                       else writeln('ø')   
        end 
    end
end.