INSTITUTO TECNOLÓGICO SUPERIOR DE
LIBRES
MATERIA: FUNDAMENTOS programación
DOCENTE: Saúl Ortiz Baeza
INGENIERA EN SISTEMAS
COMPUTACIONALES
Alumna: alma delia Guzmán López
GRADO: 1° GRUPO: “B
diagramas de flujo
Áreas de 5 polinomios
Proceso sin_titulo
Repetir
Escribir "OBTENER AREAS DE POLIGONOS";
Escribir "NOMBRE DE POLIGONO";
Escribir " 1.- TRIANGULO";
Escribir "2.- RECTANGULO";
Escribir "3.- CIRCULO";
Escribir "4.- ROMBO";
Escribir "5.- CUADRADO";
Leer opcion
Segun opcion Hacer
1:
Escribir "triangulo"
Escribir "deme la base";
Leer b;
Escribir "DAME LA ALTURA";
Leer h;
AREA<-(b*h)/2;
Escribir AREA;
2:
Escribir " rectangulo";
Escribir "DAME LA BASE";
Leer b;
Escribir "DAME LA ALTURA";
Leer h;
B<-b*h;
Escribir B;
3:
Escribir "are de circulo";
Escribir "DAME EL RADIO";
Leer r;
Pi<-3.1416;
c<-Pi(r*r);
Escribir c;
4:
Escribir "area de rombo";
Escribir "dame la diagonal mayor";
Leer D;
Escribir "dame la diagonal menor";
X<-(D*d)/2;
Escribir x;
5:
Escribir "area de un cuadrado";
Escribir "dame un lado";
Leer L;
AREA<-L*2;
Escribir AREA;
De Otro Modo:
Escribir "POLIGOONO INCORECTO";
FinSegun
Hasta Que OPCION =6
FinProceso
Elegir el mes del año
Proceso sin_titulo
Escribir "Esfribe el numero del mes que deceas";
Leer mes;
Segun mes Hacer
1:
Escribir "enero";
2:
Escribir "febrero";
3:
Escribir "marzo";
4:
Escribir "abril";
5:
Escribir "mayo";
6:
Escribir "junio";
7:
Escribir "julio";
8:
Escribir "agosto";
9:
Escribir "septiembre";
10:
Escribir "octubre";
11:
Escribir "noviembre";
12:
Escribir "diciembre";
De Otro Modo:
Escribir "El mes no existe";
FinSegun
FinProceso
Escribir mi nombre
Proceso sin_titulo
Escribir "Escribe tu nombre";
Leer nombre;
Si nombre="almita" Entonces
Escribir "Hola mocosa";
Sino
Escribir "esnombres de extraterrestre";
FinSi
FinProceso
Mayor de edadProceso sin_titulo
Escribir "cuantos años tienes";
Leer x;
Si (x>=18) Entonces
Escribir "ya puedes votar";
Sino
Escribir "esperate hasta cumplir tu 18 para poder votar";
FinSi
FinProceso
El nombreEscribir "escribe tu nombre";
Leer el nombre;
x<-1;
Mientras x<=1000 Hacer
Escribir x,".-",nombre ;
x<-x+1;
FinMientras
FinProceso
OperacionesEscribir "primer numero";
Leer a;
Escribir "segundo numero";
Leer b;
Escribir "1:suma";
Escribir "2:resta";
Escribir "3:divide";
Escribir "4: multiplica";
Escribir "pulsa la tecla para la accion que quieres hacer";
Leer n;
Segun n Hacer
1:
x<-a+b;
2:
x<-a-b;
3:
x<-a/b;
4:
x<-a * b;
De Otro Modo:
Escribir "esta cuenta aqui no esta";
FinSegun
Escribir "el resultado es";
Escribir x;
FinProceso
Elegir los númerosEscribir "Teclea un numero menor a tres";
Leer numero;
Segun numero Hacer
1:
Escribir "Elegiste la opcion uno";
2:
Escribir "Elegiste la iopcion dos";
3:
Escribir "Elegiste la opcion tres";
De Otro Modo:
Escribir "La opcion es invalida";
FinSegun
FinProceso
Tablas de multiplicar
Proceso sin_titulo
Escribir "las tablas de multiplicar";
Leer numero;
cont<-1;
Mientras cont<=10 Hacer
res<-numero*cont;
Escribir numero,"*",cont,"=",res;
cont<-cont+1;
FinMientras
FinProceso
Del 1 hasta el 50Proceso sin_titulo
resultado<-0;
Para i<-1 Hasta 50 Con Paso 1 Hacer
Escribir "Intriduce el valor numero",i;
Leer valor;
resultado<-resultado+valor;
FinPara
Escribir resultado;
FinProceso
Top Related