E.A.

P UNH
ELECTRÓNICA

PROGRAMACION DE C++

1. Realizar un programa que al ingresar un numero te diga si es par o impar

Solución:

#include "stdafx.h"
#include<iostream>
#include<string>
#include<windows.h>
using namespace std;
int main(){
int n;
string r;
cout<<"numero: ";cin>>n;
if(n%2==0)
{r="par";
}else{
r="impar"; }
cout<<"resultado: "<<r<<"\n";
cout<<"\n";
Sleep(40000);}

2. REALIZAR UN PROGRAMA PARA OBTENER LA SUMATORIA

DE LOS NUMEROS ENTEROS COMPRENDIDOS ENTRE DOS

CURSO: LENGUAJE DE PROGRAMACION

CANTIDADES INGRESADAS Y SE VISUALICE EN PANTALLA
EL VALOR MEDIO DE LOS NUMEROS INGRESADOS.
Solución:

#include "stdafx.h"
#include<iostream>"\n";
#include<Windows.h>
using namespace std;
int main()
{
int contador=0;
int suma=0;
int primero=0;
int ultimo, temporal;
cout<<"ingrese el primer numero: ";cin>>primero;
cout<<"ingrese el ultimo numero: ";cin>>ultimo;
if(primero>ultimo)
{
temporal=primero;
primero=ultimo;
ultimo=temporal;

1
E.A.P UNH
ELECTRÓNICA

}
cout<<"suma de enteros de : "<<primero;
cout<<" hasta "<<ultimo<<" = ";
while(primero<=ultimo)
{
contador ++;
suma=suma+primero;
primero ++;
}
cout<<suma<<"\n";
cout<<"valor medio= "<<suma/contador<<"\n";
Sleep(40000);}

3. REALIZAR UN PROGRAMA QUE UNA VEZ DADO UN RANGO DE NUMEROS

ENTEROS SE OBTENGA EN PANTALLA LA CANTIDAD DE NUMEROS

PARES QUE CONTIENE.
Solución:

#include "stdafx.h"
#include<iostream>
using namespace std;
int main(){
int i, n_inicial, n_final, cant_pares=0;
cout<<"ingrese el numero inicial. ";cin>>n_inicial;
cout<<"ingrese el numero final: ";cin>>n_final;
i=n_inicial+1;
while(i<n_final){
if(i%2==0) {
cant_pares +=1; }

CURSO: LENGUAJE DE PROGRAMACION

cout<<"\n";
cout<<"cantidad de numeros paares:"<<cant_pares<<"\n";
cout<<"\n";
cin>>cant_pares;}

4. Realizar un programa que se visualice (imprima)en pantalla la siguiente de 18

términos (considerar intervalo 5 en 5 como
2,7.3,8.4,9.5,10.6,11.7,12.8,13.9,14.10,15.
Solución:
#include "stdafx.h"
#include<iostream>
#include<Windows.h>
using namespace std;
int main(){
for(int i=2;i<=10;i++)
cout<<i<<","<<i+5<<",";
cout<<"\n";
Sleep(20000);
}

2
E.A.P UNH
ELECTRÓNICA

5. Realizar un programa para calcular el cuadrado de un número utilizando la

formula siguiente
Solución:

C=c+(2*I-1)DONDE c=cuadrado
#include "stdafx.h"
#include<iostream>
#include<Windows.h>
using namespace std;
int main()
{
int i,n,c=0;
cout<<"ingrese el numero..:";cin>>n;
for(i=1;i<=n;i++)
c=c+(2*i-1);
cout<<"\n";
cout<<"el cuadrado del numero es:"<<c<<"\n";
cin>>c;
}

6.
Realizar un programa q permita ingresar 6notas y se calcule el número de
notas aprobadas, el número de notas desaprobados, el %de notas
aprobadas y desaprobadas.

CURSO: LENGUAJE DE PROGRAMACION

Solución:

#include "stdafx.h"
#include<iostream>,
#include<Windows.h>
using namespace std;
int main()
{
const int max=6;
int notas [max];
int naprobados=0;
int ndesaprobados=0;
float paprobados=0;
float pdesaprobados=0;
for (int i=0; i<max;i++)
{
cout<<"ingrese notas..:";
cin>>notas[i]; cout<<"\n";
}
cout<<"fin de notas";cout<<"\n";
for (int j=0;j<max;j++)

3
E.A.P UNH
ELECTRÓNICA
{
if (notas [j]>10)
naprobados=naprobados+1;
else
ndesaprobados=ndesaprobados+1;
}
paprobados=float (naprobados)/max;
pdesaprobados=float (ndesaprobados)/max;
cout<<"el numero de aprobados es:"<<naprobados<<"\n";cout<<"\n";
cout<<"el numero de desaprobados es:"<<ndesaprobados<<"\n";cout<<"\n";
cout<<"el porsentaje de aprobados es;"<<paprobados<<"\n";cout<<"\n";
cout<<"el porsentaje de desaprobados es:"<<pdesaprobados<<"\n";cout<<"\n";
cout<<"\n";
Sleep (20000);
}

7. Realizar un programa que solicite ingresar un número cualquiera y se calcule la raíz

cuadrada de dicho número aplicar la función sqrt
Solución:

#include "stdafx.h"
#include<iostream>

CURSO: LENGUAJE DE PROGRAMACION

#include<math.h>
using namespace std;
int main()
{
double numero,resultado;
cout<<"\n";
cout<<"ingrese el numero:";cin>>numero;
//calculamos la raiz cuadrada del numero ingresado
resultado= sqrt(numero);
//salida de resultados
cout<<"\n";
cout<<"raiz cuadrada de :"<<numero<<"es"<<resultado;
cout<<"\n";
cout<<"\n";
cin>>resultado;
}

4
E.A.P UNH
ELECTRÓNICA

8. Realizar un programa que permita hallar la expresión (4)elevado al cubo utilizar la

función pow.
Solución:

#include "stdafx.h"
#include<iostream>
#include<Windows.h>
#include<math.h>
using namespace std;
int main()
{
double x=4,y=3;

cout<<"el valor de x=<<x<<","elvalor de y=<<y<<";

cout<<y<<"x elevado a la y="<<pow(x,y);
cout<<"\n";
Sleep(29000);
}

9. realizar u programa que al ingresar el numero del código del 20121 hasta el
20125, devuelva el nombre y apellido de una persona de acuerdo a la tabla
respectiva.

Código Nombre y Apellido

CURSO: LENGUAJE DE PROGRAMACION

20121 The Best Murderer

20122 SASUKE UCHIHA

20123 NARUTO UZUMAKI

20124 SAKURA HARUNO

20125 KAKASHI HATAKE

Solución:

#include "stdafx.h"
#include"iostream"
#include<string>
using namespace std;
int main()
{
int n;
string na="";

5
E.A.P UNH
ELECTRÓNICA
cout<<"codigo:";cin>>n;
switch(n)
{
case 20121:
na="The Best Murderer";
break;
case 20122:
na="SASUKE UCHIHA";
break;
case 20123:
na="NARUTO UZUMAKI";
break;
case 20124:
na="SAKURA HARUNO";
break;
case 20125:
na="KAKASHI HATAKE";
break;
}
cout<<"\n";
cout<<"nombre y apellido:"<<na <<"\n";cout<<"";
cin>>na; }

10. realizar un programa que nos ayude a calcular el pago de un trabajador

solución:

#include "stdafx.h"

#include<iostream>

CURSO: LENGUAJE DE PROGRAMACION

using namespace std;

int main()

int horasT, horasN, horasExtras;

float pHora, pagohorasN, pagoHextras, descuento;

float sueldoBruto, sueldoNeto;

cout<<"BOLETAS DE PAGO: ";

cout<<".............................";cout<<"\n";

cout<<"Horas Totales Trabajadas::::";cin>>horasT;

cout<<"Pago Horas(S/)....:";cin>>pHora;

if(horasT>48)

6
E.A.P UNH
ELECTRÓNICA
{

horasN=48;

horasExtras=horasT-48;

else

horasN=horasT;

horasExtras=0;

pagohorasN=horasN*pHora;

pagoHextras=horasExtras*1.5*pHora;

sueldoBruto=pagohorasN+pagoHextras;

if(sueldoBruto>5000)

descuento=(sueldoBruto*10);

else descuento=0;

sueldoNeto=(sueldoBruto-descuento);

cout<<"Pago por horas normales....:"<<pagohorasN;cout<<"\n";

cout<<"pago por horas extras....:"<<pagoHextras;cout<<"\n";

CURSO: LENGUAJE DE PROGRAMACION

cout<<"sueldo bruto.................:"<<sueldoBruto;cout<<"\n";

cout<<"Descuento.......:"<<descuento;cout<<"\n";cout<<"\n";

cout<<"---------sueldo neto.......:"<<sueldoNeto;

cin>>sueldoNeto;

7
E.A.P UNH
ELECTRÓNICA

11. realizar un programa para calcular una factura de venta

solución:

#include "stdafx.h"
#include<iostream>
#include<Windows.h>
using namespace std;
int main()
{
int precio, cantidad, descuento;
float subtotal, totalDescuento, Total, IGV, totalPagar;
cout<<"\n\t\t\tcalculo del precio de venta\n\n";
cout<<"\n\t\t\tingrese precio....:";
cin>>precio;
cout<<"\tingrese cantidad...";
cin>>cantidad;
cout<<"\tingrese(%)descuento...";
cin>>descuento;
subtotal=(precio*cantidad);
totalDescuento=(subtotal*(descuento/100.0));
Total=(subtotal-totalDescuento);IGV=(0.18*Total);
totalPagar=Total+IGV;
cout<<"\n\t\t\tSubTotal...:"<<subtotal;

CURSO: LENGUAJE DE PROGRAMACION

cout<<"\n\t\t\tDescuento...:"<<descuento;
cout<<"\n\t\t\tTotal...:"<<Total;
cout<<"\n\t\t\tIGV(18%)...:"<<IGV;
cout<<"\n\t\t\tTotal a Pagar...:"<<totalPagar;
cin>>totalPagar;
Sleep(10000);

12. realizar un programa para calcular el área de un cuadrado

solución:

8
E.A.P UNH
ELECTRÓNICA
#include"stdafx.h"

#include<iostream>

using namespace std;

int main ()

int b,h,s;

cout<<"ingrese el primer numero.....:";cin>>b;

cout<<"ingrese el primer numero.....:";cin>>h;

s=(b*h)/2;

cout<<"la area deltriangulo es--------:"<<s<<"\n";

cin>>s;

13. realizar un arreglo de matiz de 3 por 4 y calcular la suma de las columnas

solución:

#include "stdafx.h"
#include<iostream>
#include<Windows.h>
using namespace std;
int main()

CURSO: LENGUAJE DE PROGRAMACION

{
//variables
int s0=0, s1=0, s2=0, s3=0, i;
//arreglos
int n[3][4];
//entrada
cout<<"numero(0,0):";cin>>n[0][0];
cout<<"numero(0,1):";cin>>n[0][1];
cout<<"numero(0,2):";cin>>n[0][2];
cout<<"numero(0,3):";cin>>n[0][3];
cout<<"numero(1,0):";cin>>n[1][0];
cout<<"numero(1,1):";cin>>n[1][1];
cout<<"numero(1,2):";cin>>n[1][2];
cout<<"numero(1,3):";cin>>n[1][3];
cout<<"numero(2,0):";cin>>n[2][0];
cout<<"numero(2,1):";cin>>n[2][1];
cout<<"numero(2,2):";cin>>n[2][2];
cout<<"numero(2,3):";cin>>n[2][3];
//proceso
for(i=0;i<=2;i++)
{

9
E.A.P UNH
ELECTRÓNICA
s0+=n[i][0];
s1+=n[i][1];
s2+=n[i][2];
s3+=n[i][3];
}
//salida
cout<<"\n";
cout<<"la suma de la columna 0 es:"<<s0<<"\n";
cout<<"la suma de la columna 1 es:"<<s1<<"\n";
cout<<"la suma de la columna 3 es:"<<s2<<"\n";
cout<<"la suma de la columna 3 es:"<<s3<<"\n";
Sleep(30000);
}

14. Programa para realizar operaciones básicas +,-,*, y /

solución:

#include "stdafx.h"
#include <iostream>
#include<Windows.h>
#include <string>
using namespace std;

CURSO: LENGUAJE DE PROGRAMACION

int main ()
{
char op;
int opbuena=1;
double x,y,z;
cout<<"ingrese el primer numero:";cin>>x;
cout<<"ingrese el segundo numero:";cin>>y;
cout<<"ingrese el operador numero:";cin>>op;
switch (op)
{
case '+':;
z=x+y;
break;
case '-':;
z=x-y;
break;
case '*':;
z=x*y;
break;
case '/':;
z=x/y;
break;
} 1
0
E.A.P UNH
ELECTRÓNICA
cout<<"\n";
cout<<"el resultad de la operacion es:"<<z<<"\n";
Sleep (5000);
}

15. Hacer un programa para determinar si el numero es positivo o negativo

Solución:

#include "stdafx.h"
#include"iostream"
#include<string>
using namespace std;
int main()
{
int n;
string r;
cout<<"ingrese el numero:";cin>>n;
if(0<n){
r="positivo";}
else{
r="negativo";}
cout<<"\n";
cout<<"el resultado:"<<r<<"\n";
cout<<"\n";
cin>>r;

CURSO: LENGUAJE DE PROGRAMACION

}

16. ESCRIBIR UN PROGRAMA QUE CALCULE EL FACTORIAL DE UN

NÚMERO:
Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
int numero,i;
int factorial=1;
cout<<"Introducir un numero:"<<endl;
cin>>numero;
for (i=1;i<=numero;i++) 11
E.A.P UNH
ELECTRÓNICA
{
factorial=factorial*i;
}
cout<<"El factorial de:"<<numero<<" es:"<<factorial<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

17. DETERMINAR SI UN NÚMERO ES PRIMO:

Solución:
#include "stdafx.h"

#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
int numero,i,indicador;
cout <<"introducir un numero:"<<endl;
cin>>numero;
indicador=0;
for (i=2;i<numero;i++)
{
if (numero%i==0)
{
indicador=1;
}
}

CURSO: LENGUAJE DE PROGRAMACION

if (indicador==0)
{
cout<<"El numero es primo"<<endl;
}
else
{
cout<<"el numero no es primo"<<endl;
}
system("PAUSE");
return EXIT_SUCCESS;
}

18. ESCRIBIR UN PROGRAMA QUE CALCULE LA VELOCIDAD DE UN

CUERPO SABIENDO EL
ESPACIO RECORRIDO Y EL TIEMPO:

Solución:
1
2
E.A.P UNH
ELECTRÓNICA
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
float espacio,tiempo,velocidad;
cout<<"Introducir el espacio recorrido:"<<endl;
cin>>espacio;
cout<<"Introducir el tiempo empleado:"<<endl;
cin>>tiempo;
velocidad=espacio/tiempo;
cout<< "La velocidad es:"<<velocidad<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

19. ESCRIBIR UN PROGRAMA QUE CALCULE EL ÁREA Y EL VOLUMEN DE

UN CILINDRO
Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
using namespace std;

CURSO: LENGUAJE DE PROGRAMACION

int main()
{
float radio,altura,area,volumen;
float const pi=3.1416;
cout<<"Introducir el radio del cilindro:"<<endl;
cin>>radio;
cout<<"Introducir la altura del cilindro:"<<endl;
cin>>altura;
area=2*pi*radio*radio+2*pi*radio*altura;
volumen=pi*radio*radio*altura;
cout<<"El area del cilindro es:"<<area<<endl;
cout<<"El volumen del cilindro es:"<<volumen<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

1
3
E.A.P UNH
ELECTRÓNICA
20. ESCRIBIR UN PROGRAMA QUE ME PREGUNTE SI TENGO UN
CILINDRO O UNA ESFERA Y QUE CALCULE EL ÁREA O EL VOLUMEN
SEGÚN LO QUE PIDA EL USUARIo
Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
int opcion;
float r,h,area;
float const pi=3.1416;
cout<<"1.- Cilindro"<<endl;
cout<<"2.- Esfera"<<endl;
cin>>opcion;
if (opcion!=1 && opcion!=2)
{
cout<<"ERROR"<<endl;
}
if (opcion==1)
{
cout<<"Introducir el radio del cilindro:"<<endl;
cin>>r;
cout<<"Introducir la altura del cilindro:"<<endl;
cin>>h;
area=2*r*r*pi+2*pi*r*h;
cout<<"El area es:"<<area<<endl;
}
if (opcion==2)
{
cout<<"Introducir el radio de la esfera:"<<endl;
cin>>r;
area=4*pi*r*r;
cout<<"El area es:"<<area<<endl;

CURSO: LENGUAJE DE PROGRAMACION

}
system("PAUSE");
return EXIT_SUCCESS;
}

21. ESCRIBIR UN PROGRAMA QUE CALCULE LAS SOLUCIONES DE UNA

ECUACIÓN DE
SEGUNDO GRADO Y QUE ME DIGA, EN EL CASO DE QUE NO TENGA
SOLUCIONES, QUE LA ECUACIÓN NO
1
4
E.A.P UNH
ELECTRÓNICA
TIENE SOLUCIÓN, USAR PROCEDIMIENTOS.

Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
float a,b,c,d,x1,x2;
cout<<"introducir el termino a:"<<endl;
cin>>a;
cout<<"introducir el termino b:"<<endl;
cin>>b;
cout<<"introducir el termino c:"<<endl;
cin>>c;
d=b*b-4*a*c;
if (d<0)
{
cout<<"La ecuacion no tiene solucion"<<endl;
}
else if (d==0)
{
x1=((b*(-1))/(2*a))+(d/2*a);
cout<<"La ecuacion tiene una unica solucion que es:"<<x1<<endl;
}
else
{
x1=((b*(-1))/(2*a))+(d/2*a);
x2=((b*(-1))/(2*a))-(d/2*a);
cout<<"Las soluciones de la ecuacion son:"<<x1<<" y "<<x2<<endl;
}
system("PAUSE");
return EXIT_SUCCESS;

CURSO: LENGUAJE DE PROGRAMACION

}

22. ESCRIBIR UN PROGRAMA QUE ME DE LA SUMA DESDE 0 HASTA UN

NÚMERO DADO:
Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
int numero,i;
int suma=0;
15
E.A.P UNH
ELECTRÓNICA
cout<<"Introducir un numero:"<<endl;
cin>>numero;
for (i=1;i<=numero;i++)
{
suma=suma+i;
}
cout<<"La suma desde 0 hasta "<<numero<<" es:"<<suma<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

23. ESCRIBIR UN PROGRAMA QUE HAGA LA SUMA DE DOS MATRICES

3X3.
Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
using namespace std;
int main()
{
int i,j;
float m1[3][3],m2[3][3],m3[3][3];
for (i=1;i<=3;i++)
{
for (j=1;j<=3;j++)
{
cout<<"Introducir el elemento "<<i<<","<<j<<" de la matriz 1:"<<endl;
cin>>m1[i][j];
}
}

CURSO: LENGUAJE DE PROGRAMACION

system ("cls");
for (i=1;i<=3;i++)
{
for (j=1;j<=3;j++)
{
cout<<"Introducir el elemento "<<i<<","<<j<<" de la matriz 2:"<<endl;
cin>>m2[i][j];
}
}
system ("cls");
for (i=1;i<=3;i++)
{
for (j=1;j<=3;j++)
{
m3[i][j]=m1[i][j]+m2[i][j];
}
}
cout<<"MATRIZ SUMA"<<endl;
for (i=1;i<=3;i++)
{
for (j=1;j<=3;j++)
{
cout<<m3[i][j]<<" "; 1
6
E.A.P UNH
ELECTRÓNICA
}
cout<<endl;
}
system("PAUSE");
return EXIT_SUCCESS;
}

24. DADAS LAS COORDENADAS TRIDIMIENSIONALES DE TRES PUNTOS,

DEBE CONSTRUIRSE UN PROGRAMA QUE HAGA EL PERÍMETRO DEL
TRIANGULO QUE FORMAN.
Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int i,j;
float P1[3],P2[3],P3[3];
float distancia,dist1,dist2,dist3,distancia1,distancia2,distancia3;
for (i=1;i<=3;i++)
{

CURSO: LENGUAJE DE PROGRAMACION

cout<<"Introducir la componente "<<i<<" del punto 1"<<endl;
cin >>P1[i];
}
system ("cls");
for (i=1;i<=3;i++)
{
cout<<"Introducir la componente "<<i<<" del punto 2"<<endl;
cin >>P2[i];
}
system ("cls");
for (i=1;i<=3;i++)
{
cout<<"Introducir la componente "<<i<<" del punto 3"<<endl;
cin >>P3[i];
}
system ("cls");
dist1=0;
distancia1=0;
for (i=1;i<=3;i++)
{
dist1=dist1+(P1[i]-P2[i])*(P1[i]-P2[i]);
distancia1=sqrt (dist1);
}
1
7
E.A.P UNH
ELECTRÓNICA
dist2=0;
distancia2=0;
for (i=1;i<=3;i++)
{
dist2=dist2+(P1[i]-P3[i])*(P1[i]-P3[i]);
distancia2=sqrt (dist2);
}
dist3=0;
distancia3=0;
for (i=1;i<=3;i++)
{
dist3=dist1+(P2[i]-P3[i])*(P2[i]-P3[i]);
distancia3=sqrt (dist3);
}
distancia=distancia1+distancia2+distancia3;
cout<<"El perimetro del triangulo es:"<<distancia<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

25. DADOS DOS NÚMEROS, REDACTAR UN PROGRAMA QUE MUESTRE

SI UNO DE ELLOS ES MÚLTIPLO DEL OTRO.
Solución:
#include "stdafx.h"
#include <cstdlib>
#include <iostream>

CURSO: LENGUAJE DE PROGRAMACION

using namespace std;
int main()
{
int a,b;
cout<<"Introducir un numero:"<<endl;
cin>>a;
cout<<"Introducir el otro numero:"<<endl;
cin>>b;
if (a>=b)
{
if (a%b==0)
{
cout<<a<<" es multiplo de "<<b<<endl;
}
else
{
cout<<"Los numeros son primos entre si"<<endl;
}
}
else
{
if (b%a==0)
{ 1
8
E.A.P UNH
ELECTRÓNICA
cout<<b<<" es multiplo de "<<a<<endl;
}
else
{
cout<<"Los numeros son primos entre si"<<endl;
}
}
system("PAUSE");
return EXIT_SUCCESS;
}

PROGRAMACION EN CONSOLE

26. DISEÑAR UN ALGORITMO QUE CALCULE LA LONGITUD DE LA CIRCUNFERENCIA

Y EL ÁREA DEL CÍRCULO DE RADIO DADO.
Solución:

using System;
using [Link];
using [Link];
using [Link];
using [Link];

namespace ConsoleApplication1
{

CURSO: LENGUAJE DE PROGRAMACION

class Program
{
static void Main(string[] args)
{
float radio;
[Link]("INGRESE RADIO:");
radio = [Link]([Link]());
[Link]("EL PERIMETRO DEL CIRCULO ES {0}", 3.1416 * (radio * 2
[Link]("EL AREA DEL CIRCULO ES {0}", 3.1416 * radio * radio);
[Link]();
}
}
}

1
9
E.A.P UNH
ELECTRÓNICA
27. DISEÑAR UN ALGORITMO QUE CALCULE LA SUPERFICIE DE UN TRIÁNGULO A
PARTIR DEL INGRESO DE SU BASE Y ALTURA Y MUESTRE EL RESULTADO.
Solución:
using System;
using [Link];
using [Link];
using [Link];
using [Link];

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
float bas, alt;
[Link]("INGRESE BASE:");
bas = [Link]([Link]());
[Link]("INGRESE ALTURA:");
alt = [Link]([Link]());
[Link]("EL AREA DEL TRIANGULO ES {0}", (bas * alt) / 2);
[Link]();

}
}
}

CURSO: LENGUAJE DE PROGRAMACION

28. EQUIVALENCIA DE GRADOS CELSIUS CON GRADOS FAHRENHEIT.
Solución:

using System;
using [Link];
using [Link];
using [Link];
using [Link];

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
float celsius;
//ONOFRE
[Link]("INGRESE GRº CELSIUS:");
celsius = [Link]([Link]());
[Link]("{0} GRº CELSIUS EQUIVALE A {1} GRº FAHRENHEIT", celsius,
celsius * 2.12);
[Link](); 2
0
E.A.P UNH
ELECTRÓNICA
}
}
}

29. EQUIVALENCIA DE CENTIMETROS CON PIES Y PULGADAS.

Solución:

using System;
using [Link];
using [Link];
using [Link];
using [Link];

namespace ConsoleApplication2
{
class Program
{
static void Main(string[] args)
{
float cms;
[Link]("INGRESE CENTIMETROS:");
cms = [Link]([Link]());
[Link]("{0} CENTIMETROS ES = {1} PIES = {2} PULGADAS", cms,
0.030003 * cms, 0.0336034 * cms);
[Link]();
}
}
}

CURSO: LENGUAJE DE PROGRAMACION

30. MOSTRAR LOS NÙMEROS IMPARES ENTRE EL 0 Y EL 100
Solución:

using System;
using [Link];
using [Link];
using [Link];
using [Link];

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
int i, impar = 0, par = 0;
2
1
E.A.P UNH
ELECTRÓNICA
for (i = 0; i < 100; i++)
{
if (i % 2 != 0)
{
[Link]("{0}|", i);
impar++;
}
}
[Link]("N");
for (i = 1; i < 100; i++)
{
if (i % 2 == 0)
{
[Link]("{0}|", i);
par++;
}
}
[Link]("NDEL 0 AL 100 HAY {0} NÚMEROS PARES Y {1} IMPARESN", par, impar);
[Link]();
}
}
}

