turbo pascal sobre el sistema metrico decimal a ingles.

Program conversión;
uses
cct;
Var  p,cm : reales;
Begin
crlscr: ( 'ingresa la medida de una pulgada en centímetros');
writeln
readln (p);
writeln ('Ingresa las pulgadas que desea transformar a centímetros');
readln(cm);
a[:] (p*cm) i
writeln ('una pulgada en centímetros es',cm) i
readln;
writeln ('las pulgadas en centímetros son' p: 0: 2);
End.

Diagrama de flujo de el sistema metrico decimal a ingles.

Diagrama de flujo de el sistema metrico decimal a ingles.

Algoritmo de conversión del sistema métrico decimal a inglés.

Paso 1: Saber cuales son los valores del sistema métrico decimal para transformarlo a medidas en inglés como 1 pul= 2.54cm.

Paso 2: Calcular medidas distintas sabiendo ya el valor de un pulgada en cm.

Paso 3: Colocar los valores que se desean obtener.