PRACTICA 8

PSEUDOCODIGO

ofstream salida;
salida.open("C:\Users\CCO\Desktop\problema8.txt");
 na,mr,gu int ;
write "introduzca el numero de automovil"
read na;
salida,na,
write"introduzca la cantidad de millas recorridas"
read mr;
salida,mr,
write"introduzca la cantidad de galones utilizados"
read gu;
salida,gu,

funcion desplegar_datos_file()

ifstream entrada ;
entrada.open("C:\Users\CCO\Desktop\problema8.txt");
 na,mr,gu char ;
entrada>>na;
do

write "na ";
entrada,mr, ;
write" mr" ;
entrada,gu, ;
write "gu";
entrada,na,;

while(!entrada.eof());
entrada.close();


inicio
continuar char ;
do

salida_datos_file();
write"desea continuar"
read continuar;

while(continuar=='s'|| continuar=='S');
funcion desplegar_datos_file();

Exposición proyecto final programación lomelilourdes ITT

EXAMEN 3 UNIDAD

CONVERTIR GALONES A LITROS

PSEUDOCODIGO

inicio
gl real
gl= 0
while (gl>=1)
write"introduzca la cantidad de galones": "
read gl
if(gl>=1)
gl= gl*3.785
write" conversion a litros son:", gl ," litros."
if(gl==0)
fin

practica 7

problema 1

problema 2

Pseudocodigo

Inicio funcion encontrarMin(float n1,float n2,float n3,float& min)

if(n3<n2 and n3<n1)
min=n3
if(n2<n1 and n2<n3)
min=n2
if(n1<n2 and n1<n3)
min=n1

Fin encontrarMin

Inicio Programa

n1, n2, n3, min real
write"Introduzca 3 numeros:"
read n1, n2, n3
encontrarMin(n1, n2, n3, min)
Write"Numero menor: "<<min;

Fin Programa






problema 3

problema 4

problema 7

Pseudocodigo

Inicio

numeros[15] int
i int
write"Introduzca 15 valores enteros:"
for(i=0 to i<15 step i=i+1)
{
write" numero ",(i+1)"; "
read numeros[i]
}
write"Pares;"
for(i=0 to i<15 step i=i+1)
{
if(numeros[i]%2==0)
write numeros[i]
}
write"Impares;"
for(i=0 to i<15 step i=i+1)
{
if(numeros[i]%2==0)
{
}
else
{
write numeros[i]
}
}

Fin


problema 8

Pseudocodigo

Inicio

valores[12] int
n, np, nn int
np=0
nn=0
write"Introduce valores Positivos y Negativos"
for(n=0 to n<12 step n=n+1)
{
write"Valor ",(n+1),": "
read valores[n]
}
write"Positivos: "
for(n=0 to n<12 step n=n+1)
{
if(valores[n]>0)
{
np=np+1
write , valores[n]
}
}
write np, " valores positivos"
write"Negativos: "
for(n=0 to n<12 step n=n+1)
{
if(valores[n]<0)
{
nn=nn+1
write valores[n]
}
}
write nn, " valores negativos"

Fin

TAREA 12 NOVIEMBRE 2013

tarea

 Inicio de programa

 int anos=1900

 int dias=1

 int meses=1

 int  num

 write:" Indique el numero de dias: "

 read:num;

 calc_anos(num)

 write:anos;meses;dias

 Fin del programa

INICIO DE LA FUNCION

int x,m,d;

for(x=365   x<=num   x=x+365)

{

anos=anos+1

}

num=num%365;

for(m=30; m<=num; m=m+30)

{

meses=meses+1;

}

num=num%30;

for(int d=1  d<=num d++)

{

dias=dias+1;

}

imagen programa













PROGRAMA
#include <iostream.h>
#include <conio.h>

void calc_anos (int num);
 int anos=1900;
int dias=1;
int meses=1;
int main ()
{

int  num;

  cout<<" Introduzca el numero de dias: \n\n\n\n";
  cin>>num;

  calc_anos(num);
  cout<<"\n\n\n"<<endl;
  cout<<" LA FECHA ES: \n\n\n\n";
  cout<<anos<<"/"<<meses<<"/"<<dias;


getch();
return 0;
}

 void calc_anos (int num)
 {
  int x,m,d;
for(x=365; x<=num; x=x+365){
  anos=anos+1;
}

num=num%365;

for(m=30; m<=num; m=m+30)
{
   meses=meses+1;

}
num=num%30;

for(int d=1; d<=num; d++){
dias=dias+1;
}
}

PRACTICA 6

problema 1

