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

<<>>
Imágen de perfil
Val: 32
Ha aumentado su posición en 130 puestos 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

Publicado el 14 de Marzo del 2019 por melanie
251 visualizaciones desde el 14 de Marzo del 2019
Este programa es para resolver ecuaciones de segundo grado en pascal

1.0

Publicado el 14 de Marzo del 2019gráfica de visualizaciones de la versión: 1.0
251 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 (0)


No hay comentarios
 

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
Revisar política de publicidad