pseudocode cec. Are nevoie de validare pentru atribuirea

Question

pseudocode cec. Are nevoie de validare pentru atribuirea

voturi

5

Am transformat deja acest lucru în așa că nu va fi ajutându-mă înșele. Doar întrebam dacă acest lucru pare drept:

Atribuirea: de intrare o listă de nume și a salariilor angajaților, și se determină (medie) salariul mediu precum și numărul de salarii de mai sus și sub medie.

Planul: Permite introducerea numelor și a salariilor valori Sortare Calculați medie a numărului de valori de peste medie a numărului de valori medii de mai jos

//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

Întrebat 12/06/2009 la 00:02
sursa de către utilizator gooddadmike

În alte limbi...

3 răspunsuri

voturi

5

Se pare OK. Singurul lucru pe care am să sugerez, este de a utiliza o structură do-în timp ce în timp ce citesc de intrare la numele / Salery. După cum puteți vedea aveți aceeași logică înainte de a începe bucla, și în bucla:

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

De asemenea, codul pseudo nu va compila, din moment ce apelați Calculați dar rutina se numește de calcul;)

Multumesc pentru sugestii. Nu a fost într-adevăr familiarizat încă cu Do-while. Cum ar arăta asta? Am deși poate ceva despre intrare ar trebui să se schimbe în bucla, dar nu era sigur cum.

Ar putea arăta ceva de genul asta:

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)

Nu este într-adevăr o mare diferență, dar mai mult o chestiune de gust cu adevărat. Personal, cred că este mai ușor de citit, deoarece codul este scris în așa fel încât să-ți dai seama cu ușurință că ar trebui să introduceți ceva, verificați de intrare și de a face ceva în funcție de intrare.

În bucla dumneavoastră în timp ce Set COUNTmin, etc veni după (în fluxul de text) prima intrare, dar înainte de restul de intrare, ceea ce înseamnă că trebuie să te uiți înapoi în partea de sus a buclei pentru a înțelege că face ceva după precedentul „rotund“ în buclă. Acum, aceasta este doar o buclă mică, dar dacă a fost mult timp de 30 de rânduri (Doamne ferește) pe care le-ar trebui să derulați în sus pentru a vedea ce se întâmplă. Dacă mă înţelegeţi :)

Publicat 12/06/2009 la 00:12
sursa de către utilizator ralphtheninja

voturi

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

Publicat 13/11/2016 la 04:29
sursa de către utilizator Srivikram

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

O notă despre calcul CountDwn:

Dvs. „scade 1 a reconcilia“ va fi, în funcție de modul exact de Forlucrări bucla în limba de punere în aplicare, (a) să genereze o eroare de tip „variabilă nedeclarată“, (b) generează un „indice în afara intervalului“ eroare, sau (c ) scade un IFF ultimul salariu a fost exact egală cu media. ( De asemenea, codul dvs. nu include o End Forîn Calculation, dar presupun că ar trebui să fie imediat după prima End Ifîn această funcție.)

În loc de calcul de CountDwnla CountUp( la urma urmei, fiecare salariu unic ar putea fi egală cu media), aș sugera includerea ei în bucla:

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

Rețineți că CountUp + CountDwnnu este neapărat egal CountM.