Equação do segundo grau
Publicado por Ivan Rocha 30/11/2006
[ Hits: 9.040 ]
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. }
Funções de Manipulação de Arquivos Pascal
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Visualizador de imagens feito no Lazarus
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Lançado Ubuntu 24.04 Final (3)
iso de sistema 32 bit em atividade (10)
ASRock H310CM-HG4 vs Linux (15)