Algoritmo das posições pares e ímpares

algoritmo "Vetor_invertido"
// Função :
// Autor :
// Data : 16/06/2011
// Seção de Declarações
var
A,B: vetor [1..10] de real
i,cont: inteiro
inicio
para i de 1 ate 10 faca
Escreval("digite um número")
Leia (A [i])
fimpara
para i de 1 ate 10 faca
cont<-cont+1
se (cont mod 2=0) entao
B[cont]<- (A[i]*2)
fimse
se (cont mod 2=1) entao
B[cont]<- (A[i]*0.5)
Fimse
fimpara
para i de 1 ate 10 faca
Escreval (B[i])
fimpara
fimalgoritmo

colocar 15 cidades e ordená-las

algoritmo "Vetor_cidade"
// Função :
// Autor :
// Data : 16/03/2007
// Seção de Declarações
var
res:caractere
cidade: vetor [1..15] de caractere
j,i: inteiro
inicio
para i <- 1 ate 15 faca
escreval ("Digite um nome de cidade")
leia (cidade[i])
fimpara
para i de 1 ate 14 faca
para j de i+1 ate 15 faca
Se (cidade[i] > cidade[j]) entao
res <- cidade [i]
cidade[i] <- cidade[j]
cidade[j] <- res
fimse
fimpara
fimpara
para i <- 1 ate 15 faca
escreval(cidade[i])
fimpara
// Seção de Comandos
fimalgoritmo

colocar 15 cidades e ordená-las

algoritmo "Vetor_cidade"
// Função :
// Autor :
// Data : 16/03/2007
// Seção de Declarações
var
res:caractere
cidade: vetor [1..15] de caractere
j,i: inteiro
inicio
para i <- 1 ate 15 faca
escreval ("Digite um nome de cidade")
leia (cidade[i])
fimpara
para i de 1 ate 14 faca
para j de i+1 ate 15 faca
Se (cidade[i] > cidade[j]) entao
res <- cidade [i]
cidade[i] <- cidade[j]
cidade[j] <- res
fimse
fimpara
fimpara
para i <- 1 ate 15 faca
escreval(cidade[i])
fimpara
// Seção de Comandos
fimalgoritmo

Algoritmos 02062011

algoritmo "vetor_10"
// Função :
// Autor :
// Data : 02/06/2011
// Seção de Declarações
var
i:inteiro
nome: vetor[1..10] de caractere
inicio
// Seção de Comandos
para i de 1 ate 10 faca
Escreval ("digite nome")
leia (nome[i])
fimpara
para i de 1 ate 10 faca
Escreval (nome[i])
fimpara
fimalgoritmo


sem vetor

algoritmo "para_10"
// Função :
// Autor :
// Data : 02/06/2011
// Seção de Declarações
var
n:inteiro
nome:caractere
inicio
// Seção de Comandos
para n de 1 ate 10 faca
Escreval ("digite nome")
Leia(nome)
Escreval(nome)
fimpara
fimalgoritmo