Algoritmo y Estructura de
Datos
>Romero Siguas Martín Adan
>Segundo Ciclo Ingeniería Electrónica
>IIEE3
Introducción:
En muchas ocasiones se conoce de antemano el número de veces que se desean ejecutar las acciones del cuerpo del bucle. Cuando el número de repeticiones es fijo, lo más cómodo es usar un bucle “para”, aunque sería perfectamente posible sustituirlo por uno “mientras”.
La estructura “para” repite las acciones del bucle un número prefijado de veces e incrementa automáticamente una variable contador en cada repetición.
​
Su forma general en PSeInt es:
Para variable_numerica<-valor_inicial Hasta valor_final Con Paso paso Hacer
secuencia_de_acciones
Fin Para
​
Ejemplo en PSeInt:
Proceso Estructuras_Repetitivas_Finitas
Escribir " 1) Opción 1";
Escribir " 2) Opción 2";
Escribir " 3) Opción 3";
Escribir " 4) Opción 4";
Definir opcion como real;
Escribir "Ingrese una opción: ";
Leer opcion;
Segun opcion Hacer
1:
Definir z,D,dd,k como real;
Definir inicio1,final1 como real;
k=0.0175
inicio1=110;
final1=500;
D=inicio;
Escribir "ingrese valor para dd";
Leer dd;
Para D<-inicio1 Hasta final1 Con Paso 15 Hacer
z=138*ln(D/dd)*(1/rc(k));
escribir "la respuesta es ",z;
Fin Para
2:
definir pzt,a,v,t,k,z como real;
definir inicio3, final3 como real;
definir inicio2,final2 como real;
inicio2=50;
final2=100;
z=inicio;
incial3=1
final3=10
escribir "ingrese valor para w";
leer w;
escribir "ingrese valor para wo";
leer wo;
Para z<-inicio2 Hasta final2 Con Paso 5 Hacer
escribir "para una impedancia de Z =",z;
Para t<-incial3 Hasta final3 Con Paso 1.5 Hacer
pzt=a*cos(2*pi*v*t+k*z);
Escribir "el ultrasonido P(z,t)=",Pzt,"para Z= ",Z, "y tiempo =" , t;
Fin Para
Fin Para
3:
definir r,z1,z2 como real;
definir inicio4,final4 como real;
escribir "ingrese valor para z1";
leer z1;
inicio4=7;
final4=26;
z2=inicio4;
Para z2<-inicio4 Hasta final4 Con Paso 0.5 Hacer
r=(z2-z1)/(z2+z1);
escribir "el resultado es ",r;
Fin Para
4:
definir p,v,n,r,t como real;
definir inicio5,final5 como real;
inicio5=50;
final5=900;
t=inicio;
escribir "ingrese valor para n";
leer n;
escribir "ingrese valor para r";
leer r;
escribir "ingrese valor para v";
leer v;
Para t<-inicio5 Hasta final5 Con Paso 150 Hacer
p=(n*r*t)/v;
escribir "el resultado es ",p;
Fin Para
De Otro Modo:
escribir "es imaginario"
Fin Segun
FinProceso