-
Lenguaje
Pascal
-
Descripción
Convierta millas a kilómetros, centímetros y yardas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program MillasAKilometrosCentimetrosYYardas;
uses crt;
var centimetros, kilometros, millas, yardas : real;
begin
write ('Ingresa el valor de millas: ');
readln (millas);
yardas := millas*1760;
centimetros := yardas*91.4;
kilometros := centimetros/1000000;
writeln ('Valor de centimetros: ', centimetros:0:6);
writeln ('Valor de kilometros: ', kilometros:0:6);
writeln ('Valor de yardas: ', yardas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var centimetros, kilometros, millas, yardas : real;
begin
write ('Ingresa el valor de millas: ');
readln (millas);
yardas := millas*1760;
centimetros := yardas*91.4;
kilometros := centimetros/1000000;
writeln ('Valor de centimetros: ', centimetros:0:6);
writeln ('Valor de kilometros: ', kilometros:0:6);
writeln ('Valor de yardas: ', yardas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.