problema programa
Publicado por Erik (73 intervenciones) el 26/02/2014 10:50:45
tengo que modificar el siguiente programa para que en lugar de usar un bucle repeat-until se use un bucle while-do.
gracias de antemano
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Var
opcion: char; (* Para comprobar si desea continuar el usuario *)
a: real; (* Primer operando *)
b: real; (* Segundo operadno *)
res: real; (* REsultado final *)
begin
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;
else writeln ('Opcion no permitida');
end;
writeln('El resultado es ', res);
end.Valora esta pregunta
0