practica 4

problema 1

Algoritmo

Inicio

1.Definir variables

a real

2.Introducir los valores de las variables

write" valor de un angulo:"

read a

3.Realizar condicion e imprimir resultados

if (a<90)

write" angulo agudo."

else 

{

if(angulo==90)

write"angulo recto."

else

write" angulo obtuso."

}

Fin

Pseudocodigo

a real

write" valor de un angulo:"

read a

if (a<90)

write" angulo agudo."

if(angulo==90)

write"angulo recto."

else

write" angulo obtuso."                

                                           problema 2

Algoritmo

Inicio

1.Definir variables

a real

2.Introducir los valores de las variables

write" valor de un angulo:"

read a

3.Realizar condicion e imprimir resultados

if (a<90)

write" angulo agudo."

else 

{

if(angulo==90)

write"angulo recto."

else

write" angulo obtuso."

}

Fin

Pseudocodigo

a real

write" valor de un angulo:"

read a

if (a<90)

write" angulo agudo."

if(angulo==90)

write"angulo recto."

else

write" angulo obtuso."

                                                  problema 3

Pseudocodigo

numero intwrite" Introduce un numero de mes : "
read numero
if (mes==1)
write" El mes uno del anio es enero."
if (mes==2)
write" El mes uno del anio es febrero."
if (mes==3)
write" El mes uno del anio es marzo."
if (mes==4)
write" El mes uno del anio es abril."
if (mes==5)
write" El mes uno del anio es mayo."
if (mes==6)
write" El mes uno del anio es junio."
else
{if (mes==7)
write" El mes uno del anio es julio."
if (mes==8)
write" El mes uno del anio es agosto."
if (mes==9)
write" El mes uno del anio es septiembre."
if (mes==10)
write" El mes uno del anio es octubre."
else
{if (mes==11)
write" El mes uno del anio es noviembre."
if (mes==12)
write" El mes uno del anio es diciembre."

fin

problema 4

problema 5

problema 6

Pseudocodigo 

Pf,pt,a,l,área,dc real 
Write”introduzca el largo y el ancho” 
Read l,a 
Calcular área=(l*a) 
Write”introduzca el precio” 
Read pt 
If área>300mts 
Dc=(pt-0.95) 
Pf=(pt-dc) 
Read “el precio final es” ,pf 
If área>400mts 
Dc=(pt-0.92) 
Pf=(pt-dc) 
Read”el precio final es “ , pf 
If área>500mts 
Dc=(pt-0.90) 
Pf=(pt-dc) 
write”el precio final es”,pf 

                                                                      problema 7

problema 8

problema 9

Psudocodigo

s, c, t, ct, sc ,a real
char ta
write "Valor del angulo : "
read a
write"Oprima g si el angulo esta en grados o r si es en radianes : "
read ta
if(ta=g or ta=G)
s=sin((a*3.1416) /180.0)
c=cos((a*3.1416) /180)
t=(sin((a*3.1416) /180))/(cos((a*3.1416) /180))
ct= 1.0/((sin((a*3.1416) /180.0))/(cos((a*3.1416) /180.0)) )
sc=1.0 /((a*3.1416) /180.0)
write " seno: ",s
write"coseno: ",c
write ” tangente: ",t
write” Cotangente: “,ct
write ”secante: ",sc
if(ta=r or ta=R)
s=sin(a) c=cos(a) ;
t=(s)/(c)
ct= 1./((sin(a)))/(cos(a))
sc=1 /(a)
write " seno: ",s
write"coseno: ",c
write ” tangente: ",t
write” Cotangente: “,ct
write ”secante: ",sc

                                                        problema 10