Código de Pascal/Turbo Pascal - Programa para resolver ecuaciones de segundo grado

Imágen de perfil
Val: 27
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Programa para resolver ecuaciones de segundo gradográfica de visualizaciones


Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 14 de Marzo del 2019 por Melanie
2.052 visualizaciones desde el 14 de Marzo del 2019
Este programa es para resolver ecuaciones de segundo grado en pascal

1.0
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 14 de Marzo del 2019gráfica de visualizaciones de la versión: 1.0
2.053 visualizaciones desde el 14 de Marzo del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
PROGRAM ECUACION_DE_SEGUNDO_GRADO;
USES CRT;
VAR
a,b,c: Integer;
X1,X2:REAL;
begin
ClrScr;
Textcolor (13);
WRITELN (' ');
WRITELN('ESTE PROGRAMA CALCULA LAS RAICES DE LA FORMULA GENERAL PARA EC. DE 2DO GRADO');
WRITELN;
WRITELN('aX^2 + bX + c');
WRITELN('PROPORCIONE LOS DATOS NECESARIOS');
WRITELN;
Textcolor(11);
WRITELN('CUAL SERA EL VALOR DE a= ');READ(a);
WRITELN;
WRITELN('CUAL SERA EL VALOR DE b= ');READ(b);
WRITELN;
WRITELN('CUAL SERA EL VALOR DE C= ');READ(c);
X1:=(-b + (SQRT(b))/(2*a));
X2:=(-b - (SQRT(b))/(2*a));
Textcolor(47);
WRITELN('LA RAIZ X1 ES IGUAL A = ',X1:2:3);
READLN (X1);
WRITELN('LA RAIZ X2 ES IGUAL A = ',X2:2:3);
READLN(X2);
END.



Comentarios sobre la versión: 1.0 (1)

Hace 8h
estrellaestrellaestrellaestrellaestrella
En el cálculo de la raíz cuadrada no solo se calcula b , además de que esta se eleva al cuadrado se acampaña de -4ac. De todas manera comparto un código.

Uses crt;
var a,b,c,d,e,f,g : real;
begin
Clrscr;
writeln('Calculo de raices cuadradas');
writeln('forma aX^2 + bx +c = 0');
writeln('escribe a'); read(a);
writeln('escribe b'); read(b);
writeln('escribe c'); read(c);
d:= b*b - 4*a*c;
if d >= 0 then
begin
e:= (-b + sqrt(d))/(2*a);
f:= (-b - sqrt(d))/(2*a);
writeln;
writeln('resultado #1: ',e:2:2);
writeln('resultado #2: ',f:2:2);
writeln;
end
else
begin
e:= -b/(2*a);
f:= sqrt(-d)/(2*a);
writeln('caso de raices imaginarias');
writeln;
writeln('resultado #1: ',e:2:2,' + ', f:2:2,'i');
writeln('resultado #2: ',e:2:2,' - ', f:2:2,'i');
writeln;
end;
writeln('presione cualquier tecla para salir');
readln(g);
end.
Responder

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5194