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)
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
0