problema 2

problema 3

Pseudocodigo 

inicio función tab(real n, entero i);
write i,"  X  ",n" = ",(i*n)
final tab

inicio programa
real n
entero i
char r
r='r'
while(r='R' or r='r')
{
write"Su numero es:"
read n;
for(i=1 to i<=10 step i++)
{
tab(n,i);
}
write"Para repetir precione r";
read r;
}
final programa

problema 4

Pseudocodigo

Inicio platilla funcion despliegue (valor T);

{

write"El valor es:",valor

}

Final despliegue

Inicio programa

ch char

x1 entero 

x2 real

write"FUNCION DESPLIEGUE "

write"Introduce un caracter:"

read ch 

despliegue(ch)

write"Introduce un valor entero:"

read x1

despliegue(x1)

write"Introduce un valor de doble presicion:"

read x2

despliegue(x2)

Final programa

problema 5

Pseudocodigo

inicio funcion minimo(T,T,T)

write"El Numero Menor es "

if(a<b and a<c)

write a

if (b<a and b<c)

write b

if(c<a and c<b)

write c

fin minimo

inicio programa

 N1,N2,N3 entero

X1,X2,X3 doble precicion 

write "Introduzca tres valores  enteros"

read N1, N2, N3

minimo(N1, N2, N3);

write"Introduzca tres valores de doble presision"

read X1, X2, X3

minimo(X1, X2, X3);

fin programa

problema 6

practica 5

problema1

PSEUDOCODIGO
a,b,f int
write"Este programa calculara el factorial del numero entero que ingrese"
write"Porfavor ingrese su numero"
read a
f=1
for(b=1 to b<=a step b+1)
{
f=b*f
}

write"El factorial de", a "es", f

problema 2  WHILE

problema 2 DO WHILE

PSEUDOCODIGO

suma, i real

suma=0

i=2

write" Este programa calculara la suma de cada tercer entero desde 2 hasta 100"

do

{

suma=suma+i

write"i: "

i=i+3

}

while(i<=100)

write"La suma de la serie es=", suma

problema 3-

PSEUDOCODIGO

indicador int

repetir char

repetir= r

while(repetir==r)

{

write"Valor del indicador: "

read indicador

switch (indicador)

case 1:

write"CALOR"

case 2:

write"TEMPLADO"

case 3:

write"FRIO"

default:

write" Fuera de rango"

}

repetir=r

problema 4-

problema 5-

PSEUDOCODIGO

i,n,suma;

write" Dame n:"

read n

suma=0

for (i=1 to i<=n step i=i+1 )

suma=suma+(2*i-1);

write"La suma de los",n "primeros numeros impares es:",suma

problema 6A-

problema 6B

PSEUDOCODIGO

f,i,cc,uc int

c real

write " ''Converciones de grados farenheit a grados celsius''"

write"Converciones: "

read cc

write" Grados Farenheit iniciales: "

read f

write"Incrememnto de grados farenheit en cada conversion : "

read i

uc=f+(cc**i)

while(f<uc)

{

c=(5/9)*(f-32)

write f,c

f=f+i

}

problema 7

PSEUDOCODIGO

n,fib1, fib2, fib3,i int
fib2=0
fib3=1
write"''Secuencia Fibonacci''"
write" Cuantos numeros tendra la serie?"
read n
n=n-2
write"Su serie fibonacci es:"
write fib 2",", fib3
for(i=1 to i<=n step i=i+1 )
{
fib 1=fib2+fib3
write fib1
fib2=fib3
fib3=fib1
}

problema 8A

PSEUDOCODIGO

y,x real

write"Y=4x^5 - 2x^3 + x "

write" X:    Y: "

for( x=1 to x<=5 step x=x+0.10)

{

y=4x^5 - 2x^3 + x 

write  x,  y

}

problema 8B

PSEUDOCODIGO

x,y double precicion
write" Y= x + x^2 /3 + x^3 /4 + x^4 /5 + x^5 /6"
write" X:    Y: "

for(x=2 to x<=5 step x=x+0.5)
{
y= x + x^2 /3 + x^3 /4 + x^4 /5 + x^5 /6
write  x,  y

problema 8C

PSEUDOCODIGO

e,t,y double precicion
e=2.7182
write" t:    y: "

for(t=10 to t<=15 step t=t+0.2)
{
y=4e^(0.02*t)
write t  , y

}

PRACTICA 4

problema 1

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

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 2

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

PROBLEMA3

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

PROBLEMA4

PROBLEMA 5

PROBLEMA 6

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

PROBLEMA7

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