Equação do segundo grau
Publicado por Ivan Rocha 30/11/2006
[ Hits: 9.150 ]
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. }
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Funções de Manipulação de Arquivos Pascal
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Como abrir o pycharm no linux (2)
VMs e Interfaces de Rede desapareceram (12)