Алгебра

В связи с недавней публикацией ув.basvic программ решения квадратных и кубических уравнений, открыл я школьную тетрадочку и обнаружил в ней две свои программы для МК61/52 (должны пойти и на более ранних моделях). Программы оказались короткими.

Уравнение вида: ax2 + bx + c = 0

КВУР МК-61/52 (с использованием регистров)

Решение невырожденного кубического уравнения с вещественными коэффициентами методом Кардано.

Метки публикаций: 

Поскольку в этом калькуляторе нет автоматического решателя квадратных и кубических уравнений, а то что есть

Метки публикаций: 

Алгоритмы взяты из книги В.П. Дьяконова "Справочник по алгоритмам и программам на языке Бэйсик для персональных ЭВМ" и представляют собой программы 3.49-3.53. Использование программы 3.52 (простой метод Гаусса) в определенных случаях (например, при делении на ноль) приводит к останову МК (ОШ 125). Исполняемый код может быть загружен непосредственно из главного меню, путем выбора соответствующего СМП. По умолчанию матрица заполняется случайными целыми числами в диапазоне от -3 до 3, для ручного ввода элементов нужно после загрузки программы, до ее запуска набрать следующее: 40 INPUT A(I,J).

Для Citizen SRP-325G. Сейчас этого калькулятора у меня уже нет, но программы от него остались и может быть кому-либо окажуться полезны.

-----------------------------------------------------------------------------------------
Возведение в степень по модулю
-----------------------------------------------------------------------------------------
PROGRAM (D=A^BmodC)
Program type – MAIN

PRINT “A^B%C”;SLEEP(2)
INPUT A,B,C
D=1
FOR(E=B/2;E≥.5;E=E/2){IF(Frac(E)>0)THEN{D=DA-INT(DA/C)C}
A=A2-INT(A2/C)C;E=INT(E)}
PRINT D
END

----------------------------------------------------------------------------------------

Метки публикаций: 

Навеяно книгой Меёса. Написал программу интерполяции во время поездки в маршрутке :)

В начале по запросу вводится массив значений функции, взятых через N от 3 до 255 равных интервалов аргумента в виде:
{x0, x1,...,xN-1}
Затем программа запрашивает значение аргумента, любое вещественное в пределах от 0 до (N-1) и выдает результат, после чего запрашивает следующее... Бесконечный цикл в общем.

Метки публикаций: 

Две простые программы поиска разложения целых чисел на простые множители. Диапазон 1<=n<=999999999. В первой в качестве пробных делителей проверяются числа 2 и все нечетные. Во второй - 2,3 и все числа вида 6*I+1, 6*I-1.

1 программа:

Input N;
If(N==1)Then{Goto 1};
For(P=2;NRmdr2==0;N=N/2){Print P};
If(N==1)Then{Goto 2};
For(P=3;P^2<=N;P=P+2)
{
    If(NRmdrP==0)Then
    {
       Print P;
       N=N/P;
       P=P-2;
    }
};
Label 1:;
Print N;
Label 2:;
End

2 программа: