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

<<>>
Imágen de perfil
Val: 35
Ha aumentado 1 puesto 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
567 visualizaciones desde el 14 de Marzo del 2019. Una media de 63 por semana
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
568 visualizaciones desde el 14 de Marzo del 2019. Una media de 63 por semana
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