1) program lineynoeuravnenie; var a, b: integer; x: real; begin writeln ('Введите коэффициенты a и b'); readln (a, b); x:=-b/a; write ('Решите уравнение', x); end.
2) program veschestvennoe; var a, b, c: integer; d, x1, x2: real; begin writeln ('Введите коэффициент a, b, c'); readln (a, b, c); if a=0 then begin x1:=-c/b; write ('Одно решение', x1), end; d=b*b-4*a*c; if d<0 then write ('Корней нет'); if d=0 then begin x1:=-b/(2*a); write ('Одно решение', x1); end; else begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); write (x1,'',x2); end; end.
Переводим число из двоичной системы в десятичную: 10(2) = 1 * 2^1 + 0 * 2^0 = 2 + 0 = 2
10(2) + 10(10) = 2(10) + 10(10) = 12(10)
Чтобы перевести число из системы счисления с основанием b, можно представить его в виде суммы: Всё точно так же, как и в десятичной системе, только меняем 10 на основание системы счисления, например, Другой избежать большого количества возведений в степень и записать, например, так: Берем первую цифру – умножаем на b, прибавляем вторую цифру – умножаем на b, прибавляем третью цифру – ... – умножаем на b, прибавляем последнюю цифру.
Чтобы перевести из десятичной в систему с основанием b, нужно по сути сделать в обратном порядке то, что написано выше: либо восстановить разложение в сумму, либо выписать остатки от деления на b в обратном порядке. Например, переведем 27(4) в десятичную систему счисления: 27(4) = 1 * 16 + 2 * 4 + 3 * 1 = 1 * 4^2 + 2 * 4^1 + 3 * 4^0 = 123(4)
