Pascal/Turbo Pascal - problema programa

   
Vista:

problema programa

Publicado por Erik Napster_EPD88@hotmail.com (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.

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.
gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

problema programa

Publicado por ramon (2072 intervenciones) el 26/02/2014 19:42:03
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
29
30
31
{Valdrá así}
 
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);
   while opcion <> chr(27) do
   begin
	writeln(' Opciones: S(sumar), R(restar), M(multiplicar), D(dividir),Esc(Salir)');
	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;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar