soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO...
Transcript of soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO...
![Page 1: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/1.jpg)
INSTITUTO TECNOLÓGICO SUPERIOR DE LIBRES
ORGANISMO PÚBLICO DESCENTRALIZADO
MATERIA: FUNDAMENTOS DE PROGRAMACION
DOCENTE: LIC: SAUL ORTIZ BAEZA
ALUMNA: ALMA DELIA GUZMÁN LÓPEZ
PRIMER SEMESTRE GRUPO “B”
TEMA: ENSAYO DE LAS COMFERENCIAS
FECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011
![Page 2: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/2.jpg)
NUMERO MAYORProceso MAYOR
Escribir "elejir dos numeros";
Leer A,B;
Si A>B Entonces
A<-A;
Escribir "el mayor es:";
Escribir A;
Sino
B<-B;
Escribir "el mayor es:";
Escribir B;
FinSi
FinProceso
![Page 3: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/3.jpg)
NUMERO PAR
Proceso sin_titulo
Escribir " teclear un numero"
Leer N;
R<-N%2;
Si R=0 Entonces
Escribir "ES NUMERO PAR";
Sino
Escribir "ES NUMERO IMPAR";
FinSi
FinProceso
![Page 4: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/4.jpg)
FACTORIALProceso FACTORIAL
Escribir TECLEAR UN NUMERO;
leer A
X<-1
para x<-1 hasta A Hacer
X<-f*x
FinPara
Escribir "A!=", X ;
FinProceso
![Page 5: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/5.jpg)
AREA DE UN CÍRCULO
Proceso sin_titulo
Leer r;
PI<-3.1416;
R<-PI*(r^2);
Escribir R;
FinProceso
![Page 6: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/6.jpg)
AREA DE UN TRIANGULO
Proceso sin_titulo
Leer B,H;
R<-(B*H)/2;
Escribir R;
FinProceso
![Page 7: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/7.jpg)
SUMA
Proceso sin_
Escribir "TECLA TRES NUMEROS";
Leer A,B,C;
R<-A+B+C;
Escribir "EL RESULTADO ES";
Escribir R;
FinProceso
![Page 8: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/8.jpg)
MULTIPLICACION
Proceso sin_titulo
Escribir "TECLEAR CINCON NUMEROS";
Leer A,B,C,D,E;
R<-A*B*C*D*E;
Escribir "EL RESULTADO ES";
Escribir R;
FinProceso
NUMERO PRIMO
Proceso sin_titulo
Escribir "TECLEAR UN NUMERO";
Leer B;
![Page 9: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/9.jpg)
Si B=1 Entonces
Escribir "ES UN NUMERO PRIMO";
Sino
a<-0;
Para i<-1 Hasta x Hacer
si x mod i=0 Entonces
a<-a+1;
FinSi
FinPara
si a=2 entonces
Escribir "ES UN NUMERO PRIMO";
Sino
Escribir "NO ES UN NUMERO PRIMO";
FinSi
FinProceso
![Page 10: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/10.jpg)
PERIMETRO DE UN CUADRADO
Proceso sin_titulo
Escribir "TECLEAR UN NUMERO";
Leer L;
R<-L+L+L+L;
Escribir R;
FinProceso
SERIA FIBONACI
Proceso sin_titulo
leer X
escribir " TECLEAR NUMEROS ANTECESORES Y SUCESOR DE ,X, EN LA SERIE FIBONACCI";
A1<-1
![Page 11: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/11.jpg)
A2<-1
escribir 1
para F<-1 hasta X Hacer
A1<-A1+A2
A2<-A1-A2
escribir A2
FinPara
Escribir "SI ,X, NO APARECE EN LA SERIE NO ES UN NUMERO FIBONACCI";
Escribir "SI ,X, SI APARECE EN LA SERIE ES UN NUMERO FIBONACCI";
FinProceso
![Page 12: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/12.jpg)
COMPARACION DE LOS 5 NUMEROSProceso sin_titulo
Leer A,B,C,D,E;
Si A<B Entonces
Si A<C Entonces
Si A<D Entonces
Si A<E Entonces
Escribir A;
Sino
Escribir E;
FinSi
Sino
Si D<E Entonces
Escribir D;
Sino
Escribir E;
FinSi
FinSi
Sino
Si C<D Entonces
Si C<E Entonces
Escribir C;
Sino
Escribir E;
FinSi
Sino
Si D<E Entonces
![Page 13: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/13.jpg)
Escribir D;
Sino
Escribir E;
FinSi
FinSi
FinSi
Sino
Si B<C Entonces
Si B<D Entonces
Si B<E Entonces
Escribir B;
Sino
Escribir E;
FinSi
Sino
Si D<E Entonces
Escribir D;
Sino
Escribir E;
FinSi
FinSi
Sino
Si C<D Entonces
Si C<E Entonces
Escribir C;
Sino
Escribir E;
![Page 14: soul1black.files.wordpress.com · Web viewFECHA DE ENTREGA: MIERCOLES 10 DE OCTUBRE DEL 2011 NUMERO MAYOR Proceso MAYOR Escribir "elejir dos numeros"; Leer A,B; Si A>B Entonces](https://reader035.fdocumento.com/reader035/viewer/2022071301/6099b6b2139a281fef30b608/html5/thumbnails/14.jpg)
FinSi
Sino
Si D<E Entonces
Escribir D;
Sino
Escribir E;
FinSi
FinSi
FinSi
FinSi
FinProceso