Tema01_ejercicios

11Desarrollo de Aplicaciones Informáticas

ALGORITMOS

SECUENCIALES:

Algo s1.1;InicioCarácter a;Escriba (“digite carácter”);Lea a;Escriba (“el carácter es”, a);Final

Algo s2.1;InicioReal num;Escriba (“digite un 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 a, Cub;Escriba (“digite un numero”);Lea a;Cub= a*a*a;Escriba (“el cubo es”, Cub);Final

Algo s2.4;InicioReal a, Dob, Cua, Sum;Escriba (“digite un numero”);Lea a;Dob= a+a;Cua= a*aSum= Dob+Cua;Escriba (“la suma es”, Sum);Final

Algo s2.5;InicioReal num, Rc;Escriba (“digite numero”);Lea num;Rc= sqrt (num);Escriba (“la raíz cuadrada es”, Rc);Final

Algo s3.1;InicioReal n1, n2, Dob, Cua, Sum;Escriba (“digite dos números”);


Lea n1;Lea n2;Dob= n1+n1;Cua= n2*n2;Sum= Dob + Cua;Escriba (“la suma es”, Sum);Final

Algo s3.2;Inicio Real n1, n2, Sum;Escriba (“digite dos números”); Lea n1;Lea n2;Sum= n1 + n2;Escriba (“la suma es”, Sum);Final

Algo s4.1;Inicio Real n1, n2, n3, Sum;Escriba (“digite tres números”);Lea n1;Lea n2;Lea n3;Sum= n1+n2+n3;Escriba (“la suma es”, Sum);Final

Algo s4.2;Inicio Real n1, n2, n3, Prom;Escriba (“digite tres números”);Lea n1;Lea n2;Lea n3;Prom= ( n1+n2+n3)/3;Escriba (“el promedio es”, Prom);Final

Algo s4.3;Inicio Real a, b, c, X;Escriba (“digite tres números”);Lea a;Lea b;Lea c;X= (a*100)+ (b*10)+(c*1);Escriba (“la variable es”, X);Final

Algo s5.1;Inicio Real A, b, h;Escriba (“digite la base”);Lea b;Escriba (“digite la altura”);Lea h;A= (b*h)/2;Escriba (“el área es”, A);Final

Algo s5.2;Inicio Real A, b, h;Escriba (“digite la base del rectángulo”);


Lea b;Escriba (“digite la altura del rectángulo”);Lea h;A= b*h;Escriba (“el área del rectángulo es”, A);Final

Algo s5.3;Inicio Real r, A;Pi= 3.141516;Escriba (“digite el radio”);Lea r;A= Pi*(r*r);Escriba (“el área del circulo es”, A);Final

Algo s5.4;Inicio Real b1, b2, h, A;Escriba (“digite las bases”);Lea b1;Lea b2;Escriba (“digite la altura”);Lea h;A= ((b1+b2)/2)*h;Escriba (“el área del trapecio es”, A);Final

Algo s5.5;Inicio Real d1, d2, A;Escriba (“digite las diagonales”);Lea d1;Lea d2;A= (d1*d2)/2;Escriba (“el área del rombo es”, A);Final

Algo s5.6;Inicio Real A, l;Escriba (“digite lado del cuadrado”);Lea l;A= l*l;Escriba (“el area es”, A);Final

Algo s6.1;Inicio Real a, Vol;Escriba (“digite arista”);Lea a;Vol= a*a*a;Escriba (“el volumen del cubo es”, Vol);Final

Algo s6.2;Inicio Real Vol, r;Pi= 3.141516;Escriba (“digite radio’);Lea r;Vol= (4*(Pi)*(r*r*r))/3;Escriba (“el volumen de la esfera es”, Vol);Final


Algo s6.3;Inicio Real r, h, Vol;Pi= 3.141516;Escriba (“digite radio”);Lea r;Escriba (“digite altura”);Lea h;Vol= (Pi*(r*r)*h);Escriba (“el volumen del cilindro es”, Vol);Final

Algo s6.4;InicioReal r, h, Vol;Pi= 3.141516;Escriba (“digite radio”);Lea r;Escriba (“digite altura”);Lea h;Vol= (Pi*(r*r)*h)/3;Escriba (“el volumen del cono es”, Vol);Final Algo s7.1;Inicio Real c, F;Escriba (“digite grados Celsius”);Lea c;F= 1.8*(c+32);Escriba (“su equivalencia en grados Fahrenheit el”, F);Final

Algo s7.2;Inicio Real c, K;Escriba (“digite Celsius”);Lea c;K= C+273;Escriba (“su equivalencia en kelvin es”, K);Final

Algo s7.3;Inicio Real f, C;Escriba (“digite Fahrenheit”);Lea F;C= 0.6*(f-32);Escriba (“su equivalencia en Celsius es”, C);Final

Algo s7.4;InicioReal f, C, K;Escriba (“digite Fahrenheit”);Lea f;C= 0.6*(f-32);K= c+273;Escriba (“su equivalencia en kelvin es”, K);Final

Algo s7.5;Inicio Real k, C, F;Escriba (“digite kelvin”);Lea k;C= k-273;


F= (1.8*C)+32;Escriba (“su equivalencia es”, F);Final

Algo s7.6;InicioReal k, C;Escriba (“digite kelvin”);Lea k;C= k-273;Escriba (“su equivalencia en Celsius es”, C);Final

Algo s7.7;Inicio Real Pc, Dol, Bol, Sol, Pes, Ff;Escriba (“digite pesos colombianos”);Lea Pc;Dol= Pc/3000;Bol= Pc/2;Sol= Pc/500;Pes= Pc/10;Ff=Pc/500;Escriba (“su equivalente de pesos colombianos es: en dolares”, Dol,”en bolivares”, Bol,”en soles”, Sol,”en pesetas”, Pes,”en Francos franceses”, Ff);Final

Algo s7.8;Inicio Real Dol, Pc, Bol, Sol, Pes, Ff;Escriba (“digite dolares”);Lea Dol;Pc= Dol/3000;Bol= Dol/2;Sol= Dol/500;Pes= Dol/10;Ff= Dol/500;Escriba (“su equivalencia es: en pesos”, Pc,”en bolivares”,Bol,”en Soles”,Sol,”en pesetas”,Pes,”en francos franceses”,Ff);Final

Algo s7.9;InicioReal Bol, Pc, Dol, Sol, Pes, Ff;Escriba (“digite bolivares”);Lea Bol;Pc= Bol*2;Dol= (Bol*2)/3000;Sol= (Bol*2)/500;Pes= (Bol*2)/10;Ff= (Bol*2)/500;Escriba (“su equivalencia es: en pesos”,Pc,”en dolares”,Dol,”en soles”,Sol,”en pesetas”,Pes,”en francos franceses”,Ff);Final

Algo s7.10;InicioReal S, D, P, B, Pes, Ff;Escriba (“digite soles”);Lea S;D= ((S*500)/3000);P= (S*500);B= ((S*500)/2);Pes= ((S*500)/10));Ff= ((S*500)/500);Escriba (“su equivalencia es: en dólares”, D,”en pesos”,P,”en


Bolívares”, B,”en pesetas”, Pes,”en francos”, Ff);FinalAlgo s7.11;InicioReal Pes, D, P, S, Ff;Escriba (“digite pesetas”);Lea Pes;D= ((Pes*10)/3000);P= (Pes*10);B= ((Pes*10)/2);S= ((Pes*10)/500);Ff= ((Pes*10)/500);Escriba (“su equivalencia es: en dólares”, D, “en pesos”, P, “en Bolívares”, B, “en soles”, S, “en francos”, Ff,);Final

Algo s7.12;InicioReal Ff, D, P, B, S, Pes;Escriba (“digite francos”);Lea Ff;D= ((Ff*500)/3000);P= (Ff*500);B= ((Ff*500)/2);S= ((Ff*500)/500);Pes= ((Ff*500)/10);Escriba (“su equivalencia es: en dólares”, D, “en pesos”, P, “en Bolívares”, B, “en soles”, S, “en pesetas”, Pes);Final

Algo s8.1;Inicio Real x1, x2, y1, y2, P;Escriba (“digite ordenadas”);Lea x1;Lea x2;Escriba (“digite abcisas”);Lea y1;Lea y2;P= sqrt (((x2-x1)*(x2-x1))+ ((y2-y1)*(y2-y1)));Escriba (“la distancia es”, P);Final

Algo s8.2;Inicio Real l1, l2, l3, Sp, Atri;Escriba (“digite primer lado “);Lea l1;Escriba (“digite segundo lado”);Lea l2;Escriba (“digite tercer lado”);Lea l3;Sp=(l1+l2+l3)/2;Atri= sqrt (Sp*(Sp-l1)*(Sp-l2)*(Sp-l3));Escriba (“el area del triangulo es”, Atri);Final

Algo s8.3;InicioReal b, a, c, x1, x2, R;Escriba (“el valor de b”);Lea b;


Escriba (“el valor de a”);Lea a;Escriba (“el valor de c”);Lea c;R= sqrt ((b*b)-(4*a*c));X1= ((-b)+R)/(2*a));X2= ((-b)-R)/(2*a));Escriba (“las soluciones de la ecuación son”, X1,X2);Final

Algo s8.4;InicioReal x1, x2, y1, y2, M;Escriba (“digite ordenadas”);Lea y1;Lea y2;Escriba (“digite abcisas”);Lea x1;Lea x2;M= ((y2-y1)/(x2-x1));Escriba (“la ecuación es y-“,y,”=”,M,”(x-“,x1);Final

Algo ds1.1;InicioReal num;Escriba (“digite un numero”);Lea num;Si (num>0) entoncesEscriba (num, “es positivo”);FsiFinal

Algo ds1.2;InicioReal num;Escriba (“digite un numero”);Lea num;Si (num>10) entoncesEscriba (num, “es mayor a 10”);FsiFinal

Algo ds1.3;InicioReal num, Cua;Escriba (“digite un numero”);Lea num;Cua= (num*num);Si (Cua>1000) entoncesEscriba (Cua, “es mayor a 1000”);FsiFinal

Algo ds1.4;InicioReal n, Va;Escriba (“digite numero”);Lea n;Si (n>0) entoncesVa= n;SinoVa= n*(-1);Escriba (“el valor absoluto de”, n, “es”, Va);FsiFinal


Algo ds1.5;InicioReal num;Escriba (“digite un numero”);Lea num;Si (n<0) entonces Escriba (num, “es negativo”);FsiFinal

Algo ds1.6;InicioReal num, Cua;Escriba (“digite un numero”);Lea num;Cua= num*num;Si (Cua>500) entonces Escriba (Cua, “es mayor a 500);SinoEscriba (Cua, “es menor a 500);FsiFinal

Algo ds2.1;InicioEntero n;Escriba (“digite numero”);Si (n>0) &&(n<100) entoncesEscriba (“el numero esta entre cero y cien”);Fsi Final

Algo ds2.2;InicioEntero n;Escriba (“digite un numero”);Lea n;Si (n>50) entoncesEscriba (“el numero es mayor a 50”);SinoEscriba (“el numero es menor a 50”);FsiFinal

Algo ds2.3;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2=0) entonces Escriba (“el numero es par”);Fsi FinalAlgo ds2.4;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2!=0) entonces Escriba (“el numero es impar”);FsiFinal

Algo ds2.5;InicioEntero n;


Escriba (“digite numero”);Lea n;Si (n>0) entonces Escriba (“el numero es positivo”);FsiFinal

Algo ds2.6;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n<0) entonces Escriba (“el numero es negativo”);FsiFinal

Algo ds2.7;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2=0) entoncesEscriba (“el numero es par”);Sino Escriba (“el numero es impar”);FsiFinal

Algo ds2.8;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n>0) entonces Escriba (“el numero es positivo”);SinoEscriba (“el numero es negativo”);FsiFinal

Algo ds2.9;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2=0)&& (n>0) entoncesEscriba (“el numero es par positivo”);FsiFinal

Algo ds2.10;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2!=0) && (n>0) entoncesEscriba (“el numero es impar positivo”);FsiFinal

Algo ds2.11;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2=0) && (n<0) entonces

1010

Desarrollo de Aplicaciones Informáticas

Escriba (“el numero es par negativo”);FsiFinal

Algo ds2.12;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2!=0) && (n<0) entonces Escriba (“el numero es impar negativo”);FsiFinal

Algo ds2.13;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2=0) entoncesSi (n>0) entoncesEscriba (“el numero es par positivo”);SinoEscriba (“el numero es par negativo”);Fsi

SinoSi (n>0) entonces Escriba (“el numero es impar positivo”);SinoEscriba (“el numero es impar negativo”);FsiFsiFinal

Algo ds2.14;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n>50) && (n<100) entonces Si (n mod 2=0) entoncesEscriba (“el numero esta entre 50 y 100, y es par”)SinoEscriba (“el numero esta entre 50 y 100, y es impar”);FsiFsiFinal

Algo ds3.1;InicioEntero a, b;Escriba (“digite dos números”);Lea a;Lea b;Si (a>b) entonces Escriba (a, “es mayor que b”);SinoEscriba (b, “es mayor que a”);FsiFinal

Algo ds3.2;InicioEntero a, b, C, D, S;Escriba (“digite dos números”);Lea a;

1111


Lea b;Si (a>b) entoncesD= a+a;C= b*b;S= D+C;SinoD=b+b;C= a*a;S= D+C;FsiEscriba (“la suma es”, S);Final

Algo ds3.3;InicioEntero a, b;Escriba (“digite dos números”);Lea a;Lea b;Si (a>0) && (b>0) entonces Escriba (“los números son positivos”);FsiFinal

Algo ds3.4;InicioEntero a, b;Escriba (“digite dos números”);Lea a;Lea b;Si (a<0) && (b<0) entoncesEscriba (“los números son negativos”);FsiFinal

Algo ds3.5;InicioEntero a, b;Escriba (“digite dos números”);Lea a;Lea b;Si (a>0) && (b>0) entonces Si (a mod 2=0) && (b mod 2=0) entoncesFsi Escriba (“los números son positivos pares”);Final

Algo ds3.6;InicioEntero a, b;Escriba (“digite dos números”);Lea a;Lea b;Si (a>0) && (b>0) entonces Si (a mod 2!=0) (b mod 2!=0) entonces Escriba (“los números son positivos impares”);FsiFinal

Algo ds3.7;InicioEntero a, b;Escriba (“digite dos números);Lea a;Lea b;Si (a<0) && (b<0) entoncesSi (a mod 2=0) && (b mod 2=0) entonces

1212


Escriba (“los números son negativos pares”);Fsi Final

Algo ds3.8;InicioEntero a, b;Escriba (“digite dos números”);Lea a;Lea b;Si (a<0) && (b<0) entonces Si (a mod 2!=0) && (b mod 2!=0) entonces Escriba (“los números son negativos impares”);Fsi Final

Algo ds3.9;Inicio Entero x, y;Escriba (“digite dos números”);Lea x;Lea y;Si ((x>0) && (x mod 2=0)) && ((y>0) && (y mod 2=0)) entoncesEscriba (x, y, “son pares positivos”);SinoSi ((x>0) && (x mod 2=0)) && ((y<0) && (y mod 2=0)) entonces Escriba (x, “es par positivo”, y, “es par negativo”);SinoSi ((x>0) && (x mod 2=0)) && (y>0) && (y mod 2!=0)) entonces Escriba (x, “es par positivo”, y, “es impar positivo”);SinoSi ((x>0) && (x mod 2=0)) && ((y<0) && (y mod 2!=0)) entoncesEscriba (x, “es par positivo”, y, “es impar negativo”);SinoSi ((x<0) && (x mod 2=0)) && ((y >0) && (y mod 2!=0)) entEscriba (x, “es par negativo”, y, “es impar positivo”);SinoSi ((x<0) && (x mod 2=0)) && ((y<0) && (y mod 2!=0)) entEscriba (x, “es par negativo”, y, “es impar negativo”);SinoSi ((x>0) && ((x mod 2!=0)) && ((y>0) && (y mod 2=0)) entEscriba (x, “es impar positivo”, y, “es par positivo”);SinoSi ((x<0) && ((x mod 2!=0)) && ((y>0) && (y mod 2=0)) entEscriba (x, “es impar negativo”, y, “es par positivo”);SinoSi ((x>0) && (x mod 2!=0)) && ((y<0) && (y mod 2!=0)) entEscriba (x, “es impar positivo”, y, “es par negativo”);SinoSi ((x>0) && (x mod 2!=0)) && ((y>0) && (y mod 2=0))EntoncesEscriba (x, “es impar positivo”, y, “es impar positivo”);SinoSi ((x>0) && (x mod 2!=0)) && ((y>0) && (y mod 2=0))EntoncesEscriba (x, “es impar positivo”, y, “es par positivo”);SinoSi ((x<0) && (x mod 2!=0)) && ((y>0) && (y mod 2=0))EntoncesEscriba (x, “es impar negativo”, y, “es par positivo”);SinoEscriba (x, y, “son impares negativos”);FsiFsiFsiFsiFsiFsiFsiFsi

1313


FsiFsiFinal

Algo ds3.10InicioEntero a, b;Escriba (“digite dos números”);Lea a; Lea b;Si (a>100) && (b<200) entonces Si (b>100) && (a>200) entonces Escriba (“los números están en el intervalo 100 y 200”);Fsi Final

Algo ds3.11;InicioEntero m, n;Escriba (“digite dos números”);Lea m;Lea n;Si (m>50 && m<100) entoncesSi (n>50 && n<100) entoncesEscriba (“los números estad en el intervalo 50 y 100”);SinoEscriba (m, “esta en el intervalo 50 y 100”);FsiSinoSi (n>50 && n<100) entoncesEscriba (n, “esta en el intervalo 50 y 100”);Sino Escriba (“los números no están en el intervalo”);FsiFsiFinal

Algo ds4.1;InicioEntero a, b, c, Ma;Escriba (“digite tres números”);Lea a;Lea b;Lea c;Si (a>b) entoncesSi (b>c) entoncesMa= a;SinoSi (a>c ) entonces Ma= a;SinoMa= c;FsifsiSinoSi (a>c) entoncesMa= b;SinoSi (b>c) entoncesMa= b;Sino Ma=c;Fsi FsiEscriba (“el numero mayor es”, Ma);

1414


Final

Algo ds4.2;InicioEntero a, b, c, Me;Escriba (“digite tres números”);Lea a;Lea b;Lea c;Si (a>b) entoncesSi (b>c) entoncesMe= c;SinoSi (a>c) entoncesMe= b;SinoMe= b;FsiFsiSinoSi (a>c) entoncesMe=c;SinoMe=a;FsiFsiFsiEscriba (“el numero menor es”, Me);Final

Algo ds4.3;InicioEntero a, b, c, Me;Escriba (“digite tres números”);Lea a;Lea b;Lea c;Si (a>b) entoncesSi (b>c) entonces Me= b;SinoSi (a>c) entoncesMe= c;Sino Me= a;FsiFsiSinoSi (a>c) entoncesMe=a;SinoSi (b>c) entonces Me=c;SinoMe= b;FsiFsiFsiEscriba (“el numero medio es”, Me);Final

Algo ds4.4;InicioEntero a, b, c, Ma, I, Me;Escriba (“digite tres números”);Lea a;Lea b;Lea c;Si (a>b) entonces

1515


Si (b>c) entoncesMa= a;I= b;Me= c;SinoSi (a>c) entonces Ma= a;I=c;Me=b;SinoMa=c;I= a;Me= b;FsiFsiSinoSi (a>c) entoncesMa= b;I= a;Me= c;SinoSi (a>c) entoncesMa= b;I= c;Me=a;SinoSi (b>c) entoncesMa= b;I= c;Me= a;SinoMa= c;I= a;Me= b;FsiFsiFsiFsiEscriba (“el mayor es”, Ma, “el medio es”, I, “el menor es”, Me);Final

Algo ds4.5;InicioEntero a, b, c, Ma, I, Me, D, Cua, S;Escriba (“digite tres números”);Lea a;Lea b;Lea c;Si (a>c) entonces Si (b>c) entoncesMa= a;I= b;Me= c;SinoSi (a>c) entoncesMa= a;I= c;Me= b;SinoMa= c;I= a;Me= b;FsiFsiSino(a>c) entoncesMa= b;i= a;Me= c;SinoSi (b>c) entonces

1616


Ma= b;i= c;Me= a;SinoMa= c;i= b;Me= a;FsiFsiFsiD= Ma+Ma;Cua= Me*Me;S= D+Cua;Escriba (“la suma es”, S);Final

Algo ds5.1;InicioEntero x;Escriba (“digite numero”);Lea x;Si (x>10) entoncesEscriba (x, “es mayor que 10”);, sinoSi (x<10) entonces Escriba (x, “es menor que 10”);SinoEscriba (x, “es igual a 10”);FsiFsiFinal

Algo ds5.2;InicioReal a, b, c, Rc, R1, R2;Escriba (“digite el valor de b”);Lea b;Escriba (“digite el valor de a”);Lea a;Escriba (“digite el valor de c”);Lea c;Si (((b*b)-(4*a*c))>0) entoncesRc= sqrt ((b*b)-(4*a*c));R1= ((-b+Rc)/(2*a));R2= ((-b-Rc)/(2*a));Escriba (“las soluciones de la ecuación son”, R1, “y”, R2);SinoEscriba (“las raíces negativas no tienen solución”);FsiFinal

Algo ds5.3.1;InicioEntero x, y, Z;Escriba (“digite dos números”);Lea x;Lea y;Si (x>0) entoncesZ=x/y;FsiEscriba (x, “/”, y, “=”, Z);FinalAlgo ds5.3.2;InicioEntero m, n, R, P;Escriba (“digite dos números”);Lea m;Lea n;Si (m=n) entonces

1717


R= m/n;Escriba (m, 2/”, n, “=”,R);SinoP=m-n;Escriba (m, “-“, n, “=”, P);FsiFinal

Algo ds5.3.3;InicioEntero a, b;Escriba (“digite dos números”);Lea a;Lea b;Si (a mod 4=0 && b mod 4=0) entonces Escriba (“ los números son múltiplos de 4”);SinoEscriba (“los números no son múltiplos de 4”);FsiFinal

Algo ds5.3.4;InicioEntero n;Escriba (“digite numero”);Lea n;Si (n mod 2!=0 && n mod 7=0) entonces Escriba (“el numero es impar y múltiplo de 7”);FsiFinal

Algo ds5.3.5;InicioReal a, b, C, D;Escriba (“digite dos numeros”);Lea a;Lea b;Si (a<0 && b<0) entoncesC= a*b;Escriba (a,”*”, b, “=”, C);SinoD= a/b;Escriba (a, “/”, b, “=”, D);FsiFinal

Algo ds5.4.1;InicioEntero p, w, T;Escriba (“digite potencia”);Lea p;Escriba (“digite trabajo”);Lea w;T= w/p;Si (t>30) entoncesEscriba (T,”es mayor que 30”);SinoEscriba (T,”es menor que 30”);FsiFinal

Algo ds5.4.2;InicioEntero V, d, t;Escriba (“digite distancia”);Lea d;Escriba (“digite tiempo”);Lea t;

1818


V= d/t;Si (V>0) entoncesEscriba (V, “es positiva”);SinoEscriba (V, “es negativa”);FsiFinal

Algo ds5.4.3;InicioEntero F, m, a;Escriba (“digite masa”);Lea m;Escriba (“digite aceleración”);Lea a;F= m*a;Si (F mod 2=0) entonces Escriba (“la fuerza es par”);SinoEscriba (“la fuerza es impar)”;FsiFinal

Algo ds5.4.4;InicioEntero E, m, c;Escriba (“digite masa”);Lea m;Escriba (“digite velocidad”);Lea c;E= ((m* (c*c));Si (E>0) entoncesEscriba (“la energía es positiva”);SinoEscriba (“la energía es negativa”);FsiFinal

Algo ds5.4.5;InicioCons= 1;Real T, F;Escriba (“digite periodo”);Lea T;F=const/t;Si (F>0) entoncesEscriba (F, “es positiva”);SinoEscriba (F, “es negativa”);FsiFinal

Algo ds5.5;InicioCarácter z;Escriba (“digite un carácter”);Lea z;Si (z>=97) && (z<=122) entoncesEscriba (z, “es una letra minúscula”);FsiFinal

Algo ds5.6;InicioCarácter x;Escriba (“digite un carácter”);Lea x;

1919


Si ((x>=65) && (x<=90)) entoncesEscriba (x, “es una letra mayúscula”);FsiFinal

Algo ds5.7;InicioCarácter m;Escriba (“digite un carácter”);Lea m;Si (m>=65) && (m<=90) entoncesEscriba (m, “es una letra mayúscula”);SinoSi (m>=97) && (m<=122) entoncesEscriba (m,”es una letra minúscula”);SinoEscriba (m, “es un carácter diferente”);FsiFsiFsiFinal

Algo dm1.1;InicioEntero num;Escriba (“digite numero entre cero y nueve”);Lea num;Evaluar (num)InicioCaso 0: escriba (“cero”);Rompa;Caso 1: escriba (“uno”);Rompa;Caso 2: escriba (“dos”);Rompa;Caso 3: escriba (“tres”);Rompa;Caso 4: escriba (“cuatro”);Rompa;Caso 5: escriba (“cinco”);Rompa;Caso 6: escriba (“seis”);Rompa;Caso 7: escriba (“siete”);Rompa;Caso 8: escriba (“ocho”);Rompa;Caso 9: escriba (“nueve”);Rompa;Defecto: escriba (“no esta definido”);FinalFinal

Algo dm1.2;InicioEntero n;Escriba (“digite un numero”);Lea n;Evaluar (n)InicioCaso -9: escriba (“es de un digito”);Rompa;Caso -8: escriba (“es de un digito”);Rompa;Caso -7: escriba (“es de un digito”);Rompa;Caso -6: escriba (“es de un digito”);

2020


Rompa;Caso -5: escriba (“es de un digito”);Rompa;Caso -4: escriba (“es de un digito”);Rompa;Caso -3: escriba (“es de un digito”);Rompa;Caso -2: escriba (“es de un digito”);Rompa;Caso -1: escriba (“es de un digito”);Rompa;Caso 0: escriba (“es de un digito”);Rompa;Caso 1: escriba (“es de un digito”);Rompa;Caso 2: escriba (“es de un digito”);Rompa;Caso 3: escriba (“es de un digito”);Rompa;Caso 4: escriba (“es de un digito”);Rompa;Caso 5: escriba (“es de un digito”);Rompa;Caso 6: escriba (“es de un digito”);Rompa;Caso 7: escriba (“es de un digito”);Rompa;Caso 8: escriba (“es de un digito”);Rompa;Caso 9: escriba (“es de un digito”);Rompa;Defecto: escriba (“no es de un digito”);FinalFinalAlgo dm1.3;InicioCarácter let;Escriba (“digite una letra”);Lea let;Evaluar (let)InicioCaso a: escriba (“es una vocal”);Rompa;Caso e: escriba (“es una vocal”);Rompa;Caso i: escriba (“es una vocal”);Rompa;Caso o: escriba (“es una vocal”);Rompa;Caso u: escriba (“es una vocal”);Rompa;Defecto: escriba (“no es una vocal”);FinalFinal

Algo dm1.4;InicioCarácter let;Escriba (“digite una letra”);Lea let;Evaluar (let)InicioCaso c: escriba (“es un numero romano”);Rompa;Caso d: escriba (“es un numero romano”);Rompa;Caso i: escriba (“es un numero romano”);Rompa;Caso l: escriba (“es un numero romano”);Rompa;Caso m: escriba (“es un numero romano”);

2121


Rompa;Caso v: escriba (“es un numero romano”);Rompa;Caso x: escriba (“es un numero romano”);Rompa;Defecto: escriba (“no corresponde a un numero romano”);FinalFinal

Algo dm1.5;InicioReal At, Atri, Ac, Ar, Acir, l, r, b1, b2, d1, d2, h, b, opc;Const pi= 3.1415;Escriba (“digite área que desea hallar trapecio=1, cuadrado=2Rombo=3, triangulo=4, circulo=5”);Lea opc;Evaluar (opc)InicioCaso 1: escriba (“digite base mayor”);Lea b1;Escriba (“digite base menor”);Lea b2;Escriba (“digite altura”);Lea h;At= ((b1+b2)*h)Escriba (“el área del trapecio es”, At);Rompa;Caso 2: escriba (“digite lado”);Lea l;Ac= l*l;Escriba (“el area del cuadrado es”, Ac);Rompa;Caso 3: escriba (“digite diagonal mayor”);Lea d1;Escriba (“digite diagonal menor”);Lea d2;Ar= ((d1*d2)/2);Escriba (“el area del rombo es”, Ar);Rompa;Caso 4: escriba (“digite base”);Lea b;Escriba (“digite altura”);Lea h;Atri= ((b*h)/2);Escriba (“el area del triangulo es”, Atri);Rompa;Caso 5: escriba (“digite radio”);Lea r;Acir= ((pi*(r*r));Escriba (“el área del circulo es”, Acir);Rompa;Defecto: escriba (“el área no existe”);FinalFinal

Algo dm1.6;InicioReal Volc, Voles, Volci, Volcán, a, h, opc, r;Cons pi= 3.1415;Escriba (“digite volumen que desea hallar cubo=1, esfera=2Cilindro=3, cono=4);Lea opc;Evaluar opc;InicioCaso 1: escriba (“digite la arista”);Lea a;Volc= (a*a*a);Escriba (“el volumen es”, Volc);Rompa;Caso 2: escriba (“digite el radio”);Lea r;

2222


Voles= ((4*pi*(r*r*r)/3);Escriba (“el volumen es”, Voles);Rompa;Caso 3: escriba (“digite el radio”);Lea r;Escriba (“digite altura”);Lea h;Volci= ((pi*(r*r)*h);Escriba (“el volumen es”, Volci);Rompa;

Caso 4: escriba (“digite radio”);Lea r;Escriba (“digite la altura”);Lea h;

Volcon= ((pi *(r*r)*h)/3));Escriba (“el volumen es”, Volcán);Rompa;Defecto: escriba (“el volumen no existe”);FinalFinal

Algo dm1.7;InicioReal pc, bol, dol, sol, pes, ff, opc;Escriba (“digite pesos colombianos”);Lea pc;Escriba (”digite equivalencia que desea bol=1, dol=2, sol=3,Pes=4, ff=5”);Lea opc;Evaluar (opc)InicioCaso 1: bol=pc/2;Escriba (“su equivalencia es”, bol);Rompa;Caso 2: dol=pc/3000;Escriba (“su equivalencia es”, dol);Rompa;Caso 3: sol=pc/500;Escriba (“su equivalencia es”, sol);Rompa;Caso 4: pes=pc/10;Escriba (“su equivalencia es”, pes);Rompa;Caso 5: ff=pc/500;Escriba (“su equivalencia es”, ff);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinal

Algo dm1.8;InicioReal bol, pc, dol, sol, ff, opc;Escriba (“digite bolivares”);Lea bol;Escriba (“equivalencia que desea pc=1, dol=2, sol=3, pes=4, ff=5”);Lea opc;Evaluar (opc)InicioCaso 1: pc= bol*2;Escriba (“su equivalencia es”, pc);Rompa;Caso 2: dol= ((bol*2)/3000);Escriba (“su equivalencia es”, dol);Rompa;Caso 3: sol= ((bol*2)/500);Escriba (“su equivalencia es”, sol);Rompa;

2323


Caso 4: pes= ((bol*2)/10);Escriba (“su equivalencia es”, pes);Rompa;Caso 5: ff= ((bol*2)/500);Escriba (“su equivalencia es”, ff);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinal

Algo dm1.9;InicioReal dol, pc, bol, sol, pes, ff, opc;Escriba (“digite dólares”);Lea dol;Escriba (“equivalencia que desea pc=1, bol=1, sol=3, pes=4, ff=5”);Lea opc;Evaluar (opc)InicioCaso 1: pc= sol/3000;Escriba (“su equivalencia es”, pc);Rompa;Caso 2: bol= dol/2;Escriba (“su equivalencia es”, bol);Rompa;Caso 3: sol= dol/500;Escriba (“su equivalencia es”, sol);Rompa;Caso 4: pes= dol/10;Escriba (“su equivalencia es”, pes);Rompa;Caso 5: ff= dol/500;Escriba (“su equivalencia es”, ff);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinal

Algo dm1.10;InicioReal sol, dol, pc, bol, pes, ff, opc;Escriba (“digite soles”);Lea sol;Escriba (“digite equivalencia que desea dol=1, pc=2, bol=3, pes=4, Ff=5”);Lea opc;Evaluar (opc)InicioCaso 1: dol= ((sol*500)/3000);Escriba (“su equivalencia es”, dol);Rompa;Caso 2: pc= sol*500;Escriba (“su equivalencia es”, pc);Rompa;Caso 3: bol= ((sol*500)/2);Escriba (“su equivalencia es”, bol);Rompa;Caso 4: pes= ((sol*500)/10);Escriba (“su equivalencia es”, pes);Rompa;Caso 5: ff= ((sol*500)/500);Escriba (“su equivalencia es”, ff);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinal

Algo dm1.11;Inicio

2424


Real pes, dol, bol, pc, sol, ff, opc;Escriba (“digite pesetas”);Lea pes;Escriba (“digite equivalencia que desea dol01, pc=2, bol=3, sol=4,Ff=5”);Lea opc;Evaluar (opc)InicioCaso 1: dol= ((pes*10)/3000);Escriba (“su equivalencia es”, dol);Rompa;Caso 2: pc= pes*10;Escriba (“su equivalencia es”, pc);Rompa;Caso 3: bol= ((pes*10)/2);Escriba (“su equivalencia es”, bol);Rompa;Caso 4: sol= ((pes*10)/500);Escriba (“su equivalencia es”, sol);Rompa;Caso 5: ff= ((pes*10)/500);Escriba (“su equivalencia es”, ff);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinalAlgo dm1.12;InicioReal ff, dol, pc, bol, sol, pes, opc;Escriba (“digite francos”);Lea ff;Escriba (“digite equivalencia que desea dol=1, pc=2, bol=3, sol=4,pes=5”);Lea opc;Evaluar (opc)InicioCaso 1: dol= ((ff*500)/3000);Escriba (“su equivalencia es”, dol);Rompa;Caso 2: pc= ff*500;Escriba (“su equivalencia es” pc);Rompa;Caso 3: bol= ((ff*500)/2);Escriba (“su equivalencia es”, bol);Rompa;Caso 4: sol= ((ff*500)/500);Escriba (“su equivalencia es”, sol);Rompa;Caso 5: pes= ((ff*500)/10);Escriba (“su equivalencia es”, pes);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinal

Algo dm1.13;Inicio Real c, f, k, opc;Escriba (“digite grados Celsius”);Lea c;Escriba (“digite equivalencia que desea f=1, k=2”);Lea opc;Evaluar (opc)InicioCaso 1: f= ((1.8*(c+32);Escriba (“su equivalencia es”, f);Rompa;Caso 2: k= c+273;Escriba (“su equivalencia es”, k);Rompa;Defecto: escriba (“la equivalencia no existe”);

2525


FinalFinal

Algo dm1.14;InicioReal k, f, c, opc;Escriba (“digite grados kelvin”);Lea k;Escriba (“digite equivalencia que desea c=1, f=2”);Lea opc;Evaluar (opc)InicioCaso 1: c= k-273;Escriba (“su equivalencia es”, c);Rompa;Caso 2: f= ((1.8*(c+32);Escriba (“su equivalencia es”, f);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinal

Algo dm1.15;InicioReal f, c, k, opc;Escriba (“digite grados Fahrenheit”);Lea f;Escriba (“digite equivalencia que desea c=1, k=2”);Lea opc;Evaluar (opc)InicioCaso 1: c= ((0.6*(f-32);Escriba (“la equivalencia es”, c);Rompa;Caso 2: k= c+273;Escriba (“la equivalencia es”, k);Rompa;Defecto: escriba (“la equivalencia no existe”);FinalFinal

Algo dm1.16;InicioEntero agua, Energía, kw, mc, est;Real sp;Escriba (“digite estrato”);Lea est;Evaluar (est)InicioCaso 1: escriba (“digite energia y agua”);Lea kw;Lea mc;Agua= 1500;Energia= 1000;Si (kw>=0) && (kw<=10) entoncesKw= 50;FsiSi (kw>=11) && (kw<=20) entoncesKw= 100;FsiSi (kw>=21) && (kw<=40) entoncesKw= 200;FsiSinoSi (kw>41) entoncesKw= 250;Fsi Energia= energia +kw;Si (mc>=0) && (mc<=5) entonces

2626


Mc= 40;Fsi Si (mc>=5) && (mc<=10) entoncesMc= 80;FsiSi (mc>=11) && (mc>=20) entoncesMc= 150;Fsi SinoSi (mc>21) entonces Mc= 250;FsiAgua = agua+mc;Sp= energia +agua;Escriba (sp);Rompa;Caso 2: escriba (“energia y agua”);Lea kw;Lea mc;Agua= 1500;Energia= 1000;Si (kw>=0) && (kw<=10) entoncesKw= 60;FsiSi (kw>=11) && (kw<=20) entoncesKw= 130;FsiSi (kw>=21) && (kw>=40) entoncesKw= 240;FsiSinoSi (kw>41) entoncesKw=300;FsiEnergia= energia+kw;Si (mc>=0) && (mc>=5) entoncesMc= 50;FsiSi (mc>=5) && (mc>=10) entoncesMc= 90;FsiSi (mc>=11) && (mc<=20) entoncesMc= 170;FsiSinoSi (mc>21) entoncesMc=300;FsiAgua= agua+mc;Sp= energia+agua;Escriba (sp);Rompa;Caso 3: escriba (“energia y agua”);Lea kw;Lea mc;Agua= 3000;Energia= 2000;Si (kw>=0) && (kw<=10) entoncesKw= 70;FsiSi (kw>=11) && (kw<=20) entoncesKw= 160;FsiSi (kw>=21) && (kw<=40) entoncesKw= 280;FsiSinoSi (kw>41) entonces Kw= 350;FsiEnergia= energia+kw;Si (mc>=0) && (mc<=5) entonces

2727


Mc=60:FsiSi (mc>=5) && (mc<=10) entoncesMc= 100;FsiSi (mc>=11) && (mc<=20) entoncesMc=190;Fsi SinoSi (mc>21) entoncesMc= 350;FsiAgua= agua+mc;Sp= energia+agua;Escriba (sp);Rompa;Caso 4: escriba (“digite agua y energia”);Lea kw;Lea mc;Agua= 6000;Energia= 3000;Si (kw>=0) && (kw<=10) entoncesKw= 80;FsiSi (kw>=11) && (kw<=20) entoncesKw= 190;FsiSi (kw>=21) && (kw<=40) entoncesKw= 320;FsiSinoSi (kw>41) entoncesKw= 400;FsiEnergia= energia+kw;Si (mc>=0) && (mc<=5) entoncesMc= 70;FsiSi (mc>=5) && (mc<=10) entoncesMc=110;FsiSi (mc>=11) && (mc<=20) entoncesMc= 210;FsiSinoSi (mc>21) entoncesMc= 400;FsiAgua= agua+mc;Sp= energia+agua;Escriba (sp);Rompa;Caso 5: escriba (“energia y agua”);Lea kw;Lea mc;Agua= 10000;Energia= 5000;Si (kw>=0) && (kw<=10) entoncesKw= 100;FsiSi (kw>=11) && (kw<=20) entoncesKw= 210;Fsi Si (kw>=21) && (kw<=40) entoncesKw= 360;FsiSinoSi (kw>41) entoncesKw= 450;FsiEnergia= energia+kw;Si (mc>=0) && (mc<=5) entonces

2828


Mc= 80;FsiSi (mc>=5) && (mc<=10) entoncesMc= 120;FsiSi (mc>=11) && (mc<=20) entoncesMc= 230;FsiSinoSi (mc>21) entoncesMc= 450;FsiAgua= agua+mc;Sp= energia+agua;Escriba (sp);Rompa;Defecto: escriba (“el estrato no existe”);FinalFinal

Documents

Tema01_ejercicios