Anda la osa

C:/Taller practico 1004/John Fredy Crespo Botero-Wilson Pino Chancí 1004

Dim A, P, B, H As Double
Console.writeline (“Ingrese la base del rectángulo”)
B= Console.readline
Console.writeline(“Ingrese la altura del rectángulo”)
H= Console.readline
Console.writeline (“El área del rectángulo es:”)
A= B * H
Console.writeline (A)
Console.writeline (“El perímetro del rectángulo es:”)
P= B + H+ B + H
Console.writeline (P)

Dim A1, A2, A3, Total As Double
Console.writeline (“Ingrese el valor del primer articulo”)
A1= console.readline
Console.writeline (“Ingrese el valor del segundoarticulo”)
A2= console.readline
Console.writeline (“Ingrese el valor del tercer articulo”)
A3= console.readline
Console.writeline (“El total a pagar es:”)
Total= A1 + A2 + A3
Console.writeline(Total)

Dim S1, S2, S3, A1, A2, A3, NS1, NS2, NS3 As Double
Console.writeline (“Ingrese el primer salario”)
S1= console.readline
Console.writeline (“Ingrese el segundo salario”)
S2=console.readline
Console.writeline (“Ingrese el tercer salario”)
S3= console.readline
A1= S1 * 10 / 100
A2= S2 * 12 / 100
A3= S3 * 15 / 100
Console.writeline (“El primer salario nuevo es:”)
NS1= S1 + A1Console.writeline (NS1)
Console.writeline (“El segundo salario nuevo es:”)
NS2= S2 + A2
Console.writeline (NS2)
Console.writeline (“El tercer salario nuevo es:”)
NS3= S3 + A3
Console.writeline(NS3)

Dim r, A As Double
Console.writeline (“Ingrese el valor del radio”)
r= Console.readline
Console.writeline (“El área del circulo es:”)
A= 3,1416 * r * r
Console.writeline (A)

Dim CD, IN,CF As Double
Console.writeline (“Ingrese la cantidad depositada”)
CD= Console.readline
IN= CD * 20 / 100
Console.writeline (“La cantidad final es:”)
CF= CD + IN
Console.writeline (CF)

Dim Ch,Cm, Ne, Ph, Pm As Double
Console.writeline (“Ingrese la cantidad de hombres”)
Ch= Console.readline
Console.writeline (“Ingrese la cantidad de mujeres”)
Cm= Console.readline
Console.writeline...