Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  nik
Language: PASCAL
Code:
program turizm;
var a,b,c,d,x,x1,x2:real;
begin
writeln('enter a,b,c');
Readln(a,b,c);
d:=b+b-4*a*c;
writeln ('d=,d':6:2);
IF D>0then begin x1:=-b=sqrt(d)/2*a; 
x2:=-b-sqrt(d)/2*a;
write ln ('x1=',x2:6:2)
end;
IF d<0 then write ln
('solutions olite not');
if d=0 then begin x:=-b/1*a;
writeln('x=',x:6:2)
end.          
Comments: