Programação para Redes de Computadores (técnico) (diário 2012-2)
Endereço encurtado: http://bit.ly/prc20122
Avaliação
São 4 avaliações, uma por mês - sem data pré-estabelecida:
- Outubro
- Novembro
- Dezembro
- Março
O conceito final da disciplina é elaborado da seguinte forma:
- A: todas as avaliações em A.
- B: no máximo 1 C.
- C: no máximo 1 D, e para cada D no mínimo um B correspondente.
- D: demais casos.
Aulas
08/10
- Teste de conhecimento 1: instalação manual do Portugol.
- Sobre a matéria: entendimento de do sistema computacional de Von Neumann.
Um número é primo? Em Portugol:
inicio
// Entrada de dados
escrever "Por favor, escreva um número inteiro: "
inteiro dividendo
ler dividendo
// Processamento
inteiro divisor
inteiro divisores
inteiro resto
divisores <- 0
para divisor de (dividendo - 1) até 2 passo -1
escrever "."
resto <- dividendo % divisor
se resto = 0 então
divisores <- divisores + divisor
fimSe
próximo
texto resposta
se divisores > 0 então
resposta <- " não é primo."
senão
resposta <- " é primo."
fimSe
// Saída de dados
escrever "Calculei que ", dividendo, resposta
fim
E se for perfeito? O que muda no código anterior?
15/10
- Teste de conhecimento: Matemática básica aplicada.
- Sobre a matéria: tipos de funções ou procedimentos de um programa.
Um triângulo é pitagórico?
inicio
// Entrada de dados
inteiro a, b, c
escrever "Por favor, digite um número inteiro: "
ler a
escrever "Agora, outro número inteiro: "
ler b
escrever "E, por último, mais um número inteiro: "
ler c
// Processamento
inteiro a2
a2 <- potencia(a, 2)
inteiro b2c2
b2c2 <- potencia(b, 2) + potencia(c, 2)
texto resposta
se (a2 = b2c2) então
resposta <- "é pitagórico."
senão
resposta <- "não é pitagórico."
fimSe
// Saída de dados
escrever "O triângulo ", resposta
fim
Um número é potência de outro?
inicio
//Entrada de dados
texto resposta
inteiro numero
escrever "Por favor, digite um número inteiro: "
ler numero
// Processamento
real raizquadrada, resto
raizquadrada <- raiz(numero)
resto <- frac(raizquadrada)
se (resto > 0) então
resposta <- "não é potência quadrada de outro número inteiro: "
senao
resposta <- "é potência de: "
fimSe
// Saída de dados
escrever resposta, raizquadrada
fim
Outra forma (alternativa):
inicio
// Entrada de dados
inteiro numero
escrever "Por favor, digite um número inteiro: "
ler numero
// Processamento
texto resposta
inteiro respostaNumero
real expoente, resultado, rodada
para rodada de 2 ate 5 passo 1
expoente <- 1 / rodada
resultado <- potencia(numero, expoente)
se (frac(resultado) = 0) então
resposta <- "é potência de "
respostaNumero <- int(resultado)
fimSe
próximo
// Saída de dados
escrever resposta
escrever respostaNumero
fim
Desenhando uma "caixa" em volta de um número até 9999:
inicio
// Entrada de dados
inteiro numero
escrever "Por favor, digite SEMPRE um número inteiro: "
ler numero
// Processamento
inteiro colunas, linhaembranco
colunas <- 1
se (numero > 9) então
colunas <- 2
fimSe
se (numero > 99) então
colunas <- 3
fimSe
se (numero > 999) então
colunas <- 4
fimSe
se (numero > 9999) então
colunas <- 5
fimSe
colunas <- colunas + 4
linhaembranco <- colunas - 2
// Saída de dados
inteiro coluna
para coluna de 1 ate colunas passo 1
escrever "!"
próximo
escrever "\n"
escrever "!"
para coluna de 1 ate linhaembranco passo 1
escrever " "
próximo
escrever "!\n"
escrever "! ", numero, " !"
escrever "\n"
escrever "!"
para coluna de 1 ate linhaembranco passo 1
escrever " "
próximo
escrever "!\n"
para coluna de 1 ate colunas passo 1
escrever "!"
próximo
fim