Bucles en pascal

[kalma05]

Hola

Se me pide esto, pero soy nueva con la programacio y no se, una ayuda?

Modifique este código, que es uno de los ejemplos usados en el tema, para que en lugar de usar un bucle repeat-until se use un bucle while-do. Recuerde que la ejecución deberá ser idéntica.

repeat
write('Introduzca el primer operando: ');
readln(a);
write('Introduzca el segundo operando: ');
readln(b);
writeln(' Opciones: S(sumar), R(restar), M(multiplicar), D(dividir)');
readln(opcion);
case (opcion) of
'S','s' : res:= a+b;
'R','r' : res:= a-b;
'M','m' : res:= a*b;
'D','d' : res:= a/b;
end;
writeln(' El resultado es ', res);
write(' Terminar (S/N)?: ');
readln(opcion);
until ((opcion ='S') or (opcion ='s')) ;

gracias

[Fw190]

repeat - until (condicion) significa repetir hasta que se cumpla la condición de salida. La condición de salida se comprueba al finalizar el bucle, con lo que este se ejecuta, al menos, una vez.

while (condicion) do significa ejecutar el bucle mientras se cumpla la condición de entrada. Dado que la condición se comprueba a la entrada, si no se cumple el bucle no llega a ejecutarse.

Para que ambos tipos de bucle hagan lo mismo, simplemente tienes que invertir la condición de until. En lugar de

" repetir hasta que opcion igual a 'S' Ó opcion igual a 's' "

sería

" mientras que opcion sea distinto de 'S' Y opcion sea distinto de 's' "

Claro que si utilizas este último modo, debes asegurarte de que la condición de entrada es cierta, haciendo que opcion sea distinto de 'S' y de 's' justo antes de entrar al bucle.

Saludos,