Pascal/Turbo Pascal - Resumir este código fuente.

   
Vista:

Resumir este código fuente.

Publicado por wind (26 intervenciones) el 19/03/2014 23:34:54
Saludos cordiales

Me gustará reducir el siguiente código fuente lo máximo que se pueda, con el objetivo que sea más fácil de entender.
(Si alguien decide dar una explicación linea por linea, también estaría agradecido)

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
32
33
34
35
36
37
38
39
40
41
42
43
44
program ConvertirUnidadesDeLongitud;
uses Crt;
 
var
 Salida: boolean;
 Opc: integer;
 
procedure ConvertirDeKilometrosAMetros;
Begin
  ClrScr;
  writeln('Aqui deberia ir el codigo para convertir de Kilometros a Metros.');
  readln;
End;
 
procedure ConvertirDeMetrosAKilometros;
Begin
  ClrScr;
  writeln('Aqui deberia ir el codigo para convertir de Metros a Kilometros.');
  readln;
End;
 
procedure MostrarMenuPrincipal;
Begin
  gotoxy(33,2); writeln('MENU PRINCIPAL');
  gotoxy(21,5); writeln('1.- Convertir de Kilometros a Metros.');
  gotoxy(21,7); writeln('2.- Convertir de Metros a Kilometros.');
  gotoxy(21,9); writeln('3.- Salir.');
End;
 
 
BEGIN
  Salida:= false;
  Repeat
    ClrScr;
    MostrarMenuPrincipal;
    gotoxy(40,11); write('Opcion: ');
	readln(Opc);
    case Opc of
	  1: ConvertirDeKilometrosAMetros;
	  2: ConvertirDeMetrosAKilometros;
	  3: Salida:= true;
	end;
  Until (Salida=true);
END.
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

Resumir este código fuente.

Publicado por ramon (2072 intervenciones) el 23/03/2014 23:58:10
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{Valdría así}
program ConvertirUnidadesDeLongitud;
uses Crt;
 
var
 Salida: boolean;
 Opc: integer;
 
procedure ConvertirDeKilometrosAMetros;
Begin
  ClrScr;
  writeln('Aqui deberia ir el codigo para convertir de Kilometros a Metros.');
  readln;
End;
 
procedure ConvertirDeMetrosAKilometros;
Begin
  ClrScr;
  writeln('Aqui deberia ir el codigo para convertir de Metros a Kilometros.');
  readln;
End;
 
procedure MostrarMenuPrincipal;
Begin
  gotoxy(33,2); writeln('MENU PRINCIPAL');
  gotoxy(21,5); writeln('1.- Convertir de Kilometros a Metros.');
  gotoxy(21,7); writeln('2.- Convertir de Metros a Kilometros.');
  gotoxy(21,9); writeln('3.- Salir.');
End;
 
 
BEGIN
  Salida:= false;
  Repeat
    ClrScr;
    MostrarMenuPrincipal;
    gotoxy(40,11); write('Opcion: ');
	readln(Opc);
    case Opc of
	  1: ConvertirDeKilometrosAMetros;
	  2: ConvertirDeMetrosAKilometros;
	  3: Salida:= true;
	end;
  Until (Salida=true);
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