Algoritmos Por Revisar

ALGORITMOS SECUENCIALES  
 
Algo S1.1;  
Inicio  
Carácter=x  
Escriba("digite carácter");  
Lea (x);  
Escriba ("el carácter es:",x);  
Final.  
 
Algo S2.1;  
Inicio  
Real=num  
Escriba ("digite numero");  
Lea(num);  
Escriba ("el numero es",num);  
final  
 
Algo S2.2.;  
Inicio  
Real= num,dob;  
Escriba ("digite numero");  
Lea (num);  
Dob= num * num;  Escriba ("el doble del numero es=",dob);  
Final  
 
 
 
Algo S2.3.  
Inicio  
Real= num,cub;  
Escriba("digite numero")  
Lea(num);  
Cub= num * num * num;  
Escriba("el cubo del numero es=",cub);  
final  
 
 
 
Algo S2.4.  
Inicio  
Real= num,dob,cua,sum;  
Escriba("digite numero")  
Lea(num);  
Dob= num + num;  
1 

Cua= num * num;  
Sum= dob + cua;  
Escriba("la suma de su doble mas su cuadrado es",sum);  
final  
 
Algo S2.5.  Inicio  
Real= num, racua;  
Escriba("digite numero")  
Lea(num);  
Racua= sqrt(num);  
Escriba ("la raiz cuadrada es=", racua);  
final  
 
 
AlgoS3.1.  
Inicio  
Real=a,b,doba,cuab,sum;  
Escriba("digite 1er numero");  
Lea(a);  
Escriba("digite 2do numero");  
Lea(b);  
Doba= a + a;  
Cuab= b * b;  
Sum= doba + cuab;  
Escriba("la suma del doble del 1ro mas el . cuadrado del 2do es=", sum);  final  
 
 
Algo S3.2.  
Inicio  
Real=x,y,sum;  
Escriba("digite 1er numero");  
Lea(X);  
Escriba("digite 2do numero");  
Lea(y);  
Sum=x + y;  
Escriba("la suma de los dos numeros es=";sum);  
final  
 
 
 
 
AlgoS4.1.  
Inicio  
Real=x,y,z,sum;  
2 

Escriba("digite primer numero");  
Lea(x);  
Escriba("digite 2do numero");  
Lea(y);  
Escriba("digite 3cer numero")  
Lea(z);  
Sum=x + y + z;  Escriba("la suma de los tres numeros es=",sum);  
final  
 
AlgoS4.2  
Inicio  
Real=x,y,z,sum,prom;  
Escriba("digite 1er numero");  
Lea(X);  
Escriba("digite 2do numero");  
Lea(Y);  
Escriba("digite 3cer numero");  
Lea(z);  
Sum=x + y + z;  
Prom=sum/3  
Escriba("el promedio de los 3 num es=",prom);  
Final  
 
 
 
Algo S4.3.  
Inicio  
Real=x,y,z,r  
Escriba("digite 1er numero");  Lea(X);  
Escriba("digite 2do numero");  
Lea(Y);  
Escriba("digite 3cer numero");  
Lea(z);  
R= x*100+Z*10+Z  
Escriba("el numero resultante es=",r);  
Final  
 
 
HALLAR EL AREA DE:  
 
Algo S5.1.TRIANGULO  
INICIO  
REAL= B,H,ATRI;  
Escriba("digite base");  
3 

Lea(B);  
Escriba(“;digite altura”;);  
Lea(H);  
Atri= b*h/2;  
Escriba("el area del triangulo es=",atri);  
Final  
 
 
 Algo S5.2;rectángulo  
Inicio  
Real= b,h, arec;  
Escriba("digite base");  
Lea(b);  
Escriba("digite altura");  
Lea(h);  
Arec= b * h  
Escriba("el area del rectangulo es=",arec);  
Final  
 
 
 
Algo S5.3;circunferencia  
Inicio  
Cons pi= 3.1415;  
Real= r, asir,pi;  
escriba ("digite radio:");  
Lea (r);  
Asir= pi*r*r  
Escriba("el area de la cincunferencia es=",asir);  
Final  
 
 
 
 
 
 
 
 Algo S5.4;trapecio  
Inicio  
Real= bmy,bmn,h,atrap;  
Escriba("digite base mayor");  
Lea(bmy);  
Escriba("digite base menor");  
Lea(bmn);  
4 

Escriba("digite altura");  
Lea(h);  
Atrap= (bmy + bmn)*h/2  
Escriba("el area del trapecio es=",atrap);  
Final  
 
Algo S5.5.;  
Inicio  
Real= dmy,dmn,arom;  
Escriba("digite diagonal mayor")  
Lea(dmy);  
Escriba("digite diagonal menor")  
Lea(dmn);  Arom= dmn*dmn/2  
Escriba("el area del rombo es=",arom);  
Final  
 
 
Algo S5.6.;  
Inicio  
Real b,h,acua;  
escriba ("Digite base:");  
Lea (b);  
escriba ("Digite altura:");  
Lea (h);  
acua=b*h;  
escriba ("el area del cuadrado es=",acua);  
Final  
 
HALLAR EL VOLUMEN  
 
Algo S6.1;CUBO  
Inicio  
Real=b,p,h,vcv;  
Escriba ("Digite base");  
Lea (b);  
Escriba("digite altura");  
Lea(h);  Escriba("digite profundidad")  
Lea(p);  
Vcv= b * p * h;  
Escriba("el volumen del cubo es",vcv);  
Final  
 
Algo S6.2;  
Inicio  
5 

Const pi= 3.1415;  
Real= pi,r,vest;  
escriba("Digite radio");  
Lea (r);  
Vesf=4/3*pi*r*r*r;  
Escriba("el volumen de la esfera es=",vesf);  
Final  
 
 
Algo S6.3;  
Inicio  
Cons pi= 3.1415  
Real= r,h,pi,vcil;  
escriba ("Digite radio");  ...