Question

Com observação ao algoritmo em Pascal a seguir, marque a alternativa CORRETA que possibilita, com ajuste na estrutura repeat, que o usuário execute e encerre o algoritmo à sua vontade.
program USO_REPEAT;
var
A, B, SOMA, CONT: integer;
begin
CONT := 1;
repeat
write(‘Informe um valor para A: ’);
readln(A);
write(‘Informe um valor para B: ’);
readln(B);
writeln;
SOMA:= A + B;
writeln(‘O resultado corresponde a: ’,SOMA);
writeln;
CON T:= CONT + 1;
until (CONT > 5);
end.

Accepted Answer

B) program USO_REPEAT2;
var
A, B, SOMA, RESP: integer;
begin
RESP:= ‘SIM’;
repeat
write(‘Informe um valor para A: ’);
readln(A);
write(‘Informe um valor para B: ’);
readln(B);
writeln;
SOMA := A + B;
writeln(‘O resultado corresponde a: ’,SOMA);
writeln;
write(‘Deseja continuar Sim/Não ??’);
readln(RESP);
writeln;
until (RESP <> 5);
end.

Answer

A) program USO_REPEAT2;
var
A, B, SOMA, RESP: integer;
begin
repeat
write(‘Informe um valor para A: ’);
readln(A);
write(‘Informe um valor para B: ’);
readln(B);
writeln;
SOMA:= A + B;
writeln(‘O resultado corresponde a: ’,SOMA);
writeln;
write(‘Deseja continuar Sim/Não ??’);
readln(RESP);
writeln;
until (RESP <> ‘nao’)
end.

Answer

C) program USO_REPEAT2;
var
A, B, SOMA: integer;
RESP: string;
begin
repeat
write(‘Informe um valor para A: ’);
readln(A);
write(‘Informe um valor para B: ’);
readln(B);
writeln;
SOMA:= A + B;
writeln(‘O resultado corresponde a: ’,RESP);
writeln;
until (RESP <> ‘nao’)
end.

Answer

D) program USO_REPEAT2; var A, B, SOMA: integer; RESP: string; begin RESP:= ‘SIM’; repeat write(‘Informe um valor para A: ’); readln(A); write(‘Informe um valor para B: ’); readln(B); writeln; SOMA:= A + B; writeln(‘O resultado corresponde a: ’,SOMA); writeln; write(‘Deseja continuar Sim/Não ??’); readln(RESP); writeln; until (RESP <> ‘SIM’) and (RESP <> ‘sim’); end.

Mais questões de Paradigmas e linguagens de programação