Equação do segundo grau
Publicado por Ivan Rocha 30/11/2006
[ Hits: 9.101 ]
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. }
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
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
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta