Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  asdsa
Language: PASCAL
Code:
program HelloWorld;
var d,a,b,c,x1,x2:integer;
begin
  a:=0;
  while (a = 0) do
    begin
     write('Digite o valor de a');
     read(a);
    end;
  write('Digite B');
  read(b);
  write('Digite C');
  read(c);
d:=(b*b) - (4*a*c);
if (d<0) then
   begin
    write('nao há raizes iguais');
   end
else
  begin
    x1:=((-b)+sqrt(d)) / (2*a);
    x2:=((-b)-sqrt(d)) / (2*a);
  end
end.          
          
          
          
          
          
          
          
          
          
          
Comments: