Mis aficiones nuevo
EL HOMBRE QUE CALCULABA ( resumen)
EJERCICIOS DE DECISION SIMPLE
BIENVENIDOS A CANDY_LUNA INFORMATIC
TEORIA DE INFORMATICA
TAREA SEIS
DEFINICION DE ALGORITMO
RESOLUCION DE PROBLEMAS
BIOGRAFIAS DE MATEMATICOS
EJERCICIOS SECUENCIALES
MANUAL DEL DFD
EJERCICIOS DE DECISION MULTIPLE
EJERCICIOS DE CICLOS
EJERCICIOS DE FUNCIONES
EJERCICIOS DE ARREGLOS
TAREA SIETE
TAREA UNO
TAREA TRES
Mis aficiones nuevo
PROGRAMACION ORIENTADA A OBJETOS
EJERCICIOS SECUENCIALES
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;
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;
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");
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);
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
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");
Lea (r);
escriba ("Digite altura");
Lea (h);
Vcil= pi*r*r*h;
escriba ("el volumen del cilindro", vcil);
Final


Algo S6.4;
Inicio
Cons Pi=3.1415
Real=h,r,pi,vcon;
escriba ("Digite radio:");
Lea (r);
Escriba("digite altura");
Lea(h);
Vcon= pi*r*r*h/3;
Escriba("el volumen del cono es=",vcon);
final




CONVERTIR

S7.1.
Inicio
Real=ºC,ºF
Escriba("digite los grados celcius");
Lea(ºc);
ºF=(9/5*ºc)+32;
escriba("los grados celcius a farenheit son=",ºf);
Final

Algo S7.2;
Inicio
Real=ºC,ºk
Escriba("digite los grados celcius");
Lea(ºc);
ºk=c+273;
escriba("los grados celcius a kelvin son=",ºk);
Final

Algo S7.3;

Inicio
Real=ºC,ºf
Escriba("digite los grados farenheit");
Lea(ºf);
ºc=5/9(f-32);
escriba("los grados Fahrenheit a celcius son=",ºc);
Final


Algo S7.4;
Inicio
Real c,f,k;
escriba("Digite gradosfarenheit:");
Lea (ºf);
ºc=5/9(f-32);
k=C+273;
escriba ("los Fahrenheit a kelvin son",ºk);
Final



Algo S7.5;
Inicio
Real ºf,ºk;
escriba("Digite gradoskrelvin:");
Lea (ºk);
ºf= (9/5*ºk)+32
escriba("los grados kelvin a Fahrenheit son=",ºf);
Final

Algo S7.6;
Inicio
Real ºk,ºc;
escriba ("Digite grados Kelvin");
Lea (ºk);
ºc=ºk-273;
escriba("los grados kelvin a Celsius son=",ºc);
Final


Algo S7.7;
Inicio
Real= pc,dol,bol,sol,pes,ff
escriba("Digite cantidad pesos colombianos:");
Lea (pc);
dol=Pc*2500;
bol=Pc*1.89;
sol=Pc*735.67;
pes=pc*14.17
ff=pc*450;
escriba(pc,"pesos colombianos son=",dol,"en dollares", "," ,bol,"en bolivares" ",", sol,"en soles ",",pes, "en pesetas, "y",ff,"en francos franceses");
Final

Algo S7.8;
Inicio
Real=dol,pc,bol,sol,pes,ff;
escriba ("Digite cantidad de dollares:");
Lea (do);
pc=dol/2500
bol=pc*1.89
sol=pc*735,67
pes=pc*14.18
ff=pc*450
escriba ("dol,"en dollares son=",pc,"en pesos colombianos","y",bol,"en bolivares", ",", sol,"en soles", ",",pes, "en pesetas", ",", ff, "en francos franceses")
Final


Algo S7.9;
Inicio
Real bol,pc,dol,sol,pes,ff;
escriba("Digite cantidad de bolivares");
Lea (bol);
pc=bol/1.89;
dol=pc*2600;
sol=pc*735.67;
pes=pc*14.18;
ff= pc*450
escriba(bol,"en bolivares son:", pc, "en pesos colombianos", ","
Final

Algo S7.10;
Inicio
Real=BOL,pc,dol,sol,pes,ff
Escriba("digite en bolivares");
Lea(bol)
Pc=bol/1.89;
Dol=pc*2600;
Sol=pc*735,67
Ff=pc*450
Escriba(bol,"en bolivares son=", pc, "en pesos colombianos", ",", dol, "en dollares", "," , sol, "en soles", ",", pes "en pesetas" ",", ff, "en francos frances");
final
Algo s7.11
Inicio
Real=sol,dol,bol,pc,pes,ff;
Escribir("digite en soles");
Lea(sol);
Pc=sol/735,67;
Dol= pc*2500;
Bol= pc*1.89
Pes= pc*14.18
Ff= pc*450
Escriba(bol,"en bolivares son=", pc, "en pesos colombianos", ",", dol, "en dollares", "," , sol, "en soles", ",", pes "en pesetas" ",", ff, "en fracos frances");
Final

S8. hallar
S8.1.
Inicio
Real= x1, x2, y1, y2, dis;
Escriba("digite absicsa del primer punto")
Lea(x1)
Escriba("digite ordenada del segundo punto");
Lea(y1);
Escriba("digite absisa del segundo punto");
Lea(x2);
Escriba("digite ordenada del segundo punto");
Lea (y2);
Dis=sqrt((y2-y1)*(y2-y1)+(x2-x1)*(x2-x1))
Escriba("la distancia es", dis);
final
s8.2.
Inicio
Real=sp,l1,l2,l3,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

s.8.3.
Inicio
Real= a,b,c,ecua1,ecua2;
Escriba("digite primer termino")
Lea(a)
Escriba("digite segundo termino");
Lea(b);
Escriba("digite tercer termino");
Lea(c);
Ecua1((-b+sqrt+((b*b)-4*a*c))/2*a);
Ecua2((-b-sqrt+((b*b)-4*a*c))/2*a);
Escriba("la solucion de la ecuación cuadrática . son=",ecua1,"y",ecua2);
final


s8.4
Inicio
Real= x,x2,y1,y2,m;
Escriba("digite absisa del 1er termino")
Lea(x)
Escriba("digite ordenada del 1er punto");
Lea(y);
Escriba("digite absisa del 2do punto");
Lea(c);
Escriba("digite ordenada del 2do punto");
Lea(y2);
M=y2-y1/x2-x1;
Escriba("la ecuación de la recta es=y-",y1,"=",m,"*(x- " ,",x1,")");
final
Imagen