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;

	  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.