ESTRUCTURA DE REPETICIÓN INFINITA MIENTRAS Y HACER-MIENTRAS
Proceso CALCULO_DE
definir P1,P2,D,L como entero;
definir Q,R,PI como real ;
Escribir "ingrese el valor de P1";
leer P1;
Escribir "ingrese el valor de P2";
leer P2;
Escribir "ingrese el valor de R";
leer R;
Escribir "ingrese el valor de L";
leer L ;
Escribir "ingrese el valor de D";
leer D;
PI=3.14;
inicio<-2;
final<-10;
R<-inicio;
Mientras (R<=final) Hacer
Q<-(P2-P1)*R*R*R*R/(8/PI)*(D*L);
R<-R+0.5;
Escribir "el valor de Q es :", Q;
FinMientras
FinProceso
Proceso sin_titulo
definir Mm,m,h como entero;
definir t,g como real;
Escribir "ingrese el valor de Mm";
leer Mm;
Escribir "ingrese el valor masa";
leer m;
Escribir "ingrese el valor de altura";
leer h;
pi=3.14
g=9.81;
inicial<-11;
final<-100;
m<-inicial;
Repetir
t<-2*pi*rc(Mm/m*9.8*h);
Escribir "el valor de t es :",t;
m<-m+20;
Hasta Que (m>final);
FinProceso
Proceso calculo_de_frecuencia
definir F,PI,K,M como real ;
escribir "ingrese el valor de M";
leer M;
K=0.175
PI=3.14;
inicio<-10;
final<-20;
M<-inicio;
Mientras (M<=final) Hacer
F<-(1/PI)*RC(K*M);
M<-M+1.5;
Escribir "el valor de F:", F;
FinMientras
FinProceso
Proceso CALCULO_DE_TRABAJO_CALORIFICO
definir W,M,Po,V1,V2 Como entero ;
Escribir "ingrese el valor de Po";
leer Po;
Escribir "ingrese el valor de M";
leer M;
Escribir "ingrese el valor de V1";
leer V1;
Escribir "ingrese el valor de V2";
leer V2;
inicial<-100;
final<-200;
Po<-inicio;
Mientras (Po<=final) Hacer
W<-M*Po*(V2-V1);
Po<-Po+10;
Escribir "el valor de W es :",W;
FinMientras
FinProceso
Proceso sin_titulo
Definir h,v como real;
g=9.81;
inicial<-1;
final<-30
h<-inicial;
Repetir
v<-rc(2*9.81*h);
Escribir "el valor de v es :",v;
h<-h+1.5;
Hasta Que (h>final);
FinProceso