31. NELSON DESEA SABER CUANTO DINERO SE GENERA POR CONCEPTO DE INTERESES
SOBRE LA CANTIDAD QUE TIENE EN INVERSIÓN EN EL BANCO. EL DECIDIRÁ REINVERTIR
LOS INTERESES SIEMPRE Y CUANDO ESTOS EXCEDAN A S/.7000, Y EN ESE CASO DESEA
SABER CUANTO DINERO TENDRÁ FINALMENTE EN SU CUENTA.

CURSO: LENGUAJE DE PROGRAMACION

Solución:

using System;
using [Link];
using [Link];
using [Link];
using [Link];
namespace ejercicio01
{
class Hombre
{
private string nombre;
private float dinero;
public void Inicio()
{
[Link]("---------BANCO [Link]--------");
[Link]("-----------------------------");
[Link]("INGRESE SU NOMBRE: ");
nombre = [Link]();
[Link]("INGRESE SU MONTO DINERO; ");
dinero = [Link]([Link]());
[Link]();
2
2
E.A.P UNH
ELECTRÓNICA
}
public void Imprimir()
{
[Link]("---------BANCO [Link]--------");
[Link]("-----------------------------");
[Link]("NOMBRE: " + nombre);
if (dinero > 7000)
{
[Link]("USTED NO PUEDE EXCEDER EL MONTO DE S/ 7000");
}
else
{
[Link]("INVERSION: " + dinero);
}
[Link]();
}
static void Main(string[] args)
{
Hombre per = new Hombre();
[Link]();
[Link]();
}
}
}

32. EN UN ALMACÉN SE HACE UN 20% DE DESCUENTO A LOS CLIENTES CUYA

COMPRA SUPERE LOS S/.1000 ¿CUAL SERÁ LA CANTIDAD QUE PAGARA UNA
PERSONA POR SU COMPRA?

CURSO: LENGUAJE DE PROGRAMACION

SOLUCION:

using System;
using [Link];
using [Link];
using [Link];
using [Link];
namespace ejercicios02
{
class Cliente
{
private float descuento;
private float precio;
public void Inicio()
{
[Link]("INGRESE PRECIO: ");
precio = [Link]([Link]());
[Link]();
}
public void Descuento()
{

2
if (precio > 1000)

3
E.A.P UNH
ELECTRÓNICA
{
float res = (precio * 20) / 100;
descuento = precio - res;
[Link]("--------TIENDA LOS PAPIS DE UNH -------");
[Link]("......DESCUENTO DEL 20% POR SUPERAR S/1000");
[Link]("........PRECIO ES: " + descuento);
[Link]();
}
else
{
[Link]("--------TIENDA LOS PAPIS DE UNH -------");
[Link]("PRECIO ES: " + precio);
[Link]();
}
[Link]();
}
static void Main(string[] args)
{
[Link]("--------TIENDA LOS PAPIS DE UNH -------");
Cliente clie = new Cliente();
[Link]();
[Link]();
}
}
}

33. Realizar un programa para calcular una potencia de cualquier numero.

Solución:

CURSO: LENGUAJE DE PROGRAMACION

using System;
using [Link];
using [Link];
using [Link];
using [Link];

namespace ConsoleApplication2
{
class Program
{
static void Main(string[] args)
{
//variables
int p;
short x, n;
//entrada
[Link](" Introducir el valor de x==>:");
x = [Link]([Link]());
[Link](" Introducir n==>:");
n = [Link]([Link]());
//proceso
p = (int)[Link]((double)x, (double)n);
//salida
2
4
E.A.P UNH
ELECTRÓNICA
[Link]("");
[Link]("...................potencia...............:" + p);
[Link]();
}
}
}

34. Realizar un programa para hallar el interés compuesto generado por una empresa
de telecomunicaciones con un capital depositado durante a un tiempo a una tasa
de interés determinada, se tiene las formulas siguientes I=m-c ;m= ( (1+x)^t)*c.
Solución:

using System;
using [Link];
using [Link];
using [Link];
using [Link];

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)

CURSO: LENGUAJE DE PROGRAMACION

{
float i, m, c, x, t;

[Link]("....valor de t:");
t = [Link]([Link]());

[Link]("...valor de c:");
c = [Link]([Link]());
[Link]("valor de x:");
x = [Link]([Link]());
m = ((float)[Link]((double)1 + x, (double)t)) * c;
i = m - c;
[Link]("........interes......:" + i);
[Link]();

}
}
}

