Equação do segundo grau
Publicado por Ivan Rocha 30/11/2006
[ Hits: 9.121 ]
Homepage: http://homes.dcc.ufba.br/~ivan062/bahia
Download equa2graucompleta.exe
Equação do segundo grau com um pouco de manipulação de arquivos.
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. }
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)