[1 DE NOVIEMBRE DEL 2023]
ALGORITMOS
CITLALLY ARCE ARCE
3101
APOYO PROFECIONAL
Algoritmo sin_titulo 1:
Imprimir "Abrir panel de opciones con p" Definir factorial Como Real
leer p factorial <-0;
Imprimir "Elije una opción" Escribir Sin Saltar “ingresa el valor de n:";
Imprimir "1.-Factorial x numero" leer n;
Imprimir "2.-Serie Fibonacci" para i<-1 Hasta n Con Paso 1 Hacer
Imprimir "3.- x^2=x^2+m^2" Escribir "proceso", i;
Imprimir "4.- x tabla de multiplicar" si i=1 Entonces
Imprimir "5.- pirámide de figura" factorial<-1
Imprimir "6.- cuadrado figura" SiNo
Imprimir "7.- triangulo figura" factorial<-factorial*i;
Leer z FinSi
según z Hacer Escribir "";
FinPara
Escribir "valor de factorial:", factorial;
2: 3:
Escribir "ingresa n:" Definir x, m, z, c Como Entero;
leer n Escribir "según la formula z^2=x^2*m^2";
a<-0 Escribir "dame el valor de z";
b<-1 Leer z;
para i<-1 Hasta n Hacer Escribir "las combinaciones posibles son:";
Escribir a c=1;
c<-a+b Mientras c<=z Hacer
a<-b x=1;
b<-c Mientras x<=z Hacer
FinPara m=1;
Mientras m<=z Hacer
si c^2= (x^2 +m^2) Entonces
Escribir c,"= “, x,"+”, m;
FinSi
m=m+1
FinMientras
x=x+1
FinMientras
c=c+1
FinMientras
4: 5:
Definir n Como Entero definir nf, k, j Como Entero;
Escribir "ingrese el numero de la tabla de multiplicar" Definir lineah, lineav como texto;
leer n Escribir Sin Saltar “ingrese numero de filas";
Para x<-1 Hasta 10 Con Paso 1 Hacer leer nf;
Escribir x "x" n "=" x*n Escribir "*";
FinPara para k=2 Hasta nf Con Paso 1 Hacer
Escribir Sin Saltar"*";
Para j=1 Hasta k-1 Con Paso 1 Hacer
Escribir Sin Saltar" ";
FinPara
Escribir "*";
FinPara
lineah="";
//línea base
Para k=1 Hasta nf+2 Con Paso 1 Hacer
lineah=lineah+"*";
FinPara
Escribir lineah;
6: 7:
Definir a, b, n Como Entero definir nf, R, J, ne, ne2, fila Como Entero
Escribir "escribe un numero" Definir lineah, lineav como texto;
Leer n Escribir Sin Saltar “ingrese numero de filas";
Para a=1 hasta n Hacer leer nf;
Para b=1 hasta n Hacer ne=7;
Si a>1 y a<n y b>1 y b<n Entonces ne2=2
Escribir " " Sin Saltar Para R=1 Hasta ne+2 Con Paso 1 Hacer
SiNo Escribir Sin Saltar " ";
Escribir "* " sin saltar FinPara
FinSi Escribir "*";
FinPara para fila=1 Hasta nf Con Paso 1 Hacer
Escribir "" Escribir Sin Saltar " ";
FinPara
//ESPACIOS A LA IZQUIERDA
Para R=1 Hasta ne Con Paso 1 Hacer
Escribir Sin Saltar " ";
FinPara
Escribir Sin Saltar "*"; //ASTER IZQ
ne=ne-1;
si fila >=-1 Entonces
//ESPACIOS INTERNOS
Para R=1 Hasta ne2 Con Paso 1 Hacer
Escribir Sin Saltar " ";
FinPara
ne2=ne2+2;
Escribir "*"; //ASTER DER
fin si
FinPara
//ESPACIOS A LA IZQUIERDA
Para R=1 Hasta ne Con Paso 1 Hacer
Escribir Sin Saltar " ";
FinPara
Escribir Sin Saltar " "
Escribir Sin Saltar "*"; //ASTER IZQ
//ESPACIOS INTERNOS
Para R=1 Hasta ne2 Con Paso 1 Hacer
Escribir Sin Saltar "*";
FinPara
ne2=ne2+2;
Escribir "*"; //ASTER DER
FinSegun
Fin Algoritmo