Visual Basic

1. Dim A,T,V As Double

Dim E As Double

‘ ingresar el tiempo del móvil

Console.write(“ingrese el tiempo del móvil: ”)

T=console.readline

‘ingresar la velocidad del móvil

Console.write(“ingresar la velocidad del móvil: “)

V=console.readline

‘ingresar la aceleración del móvil

Console.write(“ingrese la aceleración del móvil: ”)

A =console.readline

‘calculamos el espacio recorrido

E=V*T+0.5*A*(T*T)

‘mostramos el espacio recorrido por el móvil

Console.writeline(“el espacio recorrido por el móvil es: {0}”, E)

console.readline()

2. Dim N1,N2,N3 As Double

Dim Pf As Double

‘ ingresar la primera nota

Console.write(“ingrese la primera nota: ”)

N1=console.readline

‘ ingresar la segunda nota

Console.write(“ingresar la segunda nota: “)

N2=console.readline

‘ ingresar la tercera nota

Console.write(“ingrese la tercera nota : ”)

N3 =console.readline

‘calculamos el promedio final

Pf=(N1+N2+N3) 1/3

‘mostramos el promedio final

Console.writeline(“el promedio final es: {0}”, Pf)

console.readline()

3. Dim Ppd,E,F,M As Double

Dim Pj As Double

‘ ingresar días del mes de Enero

Console.write(“ingrese días del mes de Enero: ”)

E=console.readline

‘ ingresar días del mes de Febrero

Console.write(“ingrese días del mes de Febrero: ”)

F=console.readline

‘ ingresar días del mes de Marzo

Console.write(“ingrese días del mes de Marzo: ”)

M=console.readline

‘ ingresar pago por dia

Console.write(“ingrese Pago por dia: ”)

Ppd=console.readline

‘calculamos el pago jornal

Pj=Ppd*(E+F+M)

‘mostramos el pago jornal

Console.writeline(“el pago jornal es: {0}”, Pj)

console.readline()

4. Dim Npg,Npe,Ppg,Ppe ,Ppp,Npp As Integer

Dim Pt As Integer

‘ ingresar numero de partidos ganados

Console.write(“ingrese numero de partidos ganados : ”)

Npg=console.readline

‘ingresar numero de partidos empatados

Console.write(“ingrese numero de partidos empatados: ”)

Npe=console.readline

‘ingresar numero de partidos perdidos

Console.write(“ingrese numero de partidos perdidos: ”)

Npp=console.readline

‘calculamos el puntaje de partidos ganados

Ppg=Npg*3

‘calculamos el puntaje de partidos empatados

Ppe=Npe*1

‘calculamos el puntaje de partidos perdidos

Ppp=Npp*0

‘calculamos el puntaje total

Pt=Ppg+Ppe+PPP

‘mostramos el puntaje total

Console.writeline(“el puntaje total es: {0}”, Pt)

console.readline()

5. Dim Hl,Tph As integer

Dim Pt As Integer

‘ingresar horas laboradas

Console.write(“ingrese horas laboradas : ”)

Hl=console.readline

‘ingresar la tarifa por hora

Console.write(“ingrese tarifa por hora : ”)

Tph=console.readline

‘calculamos el pago total

Pt=Hl*Tph

‘mostramos el pago total

Console.writeline(“el pago total es: {0}”, Pt)

console.readline()

6. Dim a,b,c,Sp As Integer

Dim A As Integer

‘ingresar lado a

Console.write(“ingrese lado a : ”)

a=console.readline

‘ingresar lado b

Console.write(“ingrese lado b : ”)

b=console.readline

‘ingresar lado c

Console.write(“ingrese lado c : ”)

c=console.readline

...