2
5
E.A.P UNH
ELECTRÓNICA

35. La área de un rectángulo es:

Solución:

using System;
using [Link];
using [Link];
namespace Area_de_un_rectangulo
{
class Program
{
static void Main(string[] args)
{
float Base;
float Altura;
float Area;
[Link]("ÁREA DE UN RECTÁNGULO");
[Link]();
[Link]("INGRESE LA BASE");
Base=[Link]([Link]());
[Link]("INGRESE LA ALTURA");
Altura=[Link]([Link]());
[Link]();
[Link]();
Area = Base * Altura;
[Link]("EL RECTÁNGULO DE BASE {0} Y LA ALTURA DE {1} Y TIENES UN ÁREA DE
{2}", Base, Altura, Area);
[Link]();
}
}

CURSO: LENGUAJE DE PROGRAMACION

}

36. Realizar un programa que dado 3 números que identifique el número mayor
,intermedio menor y ascendente

Solución:

using System;
using [Link];
using [Link];
using [Link];
using [Link];
2
6
E.A.P UNH
ELECTRÓNICA

namespace ConsoleApplication2
{
class Program
{
static void Main(string[] args)
{
int a, b, c;
[Link]("valor a:");
a = [Link]([Link]());
[Link]("valor b:");
b = [Link]([Link]());
[Link]("valor c:");
c = [Link]([Link]());
//proceso sullca
if (a > b && b > c)

[Link]("orden:" + a, b, c);

if (b > c && c > a)

[Link]("orden:" + b, c, a);

else
[Link]("orden:" + c, b, a);
[Link]();

}
}
}

CURSO: LENGUAJE DE PROGRAMACION

37. Realizar un programa para convertir de metro apies.
Solución:

using [Link];
namespace Convertir_pies_a_metros
{
class Program
{
static void Main(string[] args)
{
//CONVERSOR PIES A METROS SEGUN GOOGLE 1 PIE = 0,3048 METROS ,:1 METRO = 3,2808399
PIES
float Pie;
float Metro;
float Medida;
2
7
E.A.P UNH
ELECTRÓNICA
Medida=3.280839F;
[Link]("INGRESAR MEDIDAS EN METRO");
Pie = [Link]([Link]());
//PROCESANDO DATOS
Metro = Pie * Medida;
[Link]("{0} UN PIES ES IGUAL A {1}",Pie ,Metro);
[Link]();
}
}
}

38. CALCULAR EL AREA DE UN TRIANGULO Y HALLAR SU PERIMETRO.

SOLUCION

using System;
using [Link];
using [Link];
using [Link];

namespace area_y_perimetro_de_un_triangulo
{
class Program
{
static void Main(string[] args)
{
[Link] = [Link];

CURSO: LENGUAJE DE PROGRAMACION

[Link]("calcular el area y perimetro de un triangulo");
// para el lado a
[Link]("ingrese el lado a del triangulo");
double a = [Link]([Link] .ReadLine ());
// para el lado b
[Link] ("ingrese el lado b del triangulo");
double b = [Link](System .Console .ReadLine() );
// para el lado C calculamos
[Link]("entonces el lado c es igual:");
double c = Math .Sqrt ((a*a)+(b*b));

// perimetro y area

double perimetro = a + b + c;
double area = (a*b)/2;
// la respuesta
[Link] = [Link];

[Link] ("el area es de:"+area);

[Link] ("el perimetro es de:"+Math .Round (perimetro,2));
[Link]();
2
8
E.A.P UNH
ELECTRÓNICA
}
}
}

39. CALCULAR EL AREA DE UN PARALELOGRAMO.

SOLUCION :

using System;
using [Link];
using [Link];
using [Link];
namespace Area_de_un_Paralelogramo
{
class Program
{
static void Main(string[] args)
{
[Link] = [Link];
[Link]("calcular el area del paralelogramo");
// base del paralelogramof
[Link]("ingrese la base del paralelogramo");
int bas = [Link]([Link]());
//altura del palelogramo
[Link]("ingrese la altura del paralelogramo");
int altura = [Link]([Link]());
// Calculamos

CURSO: LENGUAJE DE PROGRAMACION

int area = bas * altura;
// respuesta
[Link]("el resultado es:" + area);
[Link]();

}
}
}

40. CALCULAR LAS DECENAS Y LAS UNIDADES D UN NUMERO INGRESADOQUE SEA

MENOR DE 100. 2
9
E.A.P UNH
ELECTRÓNICA

SOLUCION :
using System;
using [Link];
using [Link];
using [Link];

namespace Unidades_y_Decenas_de_un_Numeros_menor_de_100
{
class Program
{
static void Main(string[] args)
{
[Link] = [Link];

[Link]("programa para ver las unidades y decenas de un

numero");
[Link]("ingrese el numero");
int N = [Link]([Link]());
//unidades y decenas
int D = 0;
int U = 0;
// proceso
D = N / 10;
U = N % 10;
// salida

[Link]("el numero de decenas es:" + D);

[Link]("el numero de unidades es:" + U);
[Link]("");
[Link]();
}
}
}

CURSO: LENGUAJE DE PROGRAMACION

PROGRAMAS EN VISUAL BASIC

41. HAER UN PROGRAMA PARA CONVERTIR LAS HORAS Y MINUTOS EN SEGUNDOS

Y ADEMAS QUE SE SUME.

Public Class Form1

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim a As Integer
Dim b As Integer
Dim c As Integer

3
Dim s As Integer

0
E.A.P UNH
ELECTRÓNICA
a = Val([Link])
b = Val([Link])
c = Val([Link])
s = a * 3600 + b * 60 + c
[Link] = Str(s)

End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Close()
End Sub
End Class

42. HCER UN PROGRAMA QUECONVIERTA LA HORA INGRESADA EN MINUTOS Y

TAMBIEN EN SEGNUDOS

Public Class Form1

Private Sub convertir_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = Val([Link]) * 60

[Link] = Val([Link]) * 60 * 60

CURSO: LENGUAJE DE PROGRAMACION

End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
End
End Sub

Private Sub btn_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()
End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()
[Link] = [Link]()
End Sub

3
1
E.A.P UNH
ELECTRÓNICA
Private Sub LBLR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

End Sub
End Class

43. HACER UN PRORGAMA QUE INDIQUE LA HORA COMO UNA ALARMA

Public Class Form1

Private MiTimer As New [Link]()

Private Shared Sub TimerEventProcessor(ByVal myObject As Object, ByVal

myEventArgs As EventArgs)

'Este metodo se ejecutara cuando el temporizador arranque cada cinco

CURSO: LENGUAJE DE PROGRAMACION

segundos
MsgBox("ahora son " & Now)

'Para que suene la alarma tendras que añadir al proyecto un ficheo wav y
para llamarlo solo debes poner

End Sub

Private Sub Form1_Load(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
'creamos un gestor para el evento Tick
AddHandler [Link], AddressOf TimerEventProcessor
'damos valor a la propiedad para que cada tick se dispare cada 5 segundos
[Link] = 5000
'arancamos el control
[Link]()
End Sub
3
2
E.A.P UNH
ELECTRÓNICA
Private Sub Label1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

'creamos un gestor para el evento Tick

AddHandler [Link], AddressOf TimerEventProcessor
'damos valor a la propiedad para que cada tick se dispare cada 5 segundos
[Link] = 5000
'arancamos el control
[Link]()

End Sub

End Class

44. HALLAR LA SUMA DE DOS MATRICES DE 2 POR 2 CON ARREGLOS.

Public Class Form1

Private Sub Form1_Load(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

CURSO: LENGUAJE DE PROGRAMACION

Dim i As Integer
Dim j As Integer

Dim A(1, 1) As Integer

Dim B(1, 1) As Integer
Dim C(1, 1) As Integer

A(0, 0) = Val([Link])
A(0, 1) = Val([Link])
A(1, 0) = Val([Link])
A(1, 1) = Val([Link])

B(0, 0) = Val([Link])
B(0, 1) = Val([Link])
B(1, 0) = Val([Link])
B(1, 1) = Val([Link])

For i = 0 To 1
For j = 0 To 1
C(i, j) = A(i, j) + B(i, j)
3
3
E.A.P UNH
ELECTRÓNICA
Next
Next

[Link] = C(0, 0)
[Link] = C(0, 1)
[Link] = C(1, 0)
[Link] = C(1, 1)
End Sub
End Class

45. HACER UNA MATRIZ DE 3X2 Y HALLAR LA SUMA DE LOS COLUMNAS DE DICHA
MATRIZ

Public Class Form1

Private Sub RadioButton1_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link])

End Sub

Private Sub btncalcular_Click(ByVal sender As [Link], ByVal e As

CURSO: LENGUAJE DE PROGRAMACION

[Link]) Handles [Link]
Dim resultado As Integer
Dim resultado2 As Integer
Dim n(3, 2) As Integer

resultado = Val([Link]) + Val([Link]) + Val([Link])

resultado2 = Val([Link]) + Val([Link]) + Val([Link])

[Link] = Str(resultado)
[Link] = Str(resultado2)

End Sub

Private Sub txtresultado2_TextChanged(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub
End Class

3
4
E.A.P UNH
ELECTRÓNICA

46. HACER UNA MATRIZ DE 4x5 Y HALLAR LA SUMA DE LOS COLUMNAS DE DICHA
MATRIZ

Public Class Form1

Private Sub btncalcular_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim s0 As Integer
Dim s1 As Integer
Dim s2 As Integer
Dim s3 As Integer
Dim s4 As Integer
Dim n(3, 4) As Integer

s0 = Val([Link]) + Val([Link]) + Val([Link]) +

Val([Link])
s1 = Val([Link]) + Val([Link]) + Val([Link]) +
Val([Link])
s2 = Val([Link]) + Val([Link]) + Val([Link]) +
Val([Link])

CURSO: LENGUAJE DE PROGRAMACION

s3 = Val([Link]) + Val([Link]) + Val([Link]) +
Val([Link])
s4 = Val([Link]) + Val([Link]) + Val([Link]) +
Val([Link])

[Link] = Str(s0)
[Link] = Str(s1)
[Link] = Str(s2)
[Link] = Str(s3)
[Link] = Str(s4)

n(0, 0) = Val([Link])

End Sub
Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As
[Link])
3
5
E.A.P UNH
ELECTRÓNICA
End Sub
End Class

47. HACER UN PROGRAMA DONDE SE PUEDA INGRESAR DOS NUMEROS Y SE PUEDA

HALLAR LA SUMA Y RESTA ENTRE ELLOS.

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = Val([Link]) + Val([Link])
End Sub

CURSO: LENGUAJE DE PROGRAMACION

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = Val([Link]) - Val([Link])
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
End
End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""

End Sub
End Class

3
6
E.A.P UNH
ELECTRÓNICA

48. HACER UN PROGRAMA DONDE INGRESANDO DOS NUMEROS SE PUEDA HALLAR

LA SUMA, MULTIPLICACION Y RESTA ENTRE ELLOS.

Public Class Form1

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = Val([Link]) + Val([Link])
End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = Val([Link]) - Val([Link])
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
End
End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""

CURSO: LENGUAJE DE PROGRAMACION

[Link] = ""
[Link] = ""

End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = Val([Link]) * Val([Link])
End Sub
End Class

3
7
E.A.P UNH
ELECTRÓNICA

49. HACER UN PROGRAMA QUE TRATA DE SER UN RELOJ .

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()
End Sub

Private Sub LBLRELOJ_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub
End Class

CURSO: LENGUAJE DE PROGRAMACION

50. HACER UN PROGRAMA PARA HALAR LA TAZA DE CAMIO DE DOLARES A SOLES Y
VICEVERSA.

Public Class Form1

Dim a As Integer

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
a = [Link]
If [Link] = True Then
[Link] = a / 2.78
[Link] = FormatCurrency([Link])
[Link] = "ud a cambiado a dolares"
End If
If [Link] = True Then
[Link] = a * 2.8
[Link] = FormatCurrency([Link])
[Link] = "ud a cambiado a soles"
3
8
E.A.P UNH
ELECTRÓNICA
End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
[Link]()
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link]()
End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()
End Sub
End Class

CURSO: LENGUAJE DE PROGRAMACION

51. HACER UN PROGRAMA DONDE SE INGRESA SUS DATOS Y SU EDAD PARA SABER
SI ES MAYOR DE EDAD.

Public Class Form1

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()

End Sub 3
9
E.A.P UNH
ELECTRÓNICA

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
If Val([Link]) >= 18 Then
[Link] = "tu eres mayor de edad"
Else
[Link] = "tu eres menor de edad"
End If
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link]()
End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()
End Sub
End Class

