Practica de programaci n


UNIVERSIDAD TECNOLOGICA DE PANAMA
CENTRO REGIONAL DE COCLE
FACULTAD DE INGENIERIA CIVIL

TEMA
ELABORACION DE PROGRAMAS

PERTENECE A

ASIGNATURA
PROGRAMACION

GRUPO

AÑO
II DIURNO

FECHA DEENTREGA
07/ 05 / 2015





Practica
1. Escribir un programa que calcule el area de un triangulo recibiendo como entrada el valor de la base y altura.
Datos: área = (base*altura)/2

Module AREA'programa que calcule el area de un triangulo'
Sub Main()
Console.WriteLine(" programa que calcule el area de un triangulo ")

Dim base, altura, area As Integer
area = 0Console.WriteLine("base: ")
base = Console.ReadLine
Console.WriteLine("introduzca altura")
altura = Console.ReadLine
Console.WriteLine("el area es igual a la base poraltura")
area = (base * altura) / 2
Console.WriteLine("el area es:" & area)
Console.ReadLine()

End Sub

End Module

2. Escribir un programa que intercambie el valor de dosvariables

Module Variable
'programa que intercambie el valor de dos variables'
Sub Main()
Console.WriteLine("intercambio de dos variables")

Dim A, B, C As Integer
A =0
Console.WriteLine("B: ")
B = Console.ReadLine
Console.WriteLine("introduzca C")
C = Console.ReadLine
Console.WriteLine("A es igual a B más C")
A = B+ C
Console.WriteLine("A es: " & A)
Console.ReadLine()

End Sub

End Module






3. Programa que calcule la edad del usuario
Module Module1
'programa que permita calcular laedad del usuario'
Sub Main()
Console.WriteLine("programa que calcule la edad del usuario")
Dim Edad, Año, Fecha As Integer
Edad = 0
Console.WriteLine("año: ")Año = Console.ReadLine
Console.WriteLine("introduzca fecha")
Fecha = Console.ReadLine
Console.WriteLine("la edad del usuario es igual al año actual menos la fecha de...