Visual FoxPro (Lenguaje Visual)

                            EJERCICIOS

1.- Programa que lea tres números enteros y determine el numero mayor, el menor y el central.

Close All
Clear
Input "introduzca el valor de A?" to nA
Input "introduzca el valor de B?" to nB
Input "introduzca el valor de C?" to nC
If nA > nB Then
        nMay = nA
        nMen = nB
Else
        nMay = nB
        nMen = nA
EndIF
If nC > nMay Then
        nCen = nMay
        nMay = nC
Else
If nC > nMen then
        nCen= nC
Else
        nCen = nMen
        nMen = nC

     EndIf
EndIf
? "Mayor =" + Str (nMay)
? "Central =" + Str (nCen)
? "Menor =" + Str (nMen)

2.-El ejercicio consiste en escribir una función que reciba como argumento de entrada una cadena de caracteres y la devuelva de forma inversa, por ejemplo si se ingresa la cadena de corazón deberá retornar nazaroc.

Close All
Clear
Accep "Ingrese una cadena" To nCadena
? "Cadena Invertida =" + CadInv (cCadena)

Function CadInv
        Parametes cCadena
        nN= Len (Alltrim(cCadena))
        For nI = 1 To nN
          cTemporal (nI) = SubStr (cCadena, nI, 1)
        Next
         cInvertida = ""
        For nJ = nN to 1 Step-1
          cInvertida = cInvertida + cTemporal  (nJ)
        Next J
Return CInvertida

3.-Un restaurante ofrece un descuento del 10% para consumos entre $30.00 y $50.00; un descuento des 20% para consumos mayores a $50.00; para todos los demás casos no se aplica ningún tipo de descuento. El ejercicio consiste en elaborar un programa que permita determinar el importe a pagar por el consumidor.

Close All 

Clear 

Do While .T.

        Input "Consumo:" To nConsumo

        If Type 

4.-El ejercicio consiste en escribir un programa que lea "n" enteros y calcule la suma total, la medida aritmetica, el máximo y el mínimo de los datos 

Close All 

Clear 

Input "ingrese cantidad de numeros?" To nN

Declare aVector (nN)

For nI = 1 To nN

        Input "Numero ["+ Str (nI) +"]?" To aVector (nI)

Next 

nMax = aVector [1]

nMin = aVector[1]

nSuma = 0

For Ni = 1 To nN

        nSuma = nSuma + aVector [nI]

        If aVector [nI] > nMax Then 

            nMax = aVector [nI]

        Endif 

        If aVEctor [nI] < nMin Then 

            nMin = aVector [nI]

        Endif 

Next 

nMedia = nSuma /nN

? "Suma =" + Str (nSuma)

?" Media =" +Str (nMedia, 10,2)

?" Maximo =" + Str (nMax) 

?" Minimo =" + Str (nMin)