Equação do segundo grau

Descrição

Esconder código-fonte

program equa2grau;
uses crt;
var a,b,c,d,x1,x2,c1: real;
    escolha: integer;
    varia_equa: text;
begin
   repeat

 assign(varia_equa,'Variaeq.txt');
   {$I-}reset(varia_equa);{$I+}
   if IOresult <> 0 then
       begin
           assign(varia_equa,'Variaeq.txt');
           rewrite(varia_equa);
           close(varia_equa);
         write('Arquivo criado!');
       end;
   reset(varia_equa);
 clrscr;
   writeln('Sendo que a equacao esta na forma ax^2+bx+c, ');
   writeln('Escreva o valor de a:');
   readln(a);
   reset(varia_equa);
   append(varia_equa);
   writeln(varia_equa,a:2:0);
   if a<>0 then
      begin
         writeln('Sua equacao por enquanto eh: ',a:0:0,'(x^2)+(b)x+c=0.');
         writeln('Escreva o valor de b: ');
         read(b);
          append(varia_equa);
         writeln(varia_equa,b:2:0);
         writeln('Sua equacao por enquanto eh: ',a:0:0,'(x^2)+(',b:0:0,')x+c=0.');
         writeln('Escreva o valor de c: ');
         read(c);
          append(varia_equa);
         writeln(varia_equa,c:2:0);
         writeln('Sua equacao final eh: ',a:0:0,'(x^2)+(',b:0:0,')x+',c:0:0,'=0.');
         d:=(b*b)-(4*a*c);
         if (d=0) then
            begin
               x1:=(-b+sqrt(d))/2*a;
               writeln('O Resultado da equacao eh:',x1:5:3,'.');
            end;
         if (d>0) then
            begin
               x1:=(-b+sqrt(d))/2*a;
               x2:=(-b-sqrt(d))/2*a;
               writeln('O Resultado da equacao eh:',x1:5:3,' e',x2:5:3,'.');
            end
         else
            if d<0 then
               begin
                  x1:=-b/(2*a);
                  c1:=sqrt(-d)/(2*a);
                  x2:=-b/(2*a);
                  writeln('O Resultado da equacao eh:',x1:5:3,'+',c1:5:3,'i  e ',x2:5:2,'-',c1:5:3,'i','.');
               end;
      end   
   else
      begin
         writeln('Como a=0, sua equacao eh do primeiro grau. Logo,');
         writeln('Sua equacao esta na forma: ',a:0:0,'(x)+',b:0:0,'=0');
         writeln('E seu resultado eh: ',-b/a:0:0,'.');

      end;
 close(varia_equa);
 write('Qualquer tecla para outra equacao e 2 para sair... ');
 read(escolha);
 until (escolha = 2);
 readkey
   end.


{end. }