CURSO: LENGUAJE DE PROGRAMACION

52. HACER UN PROGRAMA DONDE SE PUEDA SABER EL AUMENTO DE PAGO DE UN
TRABAJADOR

Public Class Form1

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
If Val([Link]) Then
[Link] = Val([Link]) * 0.12
Else
If Val([Link]) Then

[Link] = 0.9 * Val([Link])

Else
[Link] = 0.8 * Val([Link])

End If

4
0
E.A.P UNH
ELECTRÓNICA

End If
[Link] = Val([Link]) + Val([Link])
End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()

End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
End

End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()

End Sub
End Class

CURSO: LENGUAJE DE PROGRAMACION

53. HACER UN PROGRAMA DONDE SE INGRESE DATOS Y SE PUEDAMODIFICAR
COMO SUBRAYARLO, NEGRREARLO, O CONVERTIRLO A LETRA CURSIVA.

Public Class Form1

Private Sub RadioButton1_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = New Font([Link], [Link])
End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
4
1
E.A.P UNH
ELECTRÓNICA
End
End
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = New Font([Link], [Link])
End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = New Font([Link], [Link])
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = LCase([Link])

End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = [Link]
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = [Link]

End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = UCase([Link])

End Sub

CURSO: LENGUAJE DE PROGRAMACION

End Class

54. HACER UN PROGRAMA DONDE INGRESANDO DOS NUMEROS SE PUEDA HALLAR

LA SUMA, MULTIPLICACION, DIVIDIR Y RESTAR ENTRE ELLOS.

Public Class Form1

Dim A As Integer
4
2
E.A.P UNH
ELECTRÓNICA
Private Sub Label2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

End Sub

Private Sub TextBox6_TextChanged(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub

Private Sub Label4_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()

End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link]()

End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

CURSO: LENGUAJE DE PROGRAMACION

[Link] = Val([Link]) + Val([Link])
[Link] = Val([Link]) - Val([Link])
[Link] = Val([Link]) * Val([Link])
[Link] = Val([Link]) / Val([Link])

End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()
[Link] = [Link]()
End Sub
End Class

4
3
E.A.P UNH
ELECTRÓNICA

55. HACER UN PROGRAMA DONDE SE PUEDA INGRESAR LA CANTIDAD DE

ARTEFACTOS VENTIDOS, SU PRECIO Y EL PRODUCTO ADEMAS ES UNA OPCION
EN DESCUENTO DEL 10 %.

