Jump to content

Hatepascal

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About Hatepascal

  1. Hatepascal

    PascalAlgotitmo

    program divisao; /*ME AJUDEM POR FAVOR, ESTOU FICANDO LOUCO! Questão: faça uma calculadora onde o usuario entre com 2 numeros e secolha a operacao desejada, multiplicao ou divisao. voce devera mostrar o resultado e depois perguntar se ele deseja realizar a operacao novamente. sei que isso usa o comando while,porem nao estou conseguindo entender a logica,pelo que parece algem resolve para mim? grato. */ var m,d, n1, n2: real; continuar :string; escolha:char; begin d := 0; m :=0; continuar := 'sim' ; while continuar = 'sim' do Begin writeln('digite o primeiro numero: '); readln(n1); writeln('digite o segundo numero'); readln(n2); WriteLn('escreva d para divisao ou m para multiplicacao'); readln(escolha); if escolha = 'm' then begin m := n1 * n2; end; if escolha = 'd' then begin d := n1 / n2; end; write('resultado multiplicação : '); writeln(m); write('resultado divisão : '); writeln(d); writeln('deseja continuar , sim? '); readln; end; end.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.