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

Помогите пожалуйста составить программу для решения квадратного уравнения. Срочно нужно, буду благодарна.

5-9 класс

Murodporhe 15 сент. 2013 г., 5:50:56 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Petrovoh
15 сент. 2013 г., 6:37:02 (10 лет назад)

Var a,b,c,y1,y2,d,i:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
if d>0 then
begin
y1:=(-1*b+sqrt(d))/(2*a);
y2:=(-1*b-sqrt(d))/(2*a);
writeln(y1);    
writeln(y2);  
end  else
if d=0 then
begin
y1:=(-1*b)/(2*a);
writeln(y1); 
end else 
writeln('Корней нет');
end.

Ответить

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

только первое задание

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

помогите пожалуйста составить программу для этой задачи в паскале... уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С

продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.

Составьте программу для решения задачи : при каком значении N произведение станет меньше 0.1

p=1/2*1/4...1/2N;
Турбо паскаль!!!!
знаю задача не очень то и сложно но я забыл как решать такого типа помогите люди пожалуйста срочно нужно



Вы находитесь на странице вопроса "Помогите пожалуйста составить программу для решения квадратного уравнения. Срочно нужно, буду благодарна.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.