Resoluções de Provas
4 participantes
Página 1 de 1
Resoluções de Provas
Neste Tópico vamos postar nossas resoluções... cada um vai ter um solução diferente.... ou similar... é muito importante ver como um mesmo problema é resolvido de maneiras diferentes... com mais ou menos linhas de programação ou declaração de variáveis... então para darmos continuidade respondam sempre esse tópico!!! ok!!!! Vamos para o que interessa!!! abraço a todos...
Última edição por Tiago de Abreu em Sex 11 Nov 2011 - 4:11, editado 2 vez(es)
Resolução Correta - Exercício 2 - Prova 25/10/2011
Resolução
- Código:
algoritmo "Exercício 2 - Prova"
// Função :
// Autor : Tiago de Abreu
// Data : 25/10/2011
// Seção de Declarações
var
A,B,C,valor1,valor2,valor3:inteiro
inicio
// Seção de Comandos
escreval ("---------------------------------------------------------------------------------")
escreval (" Se valores formam um Triangulo ")
escreval ("---------------------------------------------------------------------------------")
escreva ("Por Favor, Digite 1º Valor disdinto: ")
leia (valor1)
limpatela
escreva ("Por Favor, Digite 2º Valor distinto: ")
leia (valor2)
limpatela
escreva ("Por Favor, Digite 3º Valor distinto: ")
leia (valor3)
limpatela
se valor1 > valor2 entao
se valor1 > valor3 entao
A<-valor1
B<-valor2
C<-valor3
senao
A<-valor3
B<-valor1
C<-valor2
fimse
senao
se valor2 > valor1 entao
se valor2 > valor3 entao
A<-valor2
B<-valor1
C<-valor3
senao
A<-valor3
B<-valor1
C<-valor2
fimse
fimse
fimse
se A<B+C entao
escreval("A: ",A)
escreval("B: ",B)
escreval("C: ",C)
escreval("Esses valores formam um triângulo")
senao
escreval("A: ",A)
escreval("B: ",B)
escreval("C: ",C)
escreval("Esses valores não formam um triângulo")
fimse
fimalgoritmo
Última edição por Tiago de Abreu em Sex 11 Nov 2011 - 4:12, editado 2 vez(es)
Letícia Ellen- Ameba²
- Mensagens : 34
Data de inscrição : 27/10/2011
Idade : 31
Localização : Americana, São Paulo, Brasil
Legal!!! Gostei!
Letícia Ellen escreveu:A resolução que eu fiz ficou bem parecida com a sua, mas eu coloquei a saída fora do Se
É isso mesmo!!! testei aqui e rodou legal sua resolução!!! o resto do pessoal da sala poderia postar tb!!!!
VALEU!
Revisão
Esta é a minha resolução do problema. Vejam o que acham.
- Código:
algoritmo "90graus"
var
a,b,c,x,y,z:inteiro
inicio
escreva("Favor, digite um número e tecle enter: ")
leia(x)
escreva("Agora digite mais um número: ")
leia(y)
escreva("Digite o último número agora: ")
leia(z)
limpatela
se (x>y) e (x>z) entao
a<-x
b<-y
c<-z
senao
se (y>x) e (y>z) entao
a<-y
b<-z
c<-x
senao
a<-z
b<-x
c<-y
fimse
fimse
escreval("Os valores são: ")
escreval(a)
escreval(b)
escreval(c)
escreval("")
escreval("")
se a<(b+c) entao
escreval("Esses valores formam um triângulo.")
senao
escreval("Esses valores não formam um trinângulo.")
fimse
escreval("")
escreval("")
escreval("--------------------------------------------------------")
escreval(" Obrigado por usar 90Graus ")
escreval("--------------------------------------------------------")
fimalgoritmo
Prova - 23/11/11
01)Seja P1 a medida do nível de poluição do ar. A qualidade do ar é medida em função de P1. Elaborar um algoritmo que leia o nível de poluição do ar e imprima o nome da localidade e a qualidade do ar de cada localidade. Considere que teremos uma determinada quantidade de localidades onde esse número é fornecido na entrada.
Nível de poluição / Qualidade do ar
P1<=100 - Ótima
100<P1<=200 - Boa
200<P1<=300 - Regular
02)Escreva um algoritmo que leia seu nome e repita dez vezes. (use laços)
03)Escreva um Algoritmo que imprima de 0 a 100 somente os números pares.
Nível de poluição / Qualidade do ar
P1<=100 - Ótima
100<P1<=200 - Boa
200<P1<=300 - Regular
- Código:
algoritmo "semnome"
// Função :
// Autor :
// Data : 23/11/2011
// Seção de Declarações
var
P1:real
qlocal,cont:inteiro
qualidade,localidade:caracter
inicio
// Seção de Comandos
escreva ("Digite nº de localidades: ")
leia (qlocal)
enquanto cont < qlocal faca
cont<- cont + 1
escreva ("Digite o nome da Localidade: ")
leia (localidade)
escreva ("Digite o nível de poluição: ")
leia (P1)
se P1 < 100 entao
qualidade <- "ótima"
escreval ("Em ",localidade)
escreval ("A qualidade do ar é: ",qualidade)
senao
se P1 <= 200 entao
qualidade <- "Boa"
escreval ("Em ",localidade)
escreval ("A qualidade do ar é: ",qualidade)
senao
qualidade <- "Regular"
escreval ("Em ",localidade)
escreval ("A qualidade do ar é: ",qualidade)
fimse
fimse
fimenquanto
fimalgoritmo
02)Escreva um algoritmo que leia seu nome e repita dez vezes. (use laços)
- Código:
algoritmo "semnome"
// Função :
// Autor :
// Data : 23/11/2011
// Seção de Declarações
var
nome:caracter
x:inteiro
inicio
// Seção de Comandos
escreva ("Digite seu nome completo: ")
leia (nome)
enquanto x < 10 faca
x<- x + 1
escreval (x," - ",nome)
fimenquanto
fimalgoritmo
03)Escreva um Algoritmo que imprima de 0 a 100 somente os números pares.
- Código:
algoritmo "semnome"
// Função :
// Autor :
// Data : 23/11/2011
// Seção de Declarações
var
x:inteiro
inicio
// Seção de Comandos
enquanto x < 100 faca
x<- x + 2
escreva (x, " - ")
fimenquanto
fimalgoritmo
- Código:
Última edição por Tiago de Abreu em Qui 24 Nov 2011 - 5:41, editado 1 vez(es)
Perguntas da prova - 23/11/2011
Perguntas
1) Seja P1 a medida do nível de poluição do ar. A qualidade do ar é medida em função de P1. Elaborar um algoritmo que leia o nível de poluição do ar e imprima o nome da localidade e a qualidade do ar de cada localidade. Considere que teremos uma determinada quantidade de localidades onde esse número é fornecido na entrada.
Nível de poluição / Qualidade do ar
P1<=100 - Ótima
100<P1<=200 - Boa
200<P1<=300 - Regular
2) Elabore um algoritmo que imprima os números pares de 0 a 100.
3) Elaborar um algoritmo que imprima o seu nome completo dez vezes na tela.
1) Seja P1 a medida do nível de poluição do ar. A qualidade do ar é medida em função de P1. Elaborar um algoritmo que leia o nível de poluição do ar e imprima o nome da localidade e a qualidade do ar de cada localidade. Considere que teremos uma determinada quantidade de localidades onde esse número é fornecido na entrada.
Nível de poluição / Qualidade do ar
P1<=100 - Ótima
100<P1<=200 - Boa
200<P1<=300 - Regular
2) Elabore um algoritmo que imprima os números pares de 0 a 100.
3) Elaborar um algoritmo que imprima o seu nome completo dez vezes na tela.
Última edição por Letícia Ellen em Qui 24 Nov 2011 - 4:06, editado 2 vez(es)
Letícia Ellen- Ameba²
- Mensagens : 34
Data de inscrição : 27/10/2011
Idade : 31
Localização : Americana, São Paulo, Brasil
Re: Resoluções de Provas
1)
- Código:
algoritmo "semnome"
// Função :
// Autor :
// Data : 23/11/2011
// Seção de Declarações
var
x, qp: inteiro
local, texto: caracter
p1 : real
inicio
Escreva ("Por favor, digite a quantidade de localidades: ")
Leia (qp)
Escreva ("Digite a localidade: ")
Leia (local)
Escreva ("Digite o nível de poluição: ")
Leia (p1)
para x de 1 ate qp-1 faca
se p1 <=100 entao
texto <-"ótima"
senao
se p1<=200 entao
texto <- "boa"
senao
texto <- "regular"
fimse
fimse
Limpatela
EscrevaL ("A seguinte localidade: ",local)
EscrevaL ("apresentou ", texto," qualidade do ar")
EscrevaL ("")
Escreva ("Digite a localidade: ")
Leia (local)
Escreva ("Digite o nível da poluição: ")
Leia (p1)
fimpara
fimalgoritmo
Última edição por Letícia Ellen em Qui 24 Nov 2011 - 3:59, editado 1 vez(es)
Letícia Ellen- Ameba²
- Mensagens : 34
Data de inscrição : 27/10/2011
Idade : 31
Localização : Americana, São Paulo, Brasil
Re: Resoluções de Provas
3)
- Código:
algoritmo "semnome"
// Função :
// Autor :
// Data : 23/11/2011
// Seção de Declarações
var
n: caracter
x :inteiro
inicio
Escreva ("Insira o seu nome completo: ")
Leia (n)
para x de 1 ate 10 faca
Limpatela
EscrevaL (n)
fimpara
fimalgoritmo
Letícia Ellen- Ameba²
- Mensagens : 34
Data de inscrição : 27/10/2011
Idade : 31
Localização : Americana, São Paulo, Brasil
Re: Resoluções de Provas
2)
- Código:
algoritmo "semnome"
// Função :
// Autor :
// Data : 23/11/2011
// Seção de Declarações
var
n : inteiro
inicio
n <- 0
enquanto n <= 98 faca
n <- n+2
EscrevaL(n)
fimenquanto
fimalgoritmo
Letícia Ellen- Ameba²
- Mensagens : 34
Data de inscrição : 27/10/2011
Idade : 31
Localização : Americana, São Paulo, Brasil
Número 3 da Prova: y=x²+2x
- Código:
algoritmo "Expressão"
var
x,y,c,v:inteiro
inicio
escreval("Vamos calcular a expressão y=x²+2x para onze valores de x")
x<-10
y<-0
c<-0
v<-1
enquanto c<11 faca
y<-(x*x)+(2*x)
escreval("Para o valor de x= ",x)
escreval("O valor de y é ",y)
x<-x+v
c<-c+1
fimenquanto
escreval("")
escreval("--------------------------")
escreval("Obrigado por usar a cabeça")
escreval("Expressão a melhor opção")
escreval("--------------------------")
fimalgoritmo
Essa foi minha tentativa, espero que vcs gostem! ( E o professor tbm!)
Re: Resoluções de Provas
Legal Leonardo.. rodei o seu aqui.. Rodou certinho..
o meu ficou um pouco diferente, mas esqueci de trazer pra testar..
nem sei se está certo ;D
o meu ficou um pouco diferente, mas esqueci de trazer pra testar..
nem sei se está certo ;D
Thiago Ludugero- Ameba
- Mensagens : 9
Data de inscrição : 09/08/2011
Idade : 35
Localização : Americana - SP
Posta aí..
Thiago Ludugero escreveu:Legal Leonardo.. rodei o seu aqui.. Rodou certinho..
o meu ficou um pouco diferente, mas esqueci de trazer pra testar..
nem sei se está certo ;D
Blz! Posta o seu depois pra gente testar, como ficou diferente é bom para comparar.
Falou.
Re: Resoluções de Provas
Eu nem lembro como ficou o meu... e nao fui pegar minha prova com o Zé..
Thiago Ludugero- Ameba
- Mensagens : 9
Data de inscrição : 09/08/2011
Idade : 35
Localização : Americana - SP
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|