Конвертор за мерни единици

Да се напише програма, която конвертира от едни мерни единици в други – например при въвеждане на дължина в метри я извежда в сантиметри и милиметри или при въвеждане на дължина в метри я извежда във футове и инчове.

Публикувано в 10а с етикети . Постоянна връзка.

One Response to Конвертор за мерни единици

  1. bettyful каза:
    Program V;
    var m,cm,mm,ft,inch:real;
    begin
    write ('Vavedi m=');
    readln (m);
    cm:=100*m;
    mm:=m*1000;
    ft:=3.28*m;
    inch:=39.37*m;
    writeln ('Santimetrite sa ',cm:0:5);
    writeln ('Milimetrite sa ',mm:0:5);
    writeln ('Futovete sa ',ft:0:5);
    writeln ('Inchovete sa ', inch:0:5);
    readln;
    end.

Вашият коментар