Ajuda

[OcIgor]

E aí pessoal? tudo em paz?

Bom, eu sou auto-didata pois descobri que tenho q aprender fortran no meu trabalho, daí me deram umas apostilas de logica de programação para iniciantes. Porém, não há respostas muito menos quem me diga o que esta errado. Tenho algumas dificuldades e dois desses exercícios eu postarei aqui.

3) Desenvolva um diagrama que:

•

Leia 4 (quatro) números;

•

Calcule o quadrado de cada um;

•

Se o valor resultante do quadrado do terceiro for >= 1000, imprima-o e finalize;

•

Caso contrário, imprima os valores lidos e seus respectivos quadrados.

4) Faça um diagrama de bloco que leia um número inteiro e mostre uma mensagem

indicando se este número é par ou ímpar, e se é positivo ou negativo.

Se alguém se disponibilizar, obrigado. Ah, só pra constar, isso não vale ponto muito menos é uma prova de fim de ano. É só necessidade pessoal.

Obrigado e parabens pelo forum

[OSJunior]

Para a primeira pergunta, que tipo de diagrama seria? (Creio que seja um fluxograma).

Recomendo a você que primeiro monte um algoritmo de cada exercício.

Assim que tiver feito isso, procure estudar como funciona um diagrama de bloco (creio que aqui também seja um fluxograma).

São exercícios (muito) fáceis.

Após ter feito tudo isso, implemente seu algoritmo/diagrama em Fortran. :D

[OcIgor]

Valeu Junior,

bom, eu tentei, claro, porém ficou a duvida quanto a montagem desse algoritmo. no 1º fluxograma a duvida fica onde eu colocaria o SE, ou se seria necessario usar algo como o select case. enfim, mesmo assim obrigado. O forum é muito bom. Mas quem sabe se alguém se prontifica e cria uma seção de fortran, né? valeu mesmo.

[OSJunior]

Fiz do seguinte modo o primeiro algoritmo. Se ficou relativamente parecido, quer dizer que você fez certo e já está entendendo o que é para ser feito. :)

INÍCIO CalculaQuadrados
  var
    n1, n2, n3, n4: real;
    quadrado1, quadrado2, quadrado3, quadrado4: real;

  Ler(n1);
  Ler(n2);
  Ler(n3);
  Ler(n4);

  quadrado1 <- n1 * n1;
  quadrado2 <- n2 * n2;
  quadrado3 <- n3 * n3;
  quadrado4 <- n4 * n4;

  SE quadrado3 >= 1000 ENTÃO
    Imprimir(quadrado3);
  SENÃO
    Imprimir("O quadrado de ", n1, " é igual ", quadrado1);
    Imprimir("O quadrado de ", n2, " é igual ", quadrado2);
    Imprimir("O quadrado de ", n3, " é igual ", quadrado3);
    Imprimir("O quadrado de ", n4, " é igual ", quadrado4);
  FIM-SE
FIM

Editado Dezembro 10, 2008 por OSJunior

[OcIgor]

Irado! bom, é bem isso mesmo. Como estou bem no começo, os fluxogramas ainda são as representações dos algoritmos.

mas é isso, valeu cara. espero q daqui pra frente as minhas duvidas sejam mais interessantes. obrigado mesmo!