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

Imágen de perfil
Val: 35
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

Publicado el 14 de Marzo del 2019 por melanie
1.166 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
1.167 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