PROGRAMACION

-91440068METODOLOGÍA DE
LA
PROGRAMACIÓN I
PRÁCTICA DIRIGIDA 03 Y 04
00METODOLOGÍA DE
LA
PROGRAMACIÓN I
PRÁCTICA DIRIGIDA 03 Y 04

La comisión sobre las ventas totales de un empleado es como sigue:
Si ventas <5000 unidades monetarias no hay comisión.
Si esta entre 5000 y 50000 unidades monetarias incluidos, entonces la comisión es el 10% de las ventas.
Si lasventas > 50000, entonces la comisión es 5000 más 8% de las ventas.
El programa debe calcular la comisión cuando se ingresa las ventas.
Imports System
Imports System.ConsoleModule Module1
Sub Main() WriteLine("¿cuantos nuevos soles es la comision por ventas?")
Dim n, c As Double WriteLine("ingrese cuanto es la venta del trabajador")
n = ReadLine()Select Case n
Case Is < 5000
c = 0
Case 5000 To 50000
c = n * 0.1
Case Is > 50000
c = 5000 + n * 0.08
End Select Write("la comision correspondiente es: " & c)
Write(" nuevos soles")
ReadKey() End Sub
End Module

2.-Programa donde se ingresa el sueldo de untrabajador, su categoría (A, B, C) y su año de ingreso. Luego calcula su nuevo saldo, según:
Categoría “A”: 15% para los que ingresaron antes de 1980 y 12% para el resto.
Categoría “B”: 20% para los que ingresaron antes de 1980 y 17% para el resto.
Categoría “C”: 25% para los que ingresaron antes de 1980 y 22% para el resto.
Imports System
Imports System.ConsoleModule Module1
Sub Main()WriteLine("----cuanto es el nuevo sueldo de un trabajador----")
Dim a As Integer
Dim s, ns As Double
Dim ca As String WriteLine("ingrese el sueldo del trabajador:::)")
s = ReadLine() WriteLine("ingrese la categoria del trabajador:::)")
ca = ReadLine() WriteLine("ingrese el año de ingreso del trabajador:::)")
a =ReadLine() Select Case ca
Case "A", "a"
If a < 1980 Then
ns = s * 1.15
Else
ns = s * 1.12
End If
Case "B", "b"
If a < 1980 Then
ns = s * 1.2
Else
ns = s * 1.17
End IfCase "C", "c"
If a < 1980 Then
ns = s * 1.25
Else
ns = s * 1.22
End If
Case Else
WriteLine("la categoria no es valida ingrese A,B o C")
End Select WriteLine("el nuevo sueldo del trabajador es :" & ns)
ReadKey() End Sub
End Module

Programaque calcule los n números consecutivos.
Imports System
Imports System.ConsoleModule Module1
Sub Main() WriteLine("programa q imprime los n numeros consecutivos")
Dim n, c As Integer Write("ingrese el valor de n::::)")
n = ReadLine() c = 0
While n > c
c = c + 1
Write(" " & c)
End While
ReadKey()End Sub
End Module

Programa que calcule los divisores de un número natural.
Imports System
Imports System.ConsoleModule Module1
Sub Main() Dim x, d As Integer
WriteLine("calculadora de divisores de un numero")
WriteLine("ingrese el numero:::)")
x = ReadLine() d = 0
While d <= x
d = d + 1
If x Mod d = 0Then
WriteLine("los divisores son: " & d)
End If
End While
ReadKey() End Sub
End Module

Programa que determina si un número natural es primo.
Imports System
Imports System.ConsoleModule Module1
Sub Main() Dim x, d, t As Long
Dim q As String WriteLine("primo o no")
WriteLine("ingrese el numero:::)")...