Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. Если d<0, то вывести сообщение "корней нет".

10-11 класс

Leravalerysmi 14 марта 2014 г., 21:49:18 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
52VIKA
14 марта 2014 г., 23:26:18 (10 лет назад)

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.

+ 0 -
Irinaok05
14 марта 2014 г., 23:57:13 (10 лет назад)

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');

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ответить

Другие вопросы из категории

помогите пожалуйста с информатикой!легкие задания,но не была на этой теме.

особенно обязательно вторые два задания.

13. Документ объёмом 16 Мбайт можно передать с одного компьютера на другой двумя способами.

А. Сжать архиватором, передать архив по каналу связи, распаковать.
Б. Передать по каналу связи без использования архиватора.
Какой способ быстрее и насколько, если:
• средняя скорость передачи данных по каналу связи составляет 221 бит в секунду;
• объём сжатого архиватором документа равен 25% исходного;
• время, требуемое на сжатие документа, – 12 секунд,
• на распаковку – 3 секунды?
В ответе напишите букву А, если быстрее способ А, или Б, если быстрее способ Б. Сразу после буквы напишите число, обозначающее, на сколько секунд один способ быстрее другого. Так, например, если способ Б быстрее способа А на 23 секунды, в ответе нужно написать Б

Читайте также

Помогите пожалуйста, очень нужно!

Программирование
Решить квадратное уравнения вида ax^2 + bx + c = 0
К решению математическая модель:
Дано:
Нужно:
Связь:
При:

В программе Microsoft Ехсе1 выполните задания:

Используя формулы нахождения
дискриминанта и неизвестных,

решите квадратное
уравнение 12х^2+5х-2=0













Для вывода на экран произвольной символьной строки нужно в команде вывода записать эту строку в апострофах. Например, по команде вывод "ОТВЕТ"

на экран выведется слово ОТВЕТ.

Определите, какая задача решается по следующему алгоритму:

алг Задача-6
вещ X
нач ввод X
если Х < 0
то вывод "отрицательное число"
иначе вывод "положительное число"
кв
кон



Вы находитесь на странице вопроса "Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. Если d&lt;0, то вывести сообщение "корней нет".", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.