Equação do segundo grau

Publicado por Ivan Rocha 30/11/2006

[ Hits: 9.110 ]

Homepage: http://homes.dcc.ufba.br/~ivan062/bahia

Download equa2graucompleta.exe




Equação do segundo grau com um pouco de manipulação de arquivos.

  



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. }

Scripts recomendados

Arquivo texto

Numeros pitagoricos

Questionário em estatisticas em Pascal

Criando Objetos 2

[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda


  

Comentários
[1] Comentário enviado por wilson_p_junior em 30/11/2006 - 08:02h

exe meu ...
aki eh linux filho

[2] Comentário enviado por ivan.cr.neto em 30/11/2006 - 09:51h

Foi mal cara, é que o único pc que eu tenho com net é Windows.

Mas, vc pode pegar o script aí e compilar, o programa é muito bom! acha até raízes complexas.

De qualquer jeito, me desculpem vc e toda a comunidade VOL.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts