Решаем задачи Абрамян на Паскале. Proc4

Proc4. Описать процедуру TrianglePS($$a$$, $$P$$, $$S$$), вычисляющую по стороне a равностороннего треугольника его периметр $$P = 3*a$$ и площадь $$S = a^2*\sqrt{3}/4$$ ($$a$$ — входной, $$P$$ и $$S$$ — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами.

Решение:

program Proc4;

procedure TrianglePS(a:Real; var P,S:Real);
begin
  P:=3*a;
  S := sqr(2)*sqrt(3)/4;
end;

var
  i:Integer;
  a,P,S:Real;

begin
  Write('a: ');
  Readln(a);

  TrianglePS(a,P,S);
  Writeln(P,' ',S);
end.

program Proc4;

procedure TrianglePS(a:Real; var P,S:Real);

begin

P:=3*a;

S := sqr(2)*sqrt(3)/4;

end;

var

i:Integer;

a,P,S:Real;

begin

Write('a: ');

Readln(a);

TrianglePS(a,P,S);

Writeln(P,' ',S);

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc4

Комментарии:

Добавить комментарий Отменить ответ