Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  dbrnj
Language: PASCAL
Code:
program turizm;
var a, b, c, d, x, x1, x2, : real;
writeln('enter a,b,c')
readln(a,b,c)
D:=B*B-4*a*c
writel('D=,d:6:2)
IF D>0 Then begin x1:=-b+sqrt(D)/2*a;
x2;=-b-sqrt(d)/2*a;wraiteln('x1=,x1:6:2);
writel(x2:6:2)end;
Comments: