Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  asd
Language: PASCAL
Code:
program Turizm;
var a,b,c,d,x,x1,x1:Real;
begin
  writeln('enter a,b,c');
  Readln(a,b,c);
D:=b*b-4*a*c;
writeln('D=,D':6:2);
IF D>0 Then Begin x1:=-b+sqrt(D)/2*a;
x2:=-b-sqrt(D)/2*a;
writeln('x1=',x1:6:2);
writeln('x2=',x2:6:2)end;
IF D<0 Then writeln('solutions did not');
IF D=0 Then begin x:=-b/2*a;
writeln('x=',x:6:2)end;
ReadLn
end.          
          
          
Comments: