Algorit

iExe.1
Variáveis
v, raio: REAL
Inicio
leia(raio) v <- esfera(raio) Escreva(v)
Fim

funcao esfera(raio : REAL) : REAL variaveis v : REAL inicio v <- 4/3*3.14*raio*raio*raio retorne v
Fim

Exe.2 variaveis n1, n2, n3, media : REAL ch : CARACTER inicio leia(n1, n2, n3) leia(ch) media <- calculamedia(n1, n2, n3, ch) Escreva(media)
Fim

funcao calculamedia(n1, n2, n3 : REAL, ch : CARACTER) : REAL variaveis media : REAL inicio SE(ch = 'A') media <- (n1+n2+n3)/3 Senao SE(ch = 'P') media <- (((n1*5) + (n2*3) + (n3*2)) / (5+3+2)) FimSE FimSE returne media
Fim

Exe.3 variaveis valor : INTEIRO logico : LOGICO inicio Leia(valor) SE(valor >= 0) logico <- primo(valor) Escreva(logico) Senao Escreva('Valor invalido.') FimSE
Fim

funcao primo(valor : INTEIRO) : LOGICO variaveis log : LOGICO i, cont : INTEIRO inicio cont <- 0 Para i <- 1 até valor faça SE(valor mod i = 0) cont <- cont + 1 FimSE FimPara SE(cont == 2) log <- VERDADEIRO Senao log <- FALSO FimSE return log
Fim

Exe.4 registro baskara a : INTEIRO b : INTEIRO delta : INTEIRO x1 : REAL x2 : REAL
FimRegistro

variaveis int a,b,delta : INTEIRO result : baskara inicio Leia(baskara.a) Leia(baskara.b) Leia(baskara.delta) resultado <- bask(baskara) Escreva(resultado.x1, resultado.x2)
Fim

funcao bask(baska : baskara) : baskara baska.x1 <- (-baskara.b + sqrt(baskara.delta)) / 2*baskara.a baska.x2 <- (-baskara.b - sqrt(baskara.delta)) / 2*baskara.a returne baska
Fim

Exe.5 registro tempo seg : INTEIRO LONGO min : INTEIRO horas : INTEIRO
FimRegistro

variaveis tempo : TEMPO inicio leia(tempo.seg) tempo <- calcula(tempo) Escreva(tempo.seg, tempo.min, tempo.horas)
Fim

funcao calcula(tempo : TEMPO) : TEMPO variaves temp : TEMPO inicio temp.seg <- tempo.seg temp.min <-