Public Class Form1

Dim producto, precio, cantidad, monto, descuento, r As Single
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()

End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

CURSO: LENGUAJE DE PROGRAMACION

precio = [Link]
cantidad = [Link]
monto = precio * cantidad
If [Link] = True Then
descuento = 0.1 * monto
Else
descuento = 0
End If
precio = monto - descuento
[Link] = monto
[Link] = descuento
[Link] = precio

End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
r = MsgBox("desea cerrar esta ventana", [Link])
If r = 6 Then
End

End If
End Sub
4
4
E.A.P UNH
ELECTRÓNICA

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()
End Sub
End Class

56. HALLAR SUS DESCUENTOS DE UN PROFESIONAL COMO EL DEL SEGURO,

DEPENDIENDO DE SU ESTADO LABORAL

Public Class Form1

Dim AFP, FON, ESS, SOLID, CUARTA As Single

Private Sub RadioButton1_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = True
[Link] = True
[Link] = True
[Link] = False
[Link] = False

CURSO: LENGUAJE DE PROGRAMACION

AFP = 0.11 * [Link]
FON = 0.05 * [Link]
ESS = 0.05 * [Link]

[Link] = AFP
[Link] = FON
[Link] = ESS
[Link] = 80

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = True
[Link] = True
[Link] = False
[Link] = False
[Link] = False

AFP = 0.11 * [Link]

FON = 0.05 * [Link]
ESS = 0.05 * [Link]
[Link] = AFP 4
5
E.A.P UNH
ELECTRÓNICA
[Link] = FON
[Link] = ESS
[Link] = 100

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
AFP = 0.11 * [Link]
FON = 0.05 * [Link]
ESS = 0.05 * [Link]
[Link] = AFP
[Link] = FON
[Link] = ESS
[Link] = 160

End Sub

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = False

[Link]()

End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

CURSO: LENGUAJE DE PROGRAMACION

[Link]()
End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]()
End Sub
End Class

4
6
E.A.P UNH
ELECTRÓNICA
57. HACER UN PROGRAMA DONDE SE PUEDA HALLAR EL ÁREA DE UN CIRCULO Y A
LA VEZ EL PEROMETRO DE DICHO CIRCUNFERENCIA.

Public Class Form1

Private Sub But_calcular_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_calcular.Click
Dim radio As Single
Dim perimetro As Single
Dim area As Single
Const pi = 3.14
radio = Text_radio.Text
area = radio * radio * pi
perimetro = 2 * pi * radio
Text_area.Text = area
Text_perimetro.Text = perimetro
End Sub

Private Sub But_nuevo_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_nuevo.Click
Text_radio.Text = ""
Text_area.Text = ""
Text_perimetro.Text = ""
Text_perimetro.SendToBack()
End Sub

Private Sub But_salir_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_salir.Click
End
End Sub
End Class

CURSO: LENGUAJE DE PROGRAMACION

58. REALIZAR UN PROGRAMA DONDE SE PUEDA CALCULAR EL TIPO DE CAMBIO DE

MONEDA ENTRE EL DÓLAR Y EL NUEVO SOL, INGRESANDO EL TIPO DE CAMBIO.

Public Class Form1

Private Sub But_calcular_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_calcular.Click
Dim tipcam As Single
Dim numsol As Single

4
Dim numdol As Long

7
E.A.P UNH
ELECTRÓNICA
tipcam = Text_cambio.Text
numdol = Text_dolares.Text
numsol = (numdol * tipcam)
Text_soles.Text = "s/" + Str(numsol)
End Sub

Private Sub But_nuevo_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_nuevo.Click
Text_cambio.Text = ""
Text_dolares.Text = ""
Text_soles.Text = ""
Text_cambio.SendToBack()
End Sub

Private Sub But_salir_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_salir.Click
End
End Sub
End Class

59. HACER UN PRORGAMA DONDE SE PUEDA HALLAR LA DIVISION,

MULTIPLICACION, RESTA Y SUMA DE DOS NUMEROS PERO SOLO SE PUEDE VER

CURSO: LENGUAJE DE PROGRAMACION

LA RESPUESTA DE UNA OPERACIÓN QUE SERA ELEGIDA.

Public Class Form1

Private Sub But_suma_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_suma.Click
Dim numero1 As Single
Dim numero2 As Single
Dim respuesta As Single
numero1 = Text_numero1.Text
numero2 = Text_numero2.Text
respuesta = numero1 + numero2
Text_operacion.Text = "la operacion elegida es suma"
Text_resultado.Text = respuesta

End Sub

Private Sub But_resta_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_resta.Click
Dim numero1 As Single
Dim numero2 As Single
Dim respuesta As Single
numero1 = Text_numero1.Text
4
8
E.A.P UNH
ELECTRÓNICA
numero2 = Text_numero2.Text
respuesta = numero1 - numero2
Text_operacion.Text = "la operacion elegida es una resta"
Text_resultado.Text = respuesta
End Sub

Private Sub But_multiplicacion_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_multiplicacion.Click
Dim numero1 As Single
Dim numero2 As Single
Dim respuesta As Single
numero1 = Text_numero1.Text
numero2 = Text_numero2.Text
respuesta = numero1 * numero2
Text_operacion.Text = "la operacion elegida es una multiplicacion"
Text_resultado.Text = respuesta
End Sub

Private Sub But_division_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_division.Click
Dim numero1 As Single
Dim numero2 As Single
Dim respuesta As Single
numero1 = Text_numero1.Text
numero2 = Text_numero2.Text
respuesta = numero1 / numero2
Text_operacion.Text = "la operacion elegida es una division"
Text_resultado.Text = respuesta
End Sub

Private Sub But_nuevo_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_nuevo.Click
Text_numero1.Text = ""
Text_numero2.Text = ""
Text_operacion.Text = ""
Text_resultado.Text = ""

CURSO: LENGUAJE DE PROGRAMACION

Text_numero1.SendToBack()

End Sub

Private Sub But_salir_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_salir.Click
End

End Sub

4
9
E.A.P UNH
ELECTRÓNICA

60. HACER UN PROGRAMA DONDE SE PUEDA HALLAR EL AREA DE UN CUADRADO Y

TAMBIEN EL PERIMETRO DE DICHO CUADRADO INTRODUCIENDO EL LADO Y
ADEMAS SE PUEDA LIMPIAR.

Public Class Form1

Private Sub But_calcular_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_calcular.Click
Dim lado As Integer
Dim peri As Integer
Dim area As Integer
lado = Text_lado.Text
peri = 4 * lado
area = lado ^ 2
Text_perimetro.Text = peri
Text_area.Text = area
End Sub

CURSO: LENGUAJE DE PROGRAMACION

Private Sub But_nuevo_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles But_nuevo.Click
Text_lado.Text = ""
Text_perimetro.Text = ""
Text_area.Text = ""
Text_lado.SendToBack()
End Sub

Private Sub But_salir_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_salir.Click
End
End Sub

End Class

5
0
E.A.P UNH
ELECTRÓNICA

61. HALLAR EL AREA Y EL PERIMETRO DE UN RECTANGULO Y ADEMAS INGRESAR

UN COMANDO PARA LIMPIAR LO ESCRITO.

Public Class Form1

Private Sub But_calcular_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_calcular.Click
Dim base As Integer
Dim altura As Integer
Dim primetro As Integer
Dim area As Integer
base = Text_base.Text
altura = Text_altura.Text
primetro = 2 * (base + altura)
area = base * altura
Text_perimetro.Text = primetro
Text_area.Text = area

End Sub

Private Sub But_nuevo_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_nuevo.Click

