Напечатайте программу на языке Паскаль нахождения дискриминанта D=b2 – 4ac квадратного уравнения а*х2+b *х+с=0 для произвольных значений коэффициентов а,в,с .Напишите строку вывода результата с комментарием.
Составим уравнение Воспользуемся расширенной записью числа 87=an²+bn+2 → an²+bn-85=0 Известно, что если многочлен с целочисленными коэффициентами имеет хотя бы один вещественный корень, то он находится среди делителей свободного члена. Нас интересуют только натуральные делители, большие 2, поскольку n - основание системы счисления и в этой системе имеется цифра 2. 85 = 5 × 17. Число 17 не подходит, потому что 17>10 и двухзначное десятичное число в системе счисления с основанием, большим 10, не может иметь в записи больше двух знаков. Следовательно, n=5.
Для проверки переводим 87 в систему счисления по основанию 5. 87 / 5 = 17, остаток 2 17 / 5 = 3, остаток 2 3 / 5 = 0, остаток 3. Выписываем остатки в обратном порядке: 322 87₁₀ = 322₅ - в числе три разряда и оно оканчивается двойкой.
Составим уравнение Воспользуемся расширенной записью числа 87=an²+bn+2 → an²+bn-85=0 Известно, что если многочлен с целочисленными коэффициентами имеет хотя бы один вещественный корень, то он находится среди делителей свободного члена. Нас интересуют только натуральные делители, большие 2, поскольку n - основание системы счисления и в этой системе имеется цифра 2. 85 = 5 × 17. Число 17 не подходит, потому что 17>10 и двухзначное десятичное число в системе счисления с основанием, большим 10, не может иметь в записи больше двух знаков. Следовательно, n=5.
Для проверки переводим 87 в систему счисления по основанию 5. 87 / 5 = 17, остаток 2 17 / 5 = 3, остаток 2 3 / 5 = 0, остаток 3. Выписываем остатки в обратном порядке: 322 87₁₀ = 322₅ - в числе три разряда и оно оканчивается двойкой.
![87_{10}=ab2_n, \ a \in [1..n-1], \, b \in[0..n-1], \, a,b \in \mathbb N](/tpl/images/0747/8122/09f7a.png)
Объяснение:
program Kvadratnoe;
var a,b,c,d,x,y1,y2: real;
begin
writeln(' Решение квадратного уравнения ');
write(' Введите а = ');
readln(a);
write(' Введите b = ');
readln(b);
write(' Введите c = ');
readln(c);
d:=SQR(b)-4*a*c; //находим дискриминант
writeln(' d = ',d);
//Проверка значения дискриминанта
if d=0 then
begin
x:=-b/2*a;
writeln(' Х = ',x);
end
else
if d>0 then
begin
y1:=(-b-SQRT(d))/2*a;
y2:=(-b+SQRT(d))/2*a;
writeln(' Х1 = ',y1,' X2 = ',y2);
end
else writeln(' Нет корней ');
end.