Algoritmos em Pseudocódigo: Cálculo de Distâncias, Pesquisa Musical e Matrizes

Cálculo de Distâncias Percorridas por Ônibus Intermunicipais

Algoritmo

Defina o tipo das variáveis

Leia a Tabela de Distâncias

repita

leia Onibus {Leitura do número de uma linha de ônibus}

se Onibus = 0 então interrompa

fim se

leia NumeroDeCidades {Leitura do percurso da linha de ônibus}

N ← 1

repita

se N > NumeroDeCidades então interrompa

fim se

leia Cidades[N]

fim repita

Calcule a distância percorrida pelo ônibus

escreva DistanciaPercorrida

fim repita

fim algoritmo

Referência: Calcule a distância percorrida pelo ônibus

DistanciaPercorrida ← 0

N ← 1

repita

se N = NumeroDeCidades então interrompa

fim se

DistanciaPercorrida ← DistanciaPercorrida + TabelaDeDistancias[Cidades[N], Cidades[N+1]]

N ← N + 1

fim repita

fim ref

Referência: Leia a tabela de distâncias

escreva “Digite em 29 linhas a parte triangular inferior da Tabela de Distâncias”

TabelaDeDistancias[1, 1] ← 0

I ← 2

repita

se I > 30 então interrompa

fim se

J ← 1

repita

se J = I então interrompa

fim se

leia TabelaDeDistancias[I, J]

TabelaDeDistancias[J, I] ← TabelaDeDistancias[I, J]

J ← J + 1

fim repita

TabelaDeDistancias[I, I] ← 0

I ← I + 1

fim repita

fim Ref

Referência: Defina o tipo das variáveis

declare TabelaDeDistancias[1:30, 1:30] numérico

declare Cidades[1:24] numérico

declare I, J, N, Onibus, NumeroDeCidades, DistanciaPercorrida numérico

fim ref

Pesquisa Musical de uma Emissora de Rádio

Algoritmo

Defina o tipo das variáveis

i ← 1

repita

se i > 500 então interrompa

fim se

leia Nomes[i], Musicas[i]

i ← i + 1

fim repita

Acumule os votos que cada música obteve

Compare a votação e determine a vencedora

Escreva os nomes dos que citaram a música vencedora

fim algoritmo

Referência: Acumule os votos que cada música obteve

Zerar o vetor VotosMusica

i ← 1

repita

se i > 500 então interrompa

fim se

VotosMusica[Musicas[i]] ← VotosMusica[Musicas[i]] + 1

i ← i + 1

fim repita

fim ref

Referência: Zerar o vetor VotosMusica

i ← 1

repita

se i > 30 então interrompa

fim se

VotosMusica[i] ← 0

i ← i + 1

fim repita

fim ref

Referência: Compare a votação e determine a vencedora

Maior ← VotosMusica[1]

MusicaVencedora ← 1

i ← 2

repita

se i > 30 então interrompa

fim se

se VotosMusica[i] > Maior então

Maior ← VotosMusica[i]

MusicaVencedora ← i

fim se

i ← i + 1

fim repita

fim ref

Referência: Escreva os nomes dos que citaram a música vencedora

i ← 1

repita

se i > 500 então interrompa

fim se

se Musicas[i] = MusicaVencedora então

escreva Nomes[i]

fim se

i ← i + 1

fim repita

fim ref

Referência: Defina o tipo das variáveis

declare i, MusicaVencedora numérico

declare Maior numérico

declare Nomes[1:500] literal

declare Musicas[1:500], VotosMusica[1:30] numérico

fim ref

Determina se uma Matriz é Diagonal Estritamente Dominante

Algoritmo

Defina o tipo das variáveis

leia n

leia A[1,1], A[1,2] ... A[n,n]

Dominante ← verdadeiro

i ← 1

repita

Calcule o soma dos valores da linha i, exceto o valor da diagonal

se Abs(A[i,i]) = Soma então Dominante ← falso

fim se

i ← i + 1

se (i > n) ou (não Dominante) então interrompa

fim se

fim repita

se Dominante então escreva “Matriz é Diagonal Estritamente Dominante”

senão escreva “Matriz não é Diagonal Estritamente Dominante”

fim se

fim algoritmo

Referência: Calcule o soma dos valores da linha i, exceto o valor da diagonal

Soma ← 0

k ← 1

repita

Soma ← Soma + Abs(A[i,k])

k ← k + 1

se k > n então interrompa

fim se

fim repita

fim ref

Referência: Defina o tipo das variáveis

declare A[1:10, 1:10] numérico

declare n, i, k, Soma numérico

declare Dominante lógico

fim ref

Determina Matriz Transposta

Algoritmo

Defina o tipo das variáveis

leia M, N

leia A[1, 1], A[1, 2], ... A[M, N]

L ← 1

repita

se L > M então interrompa

fim se

C ← 1

repita

se C > M então interrompa

fim se

TA[C, L] ← A[L, C]

C ← C + 1

fim repita

L ← L + 1

fim repita

escreva TA[1, 1], TA[1, 2], ... TA[N, M]

fim algoritmo

Referência: Defina o tipo das variáveis

declare A[1:20, 1:50], TA[1:50, 1:20] numérico

declare M, N, L, C, K numérico

fim ref