Отпечатване в различни мерни единици

Публикувано на 17 май, петък от Данаил

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

Указание: декларирайте означението на съответната мерна единица (например см, мм, м) и коефициента, по който трябва да се умножи като глобални променливи.

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

One Response to Отпечатване в различни мерни единици

  1. Данаил каза:
    20 май, понеделник в 16:34 
    program project3;

var
  koeficient: real;
  edinici: string;

procedure PechatRazstolianie(Nsm: integer);
var N2: real;
begin
  N2:= Nsm*koeficient;
  WriteLn('Razstoianieto e ', N2:5:2, edinici);
end;

procedure PechatPlosht(Ssm: integer);
begin

end;

begin
  edinici:= 'mm';
  koeficient:= 10;
  PechatRazstolianie(1);
  PechatRazstolianie(10);
  PechatRazstolianie(100);
  WriteLn;
  edinici:= 'm';
  koeficient:= 0.01;
  PechatRazstolianie(1);
  PechatRazstolianie(10);
  PechatRazstolianie(100);
  ReadLn;
end.

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