Practica 3

Practica 3 problema 1a

Inicio.
a=5.5,b=8.4,pi=3.1416,valor,circunferencia real
valor=pow(a,2)+pow(b,2)
circunferencia=pi*pow((2*valor),0.5)
write (''la circunferencia de la elipse es=''circunferencia)
fin.

Practica 3 problema 1b

Inicio.

a,b,valor,pi=3.1416,circunferencia real

write (''Introduzca el valor del radio menor'')

read a

write (''introduzca el valor del radio mayor'')

read b

valor=pow(a,2)+pow(b,2)

circunferencia=pi*pow((2*valor),.5)

write ('' el valor del radio menor es=''a)

write ('' el valor del radio mayor es=''b)

write ('' el valor de la circunferencia  es=''circunferencia)

Fin.

Practica 3 problema 2a

Inicio.

x1=6,y1=14,x2=16,y2=20,mx,my int

mx=(x1+x2)/2

my=(y1+y2)/2

write (''la cordenada x del punto medio es=''mx)

write (''la cordenada y del punto medio es=''my)

Fin.

Practica 3 problema 2b

Inicio.
x1,y1.x2,y2,mx,my int
write (''x1=?)
read x1
write (''y1=?)
read y1
write (''x2=?)
read x2
write (''y2=?)
read y2

write (''la cordenada x del punto medio es=''mx)

write (''la cordenada y del punto medio es=''my)

Fin.

Practica 3 problema 3a

Inicio.

r1=1500.r2=1500,r3=2000,r4=2000,resiistenciatotal int

write (''el valor de r1 es de ''r1''ohms'')

write (''el valor de r2 es de ''r2''ohms'')

write (''el valor de r3 es de ''r3''ohms'')

write (''el valor de r4 es de ''r4''ohms'')

resistenciatotal=1/(1.0/r1+1.0/r2+1.0/r3+1.0/r4)

write (''el valor de la resistencia total es de ''resistenciatotal''ohms'')

Fin.

Practica 3 problema 3b

Inicio.

r1,r2,r3,r4,resistenciatotal int

write (''Introduzca el valor de r1'')

read r1

write (''Introduzca el valor de r2'')

read r2

write (''Introduzca el valor de r3'')

read r3

write (''Introduzca el valor de r4'')

read r4

write (''El valor de r1 es de''r1''ohms'')

write (''El valor de r2 es de''r2''ohms'')

write (''El valor de r3 es de''r3''ohms'')

write (''El valor de r4 es de''r4''ohms'')

resistenciatotal=1/(1.0/r1+1.0/r2+1.0/r3+1.0/r4)

write (''el valor de la resistencia total es de ''resistenciatotal''ohms'')

Fin.

Practica 3 problema 4a

r=12,angulo=55,radianes,x,y real

radianes=angulo*3.1416/180

x=r*cos(radianes)

y=r*sin(radianes)

write(''x=''x)

write(''y=y'')

Fin.

Practica 3 problema 4b

 Inicio.

r,angulo,radianes,x,y real

write(''distancia r=?)

read r

write(''angulo =?)

read angulo

radianes=angulo*3.1416/180

x=r*cos(radianes)

y=r*sin(radianes)

write(''x=''x)

write(''y=''y)

Fin.

Practica 3 problema 5a

Inicio.

veenmillasporhora=15,angulo=65.pi=3.1416,venmetrosporsegundo,radianes,altura real

radianes=angulo*pi/180

venmetrosporsegundo=(venmillasporhora*1609)/3600

altura=0.5*(venmetrosporsegundo*venmetrosporsegundo)*(sin*radianes)*sin(radianes))

write(''la altura maxima de la pelota es de''altura''metros'')

Fin.

Practica 3 problema 5b

Inicio.

veenmillasporhora,angulo.pi=3.1416,venmetrosporsegundo,radianes,altura real

write(''Introduzca el valor de v en millas por hora'')

read venmillasporhora

write(''Introduzca el valor del angulo'')

red angulo

radianes=angulo*pi/180

venmetrosporsegundo=(venmillasporhora*1609)/3600

altura=0.5*(venmetrosporsegundo*venmetrosporsegundo)*(sin*radianes)*sin(radianes))

write(''la altura maxima de la pelota es de''altura''metros'')

Fin.

Practica 3 problema 6a

Inicio.

anobase=2005,ano1=2011,ano2=2012,ano3=2013,pop1,pop2,pop3 real

pop1=pow((6.0),0.2*(ano1-anobase))

write(''La poblacion mundial estimada para el ano''ano1''es de aproximadamente''pop1''miles de millones de personas'')

pop2=pow((6.0),0.2*(ano2-anobase))

write(''La poblacion mundial estimada para el ano''ano2''es de aproximadamente''pop2''miles de millones de personas'')

pop3=pow((6.0),0.2*(ano3-anobase))

write(''La poblacion mundial estimada para el ano''ano3''es de aproximadamente''pop3''miles de millones de personas'')

Fin.

Practica 3 problema 6b

Inicio.

anobase,ano1,ano2,ano3,pop1,pop2,pop3 real

write(''Introduzca el ano que desea consultar'')

read ano1

pop1=pow((6.0),0.2*(ano1-anobase))

write(''La poblacion mundial estimada para el ano''ano1''es de aproximadamente''pop1''miles de millones de personas'')

write(''Introduzca otro ano que desea consultar'')

read ano2

pop2=pow((6.0),0.2*(ano2-anobase))

write(''La poblacion mundial estimada para el ano''ano2''es de aproximadamente''pop2''miles de millones de personas'')

write(''Introduzca otro que desea consultar'')

pop3=pow((6.0),0.2*(ano3-anobase))

write(''La poblacion mundial estimada para el ano''ano3''es de aproximadamente''pop3''miles de millones de

personas'')

Fin.

Practica 3 problema 7

Inicio.

pesosmexicanos,dolarestadounidense,euro,dolartaiwan,dolarsingapore,dolarhonkong,pesetaespañola,pesoargentino,quetzal real

write('' Introduzca la cantidad de pesos'')

read pesosmexicanos

dolarestadounidense=pesosmexicanos*0.0778

euro=pesosmexicanos*0.0596

dolartaiwan=pesosmexicanos*2.33

dolarsingapore=pesosmexicanos*0.10

dolarhonkong=pesosmexicanos*0.61

pesetaespañola=pesosmexicanos*9.98

pesoargentino=pesosmexicanos*0.40

quetzal=pesosmexicanos*0.61

write(pesosmexicanos''pesos mexicanos convertidos a dolares estadounidenses son''dolarestadounidense''dolares'')

write(pesosmexicanos''pesos mexicanos convertidos a euros son''euro''euros'')

write(pesosmexicanos''pesos mexicanos convertidos a dolares de taiwan son ''dolartaiwan''dolares'')

write(pesosmexicanos''pesos mexicanos convertidos a dolares de singapur son '' dolarsingapore'' dolares'')

write(pesosmexicanos''pesos mexicanos convertidos a dolares de hong kong son''dolarhongkong''dolares'')

write(pesosmexicanos''pesos mexicanos convertidos a pesetas españolas son''pesetaespañola''pesetas'')

write(pesosmexicanos''pesos mexicanos convertidos a pesos argentinos son''pesoargentino''pesos'')

write(pesosmexicanos''pesos mexicanos convertidos a quetzales son''quetzal''quetzales'')

Fin.