CURSO: LENGUAJE DE PROGRAMACION

Text_base.Text = ""
Text_altura.Text = ""
Text_perimetro.Text = ""
Text_area.Text = ""
Text_base.SendToBack()
End Sub

Private Sub But_salir_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_salir.Click
End
End Sub
End Class

51
E.A.P UNH
ELECTRÓNICA

62. HALLAR EL PAGO DE UN TROBAJADOR SABIENDO SU JORNAL Y LOS DIAS QUE

TRABAJA.

Public Class Form1

Private Sub But_calcular_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_calcular.Click
Dim jornal As String
Dim diastrabajados As Integer
Dim sueldo As Single
jornal = Text_jornal.Text
diastrabajados = Text_diastrabajados.Text
sueldo = jornal * diastrabajados
Text_sueldo.Text = "S/." + Str(sueldo)
End Sub

Private Sub But_nuevo_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles But_nuevo.Click
Text_jornal.Text = ""
Text_diastrabajados.Text = ""
Text_sueldo.Text = ""
Text_jornal.SendToBack()
End Sub

CURSO: LENGUAJE DE PROGRAMACION

Private Sub But_salir_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles But_salir.Click
End
End Sub
End Class

5
2
E.A.P UNH
ELECTRÓNICA
63. HACER UN PROGRAMA QUE INRGESANDO 4 NUMEROS SE PUEDA HALLAR LA
SUMA DE ELLOS.

Public Class Form1

Private Sub Buttonaceptar_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim n4 As Integer
Dim suma As Integer
n1 = Val([Link])
n2 = Val([Link])
n3 = Val([Link])
n4 = Val([Link])
suma = (n1 + n2 + n3 + n4)

[Link] = Str(suma)

End Sub

End Class

64. HACER UN PROGRAMA QUE DADO TRES NUMROS HALLE EL MAYOR DE ELLOS

CURSO: LENGUAJE DE PROGRAMACION

Public Class Form1

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim n1 As Integer
Dim n2 As Integer
Dim n3, mayor As Integer
n1 = Val([Link])
n2 = Val([Link])
n3 = Val([Link])
If n1 > n2 Then
If n1 > n3 Then
mayor = n1
Else
mayor = n3
End If
Else
If n2 > n3 Then
mayor = n2
Else
mayor = n3
End If
5
3
E.A.P UNH
ELECTRÓNICA
End If
[Link] = Str(mayor)

End Sub
End Class

65. HACER UN PROGRAMA PARA SABER EL ESTADO DE NOTA QUE TIENE UN

ESTUDIANTE.

Public Class Form1

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim p As Integer
Dim c As String
p = Val([Link])

If p >= 0 And p <= 5 Then

c = "muy malo"
Else
End If
If p >= 6 And p <= 10 Then
c = "malo"
Else

CURSO: LENGUAJE DE PROGRAMACION

End If
If p >= 11 And p <= 14 Then
c = "regular"
Else
End If
If p >= 15 And p <= 17 Then
c = "bueno"
Else
End If
If p >= 18 And p <= 20 Then
c = "muy bueno"
End If
[Link] = c

End Sub
End Class

5
4
E.A.P UNH
ELECTRÓNICA

PROGRAMAS EN LABVIEW

66. Porcentaje de carga en un tanque.

CURSO: LENGUAJE DE PROGRAMACION

67. Simulación de un tanque.

5
5
E.A.P UNH
ELECTRÓNICA

68. Escalas de temperatura.

CURSO: LENGUAJE DE PROGRAMACION

69. Ecuación de gases ideales.

5
6
E.A.P UNH
ELECTRÓNICA

70. Simulación función seno.

CURSO: LENGUAJE DE PROGRAMACION

71. Ciclo while: control de nivel

5
7
E.A.P UNH
ELECTRÓNICA

72. Ciclo for: datos aleatorios.

CURSO: LENGUAJE DE PROGRAMACION

73. Estructura case ejemplo 1.

5
8
E.A.P UNH
ELECTRÓNICA

74. Estructura case ejemplo 2.

CURSO: LENGUAJE DE PROGRAMACION

75. Identificación de personal.

5
9
E.A.P UNH
ELECTRÓNICA

76. Estructura case: autentificación de uso.

CURSO: LENGUAJE DE PROGRAMACION

77. Semáforo doble vía.

6
0
E.A.P UNH
ELECTRÓNICA

78. Ecuación de gases ideales.

CURSO: LENGUAJE DE PROGRAMACION

79. Simulación: planta de producción de biogás.

6
1
E.A.P UNH
ELECTRÓNICA

80. Constructor de arreglos de datos.

CURSO: LENGUAJE DE PROGRAMACION

81. Array y random.

6
2
E.A.P UNH
ELECTRÓNICA

82. Matrices (5*6)y(5*5)

CURSO: LENGUAJE DE PROGRAMACION

83. Grafica tipo de N señales.

6
3
E.A.P UNH
ELECTRÓNICA

84. Grafico tipo onda.

CURSO: LENGUAJE DE PROGRAMACION

85. Función seno.

6
4
E.A.P UNH
ELECTRÓNICA

86. Selección de escala de temperatura.

CURSO: LENGUAJE DE PROGRAMACION

87. Área de un círculo.

6
5
E.A.P UNH
ELECTRÓNICA

88. Factorial.

CURSO: LENGUAJE DE PROGRAMACION

89. Dos focos encendidos.

6
6
E.A.P UNH
ELECTRÓNICA

90. Controlador de un tanque de combustible.

CURSO: LENGUAJE DE PROGRAMACION

91. Logaritmo.
6
7
E.A.P UNH
ELECTRÓNICA

92. Un tanque llenado a un nivel alcanzado.

CURSO: LENGUAJE DE PROGRAMACION

93. Determinar la suma y resta de una operación con tres

datos. 6
8
E.A.P UNH
ELECTRÓNICA

94. Determine la suma, resta, multiplicación y división de 5

números ingresados.

CURSO: LENGUAJE DE PROGRAMACION

95. Realizar la adición utilizando la estructura case y obtener

el resultado.
6
9
E.A.P UNH
ELECTRÓNICA

96. un programa y que halla el resultado de 5 promedios

entre los primeros 100 números

CURSO: LENGUAJE DE PROGRAMACION

97. Amplificador.

7
0
E.A.P UNH
ELECTRÓNICA

98. Arreglos de dos dimensiones.

CURSO: LENGUAJE DE PROGRAMACION

99. Control de temperatura. 7

1
E.A.P UNH
ELECTRÓNICA

100. Un nivel llenado completo.

CURSO: LENGUAJE DE PROGRAMACION

101. Medición de un termómetro. 7

2
E.A.P UNH
ELECTRÓNICA

102. multiplicador utilizando un while loop.

CURSO: LENGUAJE DE PROGRAMACION

103. nivel de control de un tanque de agua.

7
3
E.A.P UNH
ELECTRÓNICA

104. Multiplicar por dos y lo mandamos a un indicador

CURSO: LENGUAJE DE PROGRAMACION

105. Al depurar lanza si es verdadero o falso.

7
4
E.A.P UNH
ELECTRÓNICA

106. Regresión polinomica.

CURSO: LENGUAJE DE PROGRAMACION

107. Generador se señales digitales.

7
5
E.A.P UNH
ELECTRÓNICA

108. Cruce de interseccion con cuatro semaforos.

CURSO: LENGUAJE DE PROGRAMACION

109. Una suma y una resta con seleccinador aplicado la

estructura case. 7
6
E.A.P UNH
ELECTRÓNICA

110. Suma de dos elementos y lo promedia.

CURSO: LENGUAJE DE PROGRAMACION

7
7