Código de Pascal/Turbo Pascal - F.Gral Cuadrática

Val: 29

F.Gral Cuadrática

Publicado el 11 de Septiembre del 2018 por Maurico (3 códigos)

1.568 visualizaciones desde el 11 de Septiembre del 2018

El programa esta diseñado para calcular ecuaciones de segundo grado y sus dos soluciones, raíz positiva y negativa.

Turbo Pascal /Pascal

Publicado el 11 de Septiembre del 2018

1.569 visualizaciones desde el 11 de Septiembre del 2018

program FORMULA_GENERAL_CUADRATICA;

uses crt;

var

A,B,C,H,H2: real;

begin

clrscr;

writeln('Escribe el valor de A: ');

readln(A);

writeln('Escribe el valor de B: ');

readln(B);

writeln('Escribe el valor de C: ');

readln(C);

H:=(-b+(sqrt(b*b-4*a*c))/2*a);

H2:=(+b-(sqrt(b*b-4*a*c))/2*a);

writeln('El resultado 1 es: ',H);

writeln('El resultado 2 es: ',H2);

readkey;

end.

No hay comentarios


Nombre

Correo (no se visualiza en la web)

Valoración

Comentarios...

CerrarCerrar

Es necesario revisar y aceptar las políticas de privacidad

Acepto las políticas de privacidad

http://lwp-l.com/s4808

Conversion de ATM

Contador de mensajes de Whatsapp