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

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

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

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

  1. Simona Dimitrowa каза:
    program project1;
    var
     sm, m, mm: Real;
    begin
      WriteLn('vuvedete santimetri');
      ReadLn(sm);
    
      mm:=10*sm;
      m:=sm/100 ;
    
      Writeln('metrite sa ', M:3:5 );
      Writeln('milimetrite sa ', MM:3:5 );
    
      ReadLn;
    end.   
  2. Евгения Георгиева каза:

    program project1;
    const
    curs = 1.39;
    var
    leva:real;
    dolar:real;
    begin
    Write (‘ Vavedi sumata v leva: ‘);
    Readln (leva);
    Writeln (‘ Sumata v dolari e ‘, leva*1.39:0:2);
    Readln;

    end.

    • Данаил каза:

      Евгения, за да получиш сумата в долари, трябва да разделиш на този курс, който си указала. Иначе ще излезе, че за по-малко лева човек може да си купи повече долари :-) И ограждай кода с [pascal] и [/pascal], за да оцветява синтаксиса му.

  3. Veselina каза:

    Конвертор на валути:

    program Project1;
    const
      course = 0.51;
    var
      leva:Real;
      euro:Real;
    begin
      Write ( ' Vavedete stoinostta na promenlivata ' );
      ReadLn (leva);
      euro:= leva*course;
      WriteLn ( 'Stoinostta na na promenlivata e ', euro:1:2 );
      ReadLn;
    end. 
  4. Габи каза:

    Решение :

    program Project2;
    const
      course = 0.81;
    var
      leva:Real;
      euro:Real;
    begin
      Write ( ' Vavedete stoinostta na promenlivata ' );
      ReadLn (leva);
      euro:= leva*course;
      WriteLn ( 'Stoinostta na na promenlivata e ', euro:1:2 );
      ReadLn;
    end.

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