Cheque de pseudocódigo Necesita validación para la asignación

Question

Cheque de pseudocódigo Necesita validación para la asignación

votos

5

Ya he entregado esto para que no me ayudes a hacer trampa. Me preguntaba si esto se ve bien:

La tarea: Ingrese una lista de nombres de empleados y salarios, y determine el salario promedio (promedio) así como la cantidad de salarios por encima y por debajo de la media.

El plan: Permitir la entrada de nombres y salarios Calcular los valores de clasificación promedio Los valores de conteo superiores a los valores de conteo medios por debajo de la media

//This program will allow a user to input an employee name and salary
//The output will contain the mean salary 
//as well as the number of salaries above and below the mean
//
//Arrays Used:
//Name(K) = Array for employee names
//Salary(K) = Array for salaries
//
//Variables Used:
//Mean = Mean of all employees Salaries
//UpMean = Number of Employees making more than the mean
//DwnMean = Number of Employees making less than the mean
//Sum = Sum of all salaries
//CountM = Counter for Mean
//CountUp = Counter for # of salaries above mean
//CountDwn = Counter for # of salaries below mean

Main
    Call WelcomeMessage
    Call InputData
    Call Calculate
    Call OutputData
End Program

WelcomeMessage
    Write, “Beginning the Salary Program” 
End WelcomeMessage

InputData
    Declare Name(100) Of Strings
    Declare Salary(100) Of Real
    Declare Mean, UpMean, DwnMean As Real
    Set Sum = 0
    Set CountM = 0
    Set CountUp = 0
    Set CountDwn = 0
    Write, Enter Employee name and Salary.
    Write, Enter *,0 when done.
    Input Name(K), Salary(K)
    While Name(K) <> *
        Set CountM = CountM + 1
        Set Sum = Sum + Salary
        Write, Enter Employee name and Salary.
        Write, Enter *,0 when done.
        Input Name(K), Salary(K)
    End While
End InputData

Calculation
    //Here Mean is found
    Set Mean = Sum / CountM
    //Here Number of Employees making more than the mean is found
    For K = Step 1 to CountM
        If Salary(K) > Mean Then
            Set CountUp = CountUp + 1
        End If
    //Here Number of Employees making more than the mean is found
    Set CountDwn = CountM - CountUp
    //The above algorythm doesn't account for the possibility 
    //of someone making exactly the average so subtract 1 to reconcile
    If Salary(K) = Mean Then
            Set CountDwn = CountDwn - 1
    End If
End Calculation

OutputData
    Write, There were,  CountM, salaries entered.
    Write, The mean salary is:, Mean
    Write, There are, CountUp, employees who make more than the average
    Write, There are, CountDwn, employees who make less than the average
End OutputData

vb.net pseudocode

Publicado el 12/06/2009 a las 00:02
fuente por usuario gooddadmike

En otros idiomas...

3 respuestas

votos

5

Se ve bien. Lo único que tengo que sugerir es usar una estructura do-while mientras leo la entrada al nombre / salery. Como puede ver, tiene la misma lógica antes de que comience el ciclo, y en el ciclo:

Write, "Enter Employee name and Salary."
Write, "Enter *,0 when done."
Input Name(K), Salary(K)

Además, el pseudo código no se compilará, ya que está llamando a Calcular, pero la rutina se llama Cálculo;)

Gracias por las sugerencias. Todavía no estoy familiarizado con Do-While. Como se veria eso? Pensé que tal vez algo sobre la entrada debería cambiar en el ciclo, pero no estaba seguro de cómo.

Podría verse algo como esto:

Do 
    Write, "Enter Employee name and Salary."
    Write, "Enter *,0 when done."
    Input Name(K), Salary(K)
    If Name(K) <> "*"
        Set CountM = CountM + 1
        Set Sum = Sum + Salary
    Else
        BreakLoop
    End If
End While (true)

No es realmente una gran diferencia, sino más bien una cuestión de gusto realmente. Personalmente, creo que es más fácil de leer, ya que el código está escrito de tal manera que fácilmente se da cuenta de que se supone que debe ingresar algo, verificar la entrada y hacer algo dependiendo de la entrada.

En su ciclo While, Set CountM, etc., aparece después (en el flujo de texto) la primera entrada, pero antes del resto de la entrada, lo que significa que debe mirar hacia atrás en la parte superior del ciclo para comprender que hace algo después del anterior "redondo" en el circuito. Ahora bien, este es solo un pequeño bucle, pero si tuviera 30 filas (Dios no lo quiera) tendrías que desplazarte hacia arriba para ver qué está pasando. Si sabes a lo que me refiero :)

Respondida el 12/06/2009 a las 00:12
fuente por usuario ralphtheninja

votos

0

FINAL ALGORITHM

START
OUTPUT "Enter the number of parcels"
INPUT NUMBEROFPARCELS
INTEGER PRICE = 0
INTEGER PARCELWEIGHT [1:NUMBEROFPARCELS]
INTEGER TOTALPRICE = 0

FOR PARCELLOOP = 1 TO NUMBEROFPARCELS
    INTEGER REJECT = 0
    INTEGER ACCEPT = 0
    INTEGER ACCEPTWEIGHT = 0
    INTEGER REJECTEDPARCELS = 0

    OUTPUT "Enter the weight of the parcel in kg"
    INPUT WEIGHT
    IF (WEIGHT < 1) THEN
        REJECT = REJECT + 1
        OUTPUT "The weight of the parcel should be atleast 1kg"
    ELSE
        IF (WEIGHT > 10) THEN
            REJECT = REJECT + 1
            OUTPUT "The weight of the parcel should be less than 10kg"
    ENDIF
    IF (WEIGHT > 1) THEN
        IF (WEIGHT < 10) THEN
            PARCELWEIGHT[PARCELLOOP] = WEIGHT
        ENDIF
    ENDIF


    OUTPUT "Enter the first dimension of the parcel in cm"
    INPUT DIMENSION1
    IF (DIMENSION1 > 80 ) THEN
        REJECT = REJECT + 1
        OUTPUT "Each dimension of the parcel should be less than 80"
    ENDIF

    OUTPUT "Enter the second dimension of the parcel in cm"
    INPUT DIMENSION2
    IF (DIMENSION2 > 80 ) THEN
        REJECT = REJECT + 1
        OUTPUT "Each dimension of the parcel should be less than 80"
    ENDIF

    OUTPUT "Enter the third dimension of the parcel in cm"
    INPUT DIMENSION3
    IF (DIMENSION3 > 80 ) THEN
        REJECT = REJECT + 1
        OUTPUT "Each dimension of the parcel should be less than 80"
    ENDIF

    TOTALDIMENSION = DIMENSION1 + DIMENSION2 + DIMENSION3
    IF (TOTALDIMENSION > 200 ) THEN
        REJECT = REJECT + 1
        OUTPUT "The size of the parcel should be less than 200cm"
    ENDIF

    IF (REJECT > 0 ) THEN
        OUTPUT "Your parcel has been rejected for the reasons above"
        REJECTEDPARCELS = REJECTEDPARCELS + 1
    ENDIF

    IF (REJECT = 0)THEN
        OUTPUT "Your parcel has been accepted"
        ACCEPT = ACCEPT + 1 
        ACCEPTWEIGHT = ACCEPTWEIGHT + WEIGHT
    END IF

    INTEGER PARCELSACCEPTED = ACCEPT
    INTEGER TOTALWEIGHT = ACCEPTWEIGHT
    INTEGER PARCELSREJECTED = REJECTEDPARCELS

    OUTPUT "The number of parcels accepted is " PARCELSACCEPTED " and the total weight of the parcels is " TOTALWEIGHT
    OUTPUT "The number of parcels rejected is " PARCELSREJECTED
NEXT PARCELLOOP

FOR PRICELOOP = 1 TO NUMBEROFPARCELS
    IF (PARCELWEIGHT[PARCELLOOP] < 5) THEN
        PRICE = PRICE + 10
        TOTALPRICE = TOTALPRICE +PRICE
    END IF

    IF (PARCELWEIGHT[PARCELLOOP] > 5) THEN
        PRICE = ((PARCELWEIGHT[PARCELLOOP] - 5)*0.10)/100
        TOTALPRICE = TOTALPRICE +PRICE
    END IF

    OUTPUT "The price of the parcel is " PRICE
NEXT PRICELOOP

OUTPUT "The total price of all the parcels is " TOTALPRICE
STOP

Respondida el 13/11/2016 a las 01:29
fuente por usuario Srivikram

Ben Blank · Accepted Answer · 2009-06-12 00:50

Una nota sobre el cálculo CountDwn:

Su "resta 1 para conciliar" dependerá de cómo funciona exactamente el Forbucle en el lenguaje de implementación, (a) genera un error de tipo "variable no declarada", (b) genera un error "índice fuera de rango", o (c ) restar un IFF el último salario fue exactamente igual al promedio. (Además, su código no incluye una End Foren Calculation, pero supongo que debe ser inmediatamente después de la primera End Ifen esa función.)

En lugar de calcular CountDwndesde CountUp(después de todo, cada salario puede ser igual al promedio), sugiero incluirlo en el ciclo:

Calculation
    //Here Mean is found
    Set Mean = Sum / CountM

    For K = Step 1 to CountM
        //Here Number of Employees making more than the mean is found
        If Salary(K) > Mean Then
            Set CountUp = CountUp + 1
        End If

        //Here Number of Employees making less than the mean is found
        If Salary(K) < Mean Then
            Set CountDwn = CountDwn + 1
        End If
    End For
End Calculation

Tenga en cuenta que CountUp + CountDwnno es necesariamente igual a CountM.