Реализовать программу ,осуществляющую вывод решения квадратного уравнения (параметры...

Question

Реализовать программу ,осуществляющую вывод решения квадратного уравнения (параметры a,b,c вводятся с клавиатуры) Хелп ми!!!

Comments

pascal?

---

Skilab

---

это язык программирования?

---

А блин,сорри,да ,паскаль

Answer 1

Program kvadratnoe;
var a,b,c,d:real;
begin
 Writeln('Введите коэффициенты:a,b,c');
 readln(a,b,c);
 d:=b*b-4*a*c; if d >0 then  
 begin   
  Writeln('x1=',(-b-Sqrt(d))/2*a);   
  Writeln('x2=',(-b+Sqrt(d))/2*a) 
 end; 
 if d=0 then Writeln('x=',(-b/2*a)); 
 if d<0 then Writeln('Действительных корней нет')<br>end.

Answer 2

Program z1;
var a,b,c:integer;
begin
readln(a,b,c);
if (b*b-4ac)>0 then
writeln((-b+sqr(b*b-4ca))/4a,(-b-sqr(b*b-4ca))/4a)
end.

Comments

sqrt

---

не sqr

---

А ты в программе scilab ,matlab случайно не разбираешься ?

---

не а; ток паскаль

---

кст; ниже более полный

---

он правильней

---

вот исправил

---

Спасибо