EquacaoSegundoGrau var a, b, c : integer ; delta, x1, x2 : real ; Begin writeln('Raizes da equacao ax^2 + bx + c = 0'); write('Entre com o valor de a : '); read( a ); write('Entre com o valor de b : '); read( b ); write('Entre com o valor de c : '); read( c ); delta := sqr(b) - 4*a*c ; writeln('Delta = b^2 - 4ac') ; writeln('O valor de delta = ', delta ); if( delta < 0 ) then Begin writeln('Porque delta e menor do que zero, nao existem raizes reais.'); End; if( delta = 0 ) then Begin writeln('Para delta = 0 so existe uma raiz real, x1') ; writeln('Nesse caso x1 = -b/2a '); x1 := -b / (2*a) ; writeln('O valor de x1 = ', x1 ); End ; if( delta > 0 ) then Begin writeln('Para delta > 0 existem duas raizes reais, x1 e x2') ; writeln('Nesse caso x1 = (-b + raiz(delta)) / 2a '); writeln('Nesse caso x1 = (-b - raiz(delta)) / 2a '); x1 := (-b + sqrt(delta)) / (2*a) ; x2 := (-b - sqrt(delta)) / (2*a) ; writeln('O valor de x1 = ', x1 ); writeln('O valor de x2 = ', x2 ); End ; End. MMC var PrimeiroValor,SegundoValor,Divisor,MMC:Integer; Begin writeln (' Programa que calcula MMC de 2 números '); writeln (' --------------------------------------- '); writeln (''); write ('Informe o primero número: '); read (PrimeiroValor); write ('Informe o segundo número: '); read (SegundoValor); Divisor:=2; MMC:=1; if (PrimeiroValor=0) or (SegundoValor=0) then begin write ('O Mínimo Múltiplo Comum (MMC) é'); writeln (' 0'); end; if (PrimeiroValor<>0) and (SegundoValor<>0) then begin Repeat if (PrimeiroValor Mod Divisor=0) or (SegundoValor Mod Divisor=0) then begin if (PrimeiroValor mod Divisor=0) then PrimeiroValor:=PrimeiroValor div Divisor; if (SegundoValor mod Divisor=0) then SegundoValor:=SegundoValor div Divisor; if (PrimeiroValor<>0) and (SegundoValor<>0) then MMC:=Divisor*MMC; end; if (PrimeiroValor Mod Divisor<>0) and (SegundoValor Mod Divisor<>0) then Divisor:=Divisor+1; if (PrimeiroValor<=1) and (SegundoValor<=1) and (PrimeiroValor<>0) and (SegundoValor<>0) then begin write ('O Mínimo Múltiplo Comum (MMC) é '); writeln (MMC); end; until (PrimeiroValor<=1) and (SegundoValor<=1); end; End. Numero PI var i,n: integer; Pi: real; Begin // Solicita o numero de termos da série write('Informe o numero de termos da serie: '); read(n); // Caclula o valor de PI Pi:=3; For i:=2 to n do Begin // Os termos na posicao par sao positivos if (i mod 2 = 0) then Pi:= Pi+(1/i); // Os termos na posicao impar sao negativos if (i mod 2 <> 0) then Pi:= Pi-(1/I); End; write ('Número Pi é igual à ',Pi); End. Seno/Coseno Var graus: real; grausRadiano: real; Begin // Solicita o valor do angulo write('Informe o valor do ângulo em graus: '); readln(graus); // Mostra o seno e o cosseno grausRadiano:= graus*(3.1415/180) ; writeln('O Seno do ângulo é: ', sin(grausRadiano):2:2); writeln('O Cosseno do ângulo é: ', cos(grausRadiano):2:2); End. Exemplo de Matriz var i,j,k: integer; M: array [1..4, 1..4] of integer; Begin // Leitura dos dados da matriz For i:= 1 to 3 do For j:= 1 to 3 do Begin write('Entre com o valor M[',i, ',',j, '] : '); readln(M[i,j]); End; // Leitura da constante K write('Entre com um valor K : '); readln(k); // Mostra matriz original writeln('Matriz original : '); For i:= 1 to 3 do writeln(M[i,1]:4, M[i,2]:4, M[i,3]:4); // Altera matriz original For i:= 1 to 3 do M [ i, i ] := K * M [ i, i ] ; // Imprime a matriz modificada writeln('Nova Matriz : '); For i:= 1 to 3 do writeln(M[i,1]:4, M[i,2]:4, M[i,3]:4); End. Numero Primo Var N, i: integer; isPrimo: boolean; respostaUsuario: char; Begin repeat // Solicita um número write('Informe um número: '); readln(N); // Tenta dividir esse número por 2, 3, ..., N-1 // Até que se prove o contrário, nosso número é primo! i:=2; isPrimo:= true ; while (i