Предмет: Информатика,
автор: ddzhali
Пожалуйста помогите !!!!!!!!!!!!!!!!!!Написать код для нахождения D(дискриминанта) в тетради и в FREE Pascal.(Используя приложение для телефона или ПК)
Ответы
Автор ответа:
2
Ответ:
var a, b, c,d, x1, x2:Real;
begin
write('a=');ReadLn(a);
Write('b=');ReadLn(b);
Write('c=');ReadLn(c);
d:=sqr(b)-4*a*c;{вычислен дискриминант}
if d<0 then begin writeln('нет решения');break ;end;
if d=0 then begin WriteLn('Одно решение');WriteLn('x=' ,-b/(2*a));end;
WriteLn('x1=',(-b+Sqrt(d))/(2*a));
WriteLn('x2=',(-b-Sqrt(d))/(2*a));
readln;
end.
Объяснение:
Я профи в этом
Эта программа кроме дискриминанта ещё найдёт иксы к тому же если нет решения, программа напишет нет решения
Я смог помочь!?
ddzhali:
Спасибо большое )))
Да , я программирую на языках Дельфи(обновление Паскаля), Java, и чуть заучил html с JavaScript
Интересные вопросы
Предмет: Английский язык,
автор: владислава30
Предмет: Английский язык,
автор: danilpostnikov1
Предмет: Русский язык,
автор: kjuev
Предмет: Физика,
автор: qween89
Предмет: Математика,
автор: даник2007кушнеров