26 ноября, 03:54

Составить программу на паскале. Даны стороны двух треугольников. Найти сумму их периметров и сумму площадей. Определить процедуру для расчета периметра и площади треугольника по его сторонам

+3
Ответы (1)
  1. 26 ноября, 04:07
    0
    Var z, x, c:real;

    procedure Perimetr (a, b, c:real);

    var p:real;

    begin

    p:=a+b+c;

    writeln ('P=', p);

    end;

    procedure Ploshad (a, b, c:real);

    var s, p:real;

    begin

    p: = (a+b+c) / 2;

    s:=sqrt (p * (p-a) * (p-b) * (p-c));

    writeln ('S=', s);

    end;

    begin

    writeln ('Write first dа ta:');

    readln (z, x, c);

    Perimetr (z, x, c);

    Ploshad (z, x, c);

    writeln ('Write second dа ta:');

    readln (z, x, c);

    Perimetr (z, x, c);

    Ploshad (z, x, c);

    readln;

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Составить программу на паскале. Даны стороны двух треугольников. Найти сумму их периметров и сумму площадей. Определить процедуру для ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы