alguém Pode Me Ajudar Fazer Esse Algoritimo ? Plz

[gnr_ssa]

alguém pode me ajudar fazer esse algoritimo aí usando no maximo ate comando FOR, agradeco ajuda de todos...

aí galera da essa força aí, isso e um trabalho tenho que entregar hoje, não tou conseguindo entender.

valeu

1) Faça um algoritmo, para ler dois valores inteiros A e B a partir do teclado e:

a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B

b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B

c. ) Se A for maior do que B, mostrar o resto da divisão de A por B

d. ) Se B for maior do que A, mostrar o resultado da divisão de B por A

e. ) Se A ou B for igual ou menor do que zero, exibir mensagem “valores inválidos”

f. ) AS operações anteriores devem se repetir por 3 vezes

Área do retângulo: base X altura.

Área do quadrado: lado X lado.

[Renyo]

SE não (A<= 0 ou B <= 0)

SE A <> B

quadrado = A * A;

SE A != B

retangulo = A * B;

SE A > B

restoDivisao = (A MOD B)

SENAO

restoDivisao = (B MOD A)

SENAO

IMPRIME "Valores Inválido "

essa porcaria aqui não identa não...

espero ter ajudado...

Editado Março 29, 2007 por Renyo

[gnr_ssa]

Fiz assim mas está errado....

não entendi como faz pra mostrar essa area que ele pede

a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B

b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B

var

a,b,result, i : integer;

I: integer;

begin clrscr;

i := 1;

for i := 1 to 3 do

writeln (' Digite o valor de A');

readln (a );

writeln ('Digite o valor de B');

readln (b );

if a = b then

result := a*b

else

if a <> b then

result := a * b

else

if a > b then

result := a mod b

else

if b > a then

result := b div a

else

if (a = 0) or (b=0) then

writeln ('Valores Invalidos');

readln;

end.

Editado Março 29, 2007 por gnr_ssa

[kandrade]

var
   a,b,result, i : integer;
   I: integer;

begin clrscr;

   i := 1;
   for i := 1 to 3 do
      writeln (' Digite o valor de A');
      readln (a );
      writeln ('Digite o valor de B');
      readln (b );
      if a = b then
         result := a*b
      else
      if a <> b then
         result := a * b
      else
      if a > b then
         result := a mod b
      else
      if b > a then
         result := b div a
      else
      if (a = 0) or (b=0) then
         writeln ('Valores Invalidos');
      readln;
end.

eu não conheço essa linguagem de programação, mas não está faltando algum end_if e end_for coisa assim sei lá além disso esse if:

if (a <= 0) or (b <= 0) then
   writeln ('Valores Invalidos');

deveria ser o primeiro, com a devida modificação: a menor ou igual a 0 ou b menor ou igual a 0.

não entendi como faz pra mostrar essa area que ele pede

a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B

b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B

o comando para mostrar deve ser esse: writeln (result); //result contem o calculo da area, seja do retangulo, seja do quadrado.

[raphael_suporte]

var

a,b,result, i : integer;

I: integer;

begin clrscr;

i := 1;

for i := 1 to 3 do

writeln (' Digite o valor de A');

readln (a );

writeln ('Digite o valor de B');

readln (b );

if a = b then

result := a*b

else

if a <> b then

result := a * b

else

if a > b then

result := a mod b

else

if b > a then

result := b div a

else

if (a = 0) or (b=0) then

writeln ('Valores Invalidos');

readln;

end.

você só esqueceu das saidas

var

a,b,result, i : integer;

I: integer;

begin clrscr;

i := 1;

for i := 1 to 3 do

writeln (' Digite o valor de A');

readln (a );

writeln ('Digite o valor de B');

readln (b );

if a = b then

result := a*b

writeln ('a area do quadrado é:', result ,'m² ')

else

if a <> b then

result := a * b

writeln ('a area do Triangulo é:', result)

else

if a > b then

result := a mod b

writeln ('O resto de', a, ' dividido por', b,' é: ', result )

else

if b > a then

result := b div a

writeln ( a, ' dividido por', b,' é: ', result )

else

if (a = 0) or (b=0) then

writeln ('Valores Invalidos');

readln;

end.

[gnr_ssa]

valeu aí rafa, mas mesmo não funciona ele roda aí não motar valor não finaliza se eu digitar os dois valores 0, nada funciona está fodaaaaaa

está assim

var

a,b,result,i: integer;

begin clrscr;

writeln ('Digite o valor de A');

readln (a);

writeln ('digite o valor de B');

readln (B);

i := 1;

for i :=1 to 3 do

readln (i);

if (a <= 0) or (b <= 0) then

writeln ('Valores Invalidos')

else

if a = b then

result := a*b;

writeln ('A area do quadrado e: ',result)

else

if a <> b then

result := a*b;

writeln ('a area do triangulo ‚: ',result)

else

if a > b then

result := a mod b;

writeln ('O resto de ',a,'dividido por',b,'e:',result)

else

if b > a then

result := b div a;

writeln (a,'dividido por',b,'e',result);

readln;

end.

[kandrade]

isso dentro do loop não existe:

readln (i);

e isso deveria estar dentro do loop, se não o valor de a e b não muda.

writeln ('Digite o valor de A');
readln (a);
writeln ('digite o valor de B');
readln (b);

codigo completo:

var
a,b,result,i: integer;

begin clrscr;

   i := 1;
   for i :=1 to 3 do
      writeln ('Digite o valor de A');
      readln (a);
      writeln ('digite o valor de B');
      readln (b);

      if (a <= 0) or (b <= 0) then
         writeln ('Valores Invalidos')
      else
      if a = b then
         result := a*b;
         writeln ('A area do quadrado e: ',result)
      else
      if a <> b then
         result := a*b;
         writeln ('a area do triangulo ‚: ',result)
      else
      if a > b then
         result := a mod b;
         writeln ('O resto de ',a,'dividido por',b,'e:',result)
      else
      if b > a then
         result := b div a;
         writeln (a,'dividido por',b,'e',result);
     readln;
end.

[raphael_suporte]

Bom então não to lembrando você poderia trabalhar com CASE ao invés de IF?

[gnr_ssa]

Bom então não to lembrando você poderia trabalhar com CASE ao invés de IF?

valeu pela ajuda todos vocês, muito obrigado mesmo

conseguir fazer, eu não tava era sabendo como e onde utilizar os comandos no pascal..

mas a logica e essa que você falou mesmo, muito obrigado.

[kandrade]

testa o código acima, mas já vi que ele tem um erro:

1) Faça um algoritmo, para ler dois valores inteiros A e B a partir do teclado e:

a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B

b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B

c. ) Se A for maior do que B, mostrar o resto da divisão de A por B

d. ) Se B for maior do que A, mostrar o resultado da divisão de B por A

e. ) Se A ou B for igual ou menor do que zero, exibir mensagem “valores inválidos”

f. ) AS operações anteriores devem se repetir por 3 vezes

do jeito que voce fez, com if e em seguida else

só irá executar as letras "f", "a" e "b".

ficando de fora as letras "c" e "d".

porque não vai entrar? porque se A maior que B ou B menor que A significa que são diferentes, então já entrou na letra b.

[gnr_ssa]

testa o código acima, mas já vi que ele tem um erro:

1) Faça um algoritmo, para ler dois valores inteiros A e B a partir do teclado e:

a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B

b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B

c. ) Se A for maior do que B, mostrar o resto da divisão de A por B

d. ) Se B for maior do que A, mostrar o resultado da divisão de B por A

e. ) Se A ou B for igual ou menor do que zero, exibir mensagem “valores inválidos”

f. ) AS operações anteriores devem se repetir por 3 vezes

do jeito que voce fez, com if e em seguida else

só irá executar as letras "f", "a" e "b".

ficando de fora as letras "c" e "d".

porque não vai entrar? porque se A maior que B ou B menor que A significa que são diferentes, então já entrou na letra b.

aí valeu mano, já está rodando eu não tava era usando os comandos nos lugares certos e nem finalizando o FOR etc....

valeu

[paulo_linux]

Parece que resolveu seu problena... Postei uma resposta pra você em outro fórum, veja no link abaixo a resposta...

Resposta

Editado Março 29, 2007 por paulo_linux

[gnr_ssa]

Parece que resolveu seu problena... Postei uma resposta pra você em outro fórum, veja no link abaixo a resposta...

Resposta

ehehe posta aí xo ve se e masi simplificado, porque meu e puro armengue srsrsrsrsrs

[paulo_linux]

Pelos códigos aí a cima, o meu não foge muito do tamanho não, ficou parecido demais com esses aí acima...