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

Proc20. Описать функцию TriangleP($$a$$, $$h$$), находящую периметр равнобедренного треугольника по его основанию a и высоте h, проведенной к основанию ($$a$$ и $$h$$ — вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. Для нахождения боковой стороны $$b$$ треугольника использовать теорему Пифагора: $$b^2 = (a/2)^2 + h^2$$.

Решение:

program Proc20;
Function TriangleP(a,h:Real):Real;
begin
TriangleP:=2*sqrt(sqr(a/2)+sqr(h))+a
end;


var
  a,h:Real;
  i:integer;

begin
 for i:=1 to 3 do
  begin
   Write('a :');
   Readln(a);
   Write('h :');
   Readln(h);
   Writeln(TriangleP(a,h));
  end;
end.

program Proc20;

Function TriangleP(a,h:Real):Real;

begin

TriangleP:=2*sqrt(sqr(a/2)+sqr(h))+a

end;

var

a,h:Real;

i:integer;

begin

for i:=1 to 3 do

begin

Write('a :');

Readln(a);

Write('h :');

Readln(h);

Writeln(TriangleP(a,h));

end;

end.

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

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

olegst1975

11.01.2016 в 02:05

..найти периметры трех треугольников.. — добавить цикл

Ответить
- Anton
  
  11.01.2016 в 08:59
  
  Поправил
  Было:
  
  for i:=1 to 3 do begin Write('a :'); Readln(a); Write('h :'); Readln(h); Writeln(TriangleP(a,h)); end;
  
  1
  2
  3
  4
  5
  6
  7
  8
  
  for i:=1 to 3 do
    begin
     Write('a :');
     Readln(a);
     Write('h :');
     Readln(h);
     Writeln(TriangleP(a,h));
    end;
  
  Стало:
  
  for i:=1 to 3 do begin Write('a :'); Readln(a); Write('h :'); Readln(h); Writeln(TriangleP(a,h)); end;
  
  1
  2
  3
  4
  5
  6
  7
  8
  
  for i:=1 to 3 do
    begin
     Write('a :');
     Readln(a);
     Write('h :');
     Readln(h);
     Writeln(TriangleP(a,h));
    end;
  
  Ответить

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

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

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

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