Algoritmo "Acidente Médio / Residente / Estado"

algoritmo "Média de acidente/habitante/estado"

var

estado, cidade, estadoma, estadome, cidadema, cidademe: literal

nhc, nvc, nav, maiorna, menorna: inteiro

vrs, vsc, vpr, hrs, hsc, hpr, acidenters, acidentesc, acidentepr, aux: inteiro //veiculos por estado e habitantes por estado

mapr, masc, mars, mrs, msc, mpr, medta: real //Média de acidentes e Média de veiculos por estado, e Média total de acidentes

inicio

estado := ("")

cidade := ("")

nhc := 0

nvc := 0

nav := 0

aux := 1

enquanto (aux = 1) faca

//************************************

escreval("Informe o estado PR, SC ou RS ")

leia (estado)

escreval("Informe a cidade")

leia (cidade)

escreval("Informe o número de habitantes da cidade")

leia (nhc)

escreval("Informe o número de veículos da cidade")

leia (nvc)

escreval("Informe o número de acidentes com vitimas na cidade")

leia (nav)

//************************************

// resolução letra A

se (menorna = 0) entao

menorna := nav

estadome := estado

cidademe := cidade

fimse

se (nav < menorna) entao

menorna := nav

estadome := estado

cidademe := cidade

senao

se (nav > maiorna) entao

maiorna := nav

estadoma := estado

cidadema := cidade

fimse

fimse

//************************************

// resolução letra B

se (estado = "pr") entao

hpr := (hpr + nhc)

vpr := (vpr + nvc)

mpr := (vpr/hpr)

senao

se (estado = "sc") entao

hsc := (hsc + nhc)

vsc := (vsc + nvc)

msc := (vsc/hsc)

senao

se (estado = "rs") entao

hrs := (hrs + nhc)

vrs := (vrs + nvc)

mrs := (vrs/hrs)

fimse

fimse

fimse

//************************************

// resolução letra C

se (estado = "pr") entao

acidentepr := (acidentepr + nav)

mapr := (acidentepr/hpr)

senao

...