Atividade 1

) Para que a divisão entre 2 números possa ser realizada, o divisor não pode ser nulo (zero). Escreva um programa para ler 2 valores e imprimir o resultado da divisão do primeiro pelo segundo. OBS: O programa deve validar a leitura do segundo valor (que não deve ser nulo). Enquanto for fornecido um valor nulo a leitura deve ser repetida. Utilize a estrutura Enquanto/Faça na construção da repetição de validação.

algoritmo "Divisão"

// Função : Divisão de numeros.

// Autor : Hildecilio dos Santos Carvalho

// Data : 27/05/2013

var

dividendo, divisor:real

inicio

//seção de comando

escreva("Coloque o dividendo: ")

leia(dividendo)

repita

escreva("Coloque o divisor (diferente de 0): ")

leia(divisor)

ate divisor <> 0

escreva("A divisão de ")

escreva(dividendo)

escreva(" por ")

escreva(divisor)

escreva(" é: ")

escreva(dividendo/divisor)

fimalgoritmo

) A Federação Gaúcha de Futebol contratou você para escrever um programa para fazer uma estatística do resultado de vários GRENAIS. Escreva um algoritmo para ler o número de gols marcados pelo Inter, o número de gols marcados pelo GRÊMIO em um GRENAL, imprimindo o nome do time vitorioso ou a palavra EMPATE. Logo após escrever a mensagem "Novo GRENAL 1.Sim 2.Não?" e solicitar uma resposta. Se a resposta for 1, o algoritmo deve ser executado novamente solicitando o número de gols marcados pelos times em uma nova partida, caso contrário deve ser encerrado imprimindo:

Quantos GRENAIS fizeram parte da estatística.

O número de vitórias do Inter.

O número de vitórias do Grêmio.

O número de Empates.

Uma mensagem indicando qual o time que venceu o maior número de GRENAIS (ou NÃO HOUVE VENCEDOR).

Observação: Para implementar um contador em Pascal (incrementar): variável := variável + 1

algoritmo "Resultado_de_jogos"

// Função : Escrever um algoritmo para ler o número de gols marcados pelo Inter, o número de gols marcados pelo GRÊMIO em um GRENAL,

// Autor : Hildecilio dos Santos Carvalho

// Data : 30/05/2013

// Seção de Declarações

var

gol_gremio,gol_inter,empate,vit_gremio,vit_inter,nov_jogo:inteiro