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

Публикувано на 16 февруари, четвъртък от Данаил

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

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

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

  1. Violeta каза:
    22 февруари, сряда в 13:16 
     program project1;
 var
 mm,sm,metra:real;
begin
Write ('vavaedete (mm)');
ReadLn(mm);
sm:=mm/10;
WriteLn('Sm e ', sm:5:2);
metra:=sm/100;
WriteLn('Metra e ', metra:5:4);
ReadLn;
end.
  2. Lubomir Dizela каза:
    22 февруари, сряда в 13:21 
     program project1;
   var
      c, c1, c2: real;


begin
  WriteLn ('Vuvedete chislo (da se prevurne ot milimetri v santimetri i metri): ');
  ReadLn (c);
  c1 := c/10;
  c2 := c1/10;
  WriteLn ('Tova sa: ');
  WriteLn (c:5:1, 'mm');
  WriteLn (c1:5:1, 'sm');
  WriteLn (c2:5:1, 'm');
  ReadLn;
end.
  3. Violeta каза:
    22 февруари, сряда в 13:23 
      program project1;
 var
 mm,sm,metra,inch :real;
begin
Write ('vavaedete (mm)');
ReadLn(mm);
sm:=mm/10;
WriteLn('Sm e ', sm:5:2);
metra:=sm/100;
WriteLn('Metra e ', metra:5:4);
inch:=mm/25.4;
WriteLn( 'Incha e ', inch:5:4);
ReadLn;
end.

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