Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. Если d<0, то вывести сообщение "корней нет".
10-11 класс
|
Pascal
program korni;
uses crt;
var a, b, c, x1, x2,d: real;
begin
write('vvedite koeffecienti uravnenia');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=((-b)+sqrt(d))/(2*a);
x2:=((-b)-sqrt(d))/(2*a);
write('x1 = ',x1,'x2 = ',x2);
end;
if d<0 then write('kornei net')
else
begin
x1:=((-b)/(2*a);
write('x = ',x1);
end;
readln;
end.
program name;
var
begin
вводишь a,b,c
потом отдельно х
if (a*x*x+b*x+c=0) and (a<>0) then
begin
d;=sqr(b)-4a*c;
end;
if d<0 then begin
writeln('kornyey net');
Другие вопросы из категории
особенно обязательно вторые два задания.
А. Сжать архиватором, передать архив по каналу связи, распаковать.
Б. Передать по каналу связи без использования архиватора.
Какой способ быстрее и насколько, если:
• средняя скорость передачи данных по каналу связи составляет 221 бит в секунду;
• объём сжатого архиватором документа равен 25% исходного;
• время, требуемое на сжатие документа, – 12 секунд,
• на распаковку – 3 секунды?
В ответе напишите букву А, если быстрее способ А, или Б, если быстрее способ Б. Сразу после буквы напишите число, обозначающее, на сколько секунд один способ быстрее другого. Так, например, если способ Б быстрее способа А на 23 секунды, в ответе нужно написать Б
Читайте также
Программирование
Решить квадратное уравнения вида ax^2 + bx + c = 0
К решению математическая модель:
Дано:
Нужно:
Связь:
При:
Используя формулы нахождения
дискриминанта и неизвестных,
решите квадратное
уравнение 12х^2+5х-2=0
на экран выведется слово ОТВЕТ.
Определите, какая задача решается по следующему алгоритму:
алг Задача-6
вещ X
нач ввод X
если Х < 0
то вывод "отрицательное число"
иначе вывод "положительное число"
кв
кон