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.447 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.448 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

http://lwp-l.com/s4808

Conversion de ATM

Contador de mensajes de Whatsapp