Algoritmo

Exercicio 1 A

algoritmo "exercicio 1a"

// Função :

// Autor :

// Data : 26/11/2014

// Seção de Declarações

var

mat : vetor [1..7,1..7] de inteiro

ori, dest : inteiro

i,j, a, b :inteiro

inicio

//preenchendo os valores da matriz

mat[1,2]<-2

mat[2,1]<-2

mat[1,3]<-11

mat[3,1]<-11

mat[1,4]<-6

mat[4,1]<-6

mat[1,5]<-15

mat[5,1]<-15

mat[1,6]<-11

mat[6,1]<-11

mat[1,7]<-1

mat[7,1]<-1

mat[2,3]<-7

mat[3,2]<-7

mat[2,4]<-12

mat[4,2]<-12

mat[2,5]<-4

mat[5,2]<-4

mat[2,6]<-2

mat[6,2]<-2

mat[2,7]<-15

mat[7,2]<-15

mat[3,4]<-11

mat[4,3]<-11

mat[3,5]<-8

mat[5,3]<-8

mat[3,6]<-3

mat[6,3]<-3

mat[3,7]<-13

mat[7,3]<-13

mat[4,5]<-10

mat[5,4]<-10

mat[4,6]<-2

mat[6,4]<-2

mat[4,7]<-1

mat[7,4]<-1

mat[5,6]<-5

mat[6,5]<-5

mat[5,7]<-13

mat[7,5]<-13

mat[6,7]<-14

mat[7,6]<-14

escreval ("digite a cidade de origem:")

leia (a)

escreval ("digite a cidade de destino:")

leia (b)

escreval ("o tempo de viagem sera de", mat[a,b], "horas")

fimalgoritmo

Exercicio 1 B

algoritmo "exercicio 1b"

// Função :

// Autor :

// Data : 26/11/2014

// Seção de Declarações

var

mat: vetor [0..7,0..7] de inteiro

ori, dest: inteiro

s:inteiro

inicio

//preenchendo os valores da matriz

mat[1,2]<-2

mat[2,1]<-2

mat[1,3]<-11

mat[3,1]<-11

mat[1,4]<-6

mat[4,1]<-6

mat[1,5]<-15

mat[5,1]<-15

mat[1,6]<-11

mat[6,1]<-11

mat[1,7]<-1

mat[7,1]<-1

mat[2,3]<-7

mat[3,2]<-7

mat[2,4]<-12

mat[4,2]<-12

mat[2,5]<-4

mat[5,2]<-4

mat[2,6]<-2

mat[6,2]<-2

mat[2,7]<-15

mat[7,2]<-15

mat[3,4]<-11

mat[4,3]<-11

mat[3,5]<-8

mat[5,3]<-8

mat[3,6]<-3

mat[6,3]<-3

mat[3,7]<-13

mat[7,3]<-13

mat[4,5]<-10

mat[5,4]<-10

mat[4,6]<-2

mat[6,4]<-2

mat[4,7]<-1

mat[7,4]<-1

mat[5,6]<-5

mat[6,5]<-5

mat[5,7]<-13

mat[7,5]<-13

mat[6,7]<-14

mat[7,6]<-14

Escreval (" Digite a primeira cidade:")

Leia (ori)

Repita

Escreval ("Digite a segunda cidade")

Leia (dest)

S<- s+mat[ori,dest]

ori<-dest