PROGRAMA PARA RESOLVER ECUACIONES DE SEGUNDO GRADO EN PASCAL

Опубликовано: 18 Июнь 2026
на канале: Marisol Ramos

6,706

Programa para resolver ecuaciones de segundo grado en Pascal
Código:
PROGRAM ECUAC;
USES WINCRT;
VAR A, B,C:REAL;
VAR RESULTADO1,RESULTADO2:REAL;
BEGIN
CLRSCR;
WRITE('PROGRAMA PAR CALCULAR ECUACIONES DE SEGUNDO GRADO:');
WRITELN('');
WRITELN('INTRODUZCA A:');
READLN(A);
WRITELN('INTRODUZCA B:');
READLN(B);
WRITELN('INTRODUZCA C:');
READLN(C);
RESULTADO1:=(-B+SQRT(SQR(B)-4*A*C))/(2*A);
RESULTADO2:=(-B-SQRT(SQR(B)-4*A*C))/(2*A);
WRITELN('RESULTADO DE LA EXPRESION ES:');
WRITE('VALOR 1:'); WRITELN(RESULTADO1:5:2);
WRITE('VALOR 2:'); WRITELN(RESULTADO2:5:2);
END.

https://mega.co.nz/#!qpRwCA4B!7LzsRNP...