[Resolvido] portugol vianna de preferencia

[k.aik 0]

olha gente to começando agora a prof.. nem ensinou como mexer no programa dai pediu esses 4 exercicios se alguem poder me ajudar vou ficar muito agredecido..

 

1º ler tres numeros inteiros e exibir na tela os valores dispostos em ordem crescente e decrescente.

 

2º fazer programa para ler um dado ano e verificar se foi ou é ano de copa do mundo.

 

3º efetuar a leitura de tres valores ( variaveis A,B,C) e edetuar o calculo das raizers de uma equação de segundo grau. testar para ver se a equação possui duas raizes, uma unica raiz ou se ela nao possui raizes reais.

 

4º ler numero qualquer e exibir na tela uma mensagem indincando se ele e positivo, negativo ou nulo (zero).

se ele for positivo,exibir tambem a raiz quadrada deste numero. se ele for negativo voce deve escrever uma mensagem dizendo "nao e possivel calcular a raiz deste numero.

[LCS 0]

Complicado neh.. ele devia ter trabalhado alguma coisa no programa.. para que vocês conhecessem o programa primeiro.. Já que ele não fez isso sugiro que você dê uma lida na documentação que vem junto ao programa. Aconselho o uso do Visualg, ele é bem simples e fácil de usar.

 

Os dois primeiros exercícios são bem simples e fáceis de fazer, inclusive deve ter no fórum já postado exemplos deles, os 2 últimos são simples também, porém tem alguma complexidade por causa do calculo matemático.. porém se souber fazer no papel, saberá fazer no computador.

 

Dê uma lidinha na documentação do programa, que não é grande, tente fazer alguma coisa.. ai sim eu irei ajudar... agora fazer assim sem nenhuma perspectiva eu não farei.. bom posso até fazer para sanar minha curiosidade mas não irei postar enquanto não ver nada de esforço seu aqui.

 

Abcx,

 

LCS

[k.aik 0]

olha amigo respeito sua resposta, mas e que eu nao sei nada e tenho que entregar hoje.. então no momento vai ser impossivel eu postar o que eu fiz por que nao sei fazer nada pois e meu primeiro contato com a linguagem e a programação... se voce nao quizer responder por completo tudo bem, mas pelo menos me dar uma dica de como eu faço.. brigado

[quitZAUMMM 18]

estude sobre o comando 'Se'

 

[]s

[k.aik 0]

por favor me da uma luz ai... como eu faço esse da copa do mundo... eu conseguir responder o 1 mas o resto ainda nao..

[LCS 0]

Posta ai o primeiro exercício para que possamos ver como ficou.. ai ajudaremos você com a estrutura do restante.

[k.aik 0]

olha o da copa do mundo e mais ou menos assim :

 

ano: inteiro
inicio
// Seção de Comandos
escreval ("digite um ano apartir de 1930 a 2011")
leia (ano)
se (1930>0)/4=0 entao
escreval ("e ano de copa")
se (1942<>1946) entao
fimse
escreval (" nao e ano de copa")
se (1930<0)/4=0> entao
fimse
escreva (" nao e copa")
fimalgoritmo

mas tem alguma coisa dando errado

[quitZAUMMM 18]

seu compilador não fala onde ta a linha de erro?

ele não detalha como resolver o erro?

 

O 'Se' irá resolver uma condição dentro dos '()'

você ta fazendo errado, tente ajustar as suas condições;

 

[]s

[LCS 0]

olha o da copa do mundo e mais ou menos assim :

 

ano: inteiro

inicio

// Seção de Comandos

escreval ("digite um ano apartir de 1930 a 2011")

leia (ano)

se (1930>0)/4=0 entao // Você precisa por o calculo entre (), mas não entendi o que esta fazendo..

escreval ("e ano de copa")

se (1942<>1946) entao

fimse // Você abriu dois SE e fechou apenas UM

escreval (" nao e ano de copa")

se (1930<0)/4=0> entao

fimse

escreva (" nao e copa")

fimalgoritmo

 

mas tem alguma coisa dando errado

 

Explique qual o método ou calculo que você esta usando para definir se um ano é de copa ou não?

 

Tente rever o seu código analisando se esta abrindo e fechando estruturas condicionais, e se esta abrindo e fechando ();

 

Abcx,

 

LCs

[k.aik 0]

olha amigo nem eu sei oque eu quiz dizer eu achava que era desse jeito ai que iria da certo mas nao deu nao. deixa pra la esse da copa do mundo ta muito esquizito...

olha eu fiz esse mas ta faltando calcular a raiz se o numero for positivo, mas nao sei como por o comando para calcular a raiz quadrada.. abraços

 

A, B, C :inteiro
inicio
// Seção de Comandos 

escreval ("digite um numero")
leia (A)
se A>0  entao
escreval ("positivo")
fimse
se A<0 entao
escreval ("negativo")
fimse
se A=0 entao
escreval ("nulo")
fimse
fimalgoritmo

[quitZAUMMM 18]

Tem que ver se o seu compilador já n tem nd de função pronta..

veja: http://www.babooforum.com.br/forum/index.php?/topic/598127-como-calcula-a-raiz-quadrada-em-algoritmo-portugol-ou-paslcal/

 

[]s

[k.aik 0]

o da copa do mundo e que se você pegar um ano de copa -1930, e dividir o resto por 4 for =0 , vai ser ano de copa. mas nao to conseguindo por no programa mas e como eu to falando ai

[Mário Monteiro 179]

so observe que não houveram as copas de 42 e 46 em virtude da segunda guerra

[k.aik 0]

eu sei mas esse algoritmo nao ta dando certo por que?

[LCS 0]

olha o da copa do mundo e mais ou menos assim :

ano: inteiro
inicio
// Seção de Comandos
escreval ("digite um ano apartir de 1930 a 2011")
leia (ano)
se (1930>0)/4=0 entao // Você precisa por o calculo entre (), mas não entendi o que esta fazendo..
escreval ("e ano de copa")
se (1942<>1946) entao
fimse // Você abriu dois SE e fechou apenas UM
escreval (" nao e ano de copa")
se (1930<0)/4=0> entao
fimse
escreva (" nao e copa")
fimalgoritmo

mas tem alguma coisa dando errado

 

Você resolveu os problemas que estão citados aqui?

[k.aik 0]

ai amigo eu resolvir mas nao deu certo nao desculpar a palavrão mas e que ja to com muita raiva deixa essa "DESGRAÇA" para lar... se vcs poderem me ajudar com a questão da raiz quadrada eu ja le a formula de baskara mas nao conseguir resolver se alguem souber ajuda ai na questão 3. se nao valew e pode encerrar o topico, nao aguento mais ....

[recapi 0]

algoritmo "Ano de Copa"
var
ano inteiro
inicio
// Seção de Comandos
  escreval ("Digite um ano apartir de 1930 a 2014")
  leia (ano)
  se (Ano=1930)ou(Ano=1934)ou(Ano=1938)ou(Ano=1950)ou(Ano=1954)ou(Ano=1958)ou(Ano=1962)ou(Ano=1966)ou(Ano=1970)ou(Ano=1974)ou(Ano=1978)ou(Ano=1982)ou(Ano=1986)ou(Ano=1990)ou(Ano=1994)ou(Ano=1998)ou(Ano=2002)ou(Ano=2006)ou(Ano=2010)ou(Ano=2014)entao
     escreval (ano," É ano de copa")
  senao
     escreval (ano," Não ë ano de copa")
  fimse
fimalgoritmo

O Algoritimo com logica matematica nao consegui resolver mais estou tentendo resolver assim q conseguir a solucao postarei aki

[recapi 0]

Ordem Decrecete

algoritmo "Numeros em ordem decrescente"
var
a,b,c: inteiro
inicio
escreva("Entre com três números positivos e naturais: ")
leia(a,b,c)
se (a>b)e (b>=c) então
  escreva(c,b,a)
senao
  se (b>=a)e(b>c)e(a>=c)então
     escreva(c,a,B)
  senao
     se(b>a)e(b>=c)e(a<=c)então
        escreva(a,c,B)
     senao
        se (b>a)e(b<=c)então
           escreva(a,b,c)
        senao
           se(b<a)e(a<c)então
              escreva(b,a,c)
           senao
              se(b<c)e(c<=a)então
                 escreva(b,c,a)
              senao
              escreval(a,b,c)   
              fimse
           fimse
        fimse
     fimse
  fimse
fimse
fimalgoritmo

Ordem Crescente

algoritmo "Numeros em ordem crescente"
var
a,b,c: inteiro
inicio
escreva("Entre com três números positivos e naturais: ")
leia(a,b,c)
se (a>b)e (b>=c) então
  escreva(c,b,a)
senao
  se (b>=a)e(b>c)e(a>=c)então
     escreva(c,a,B)
  senao
     se(b>a)e(b>=c)e(a<=c)então
        escreva(a,c,B)
     senao
        se (b>a)e(b<=c)então
           escreva(a,b,c)
        senao
           se(b<a)e(a<c)então
              escreva(b,a,c)
           senao
              se(b<c)e(c<=a)então
                 escreva(b,c,a)
              senao
              escreval(a,b,c)   
              fimse
           fimse
        fimse
     fimse
  fimse
fimse
fimalgoritmo

[k.aik 0]

valew amigo... ai conseguir resolver todos eles.. abraço...

podem feixar o topico