Помогите пожалуйста! В паскале.
Составьте блок-схему
алгоритма и программу вычисления периметра, медианы и площади
равностороннего треугольника.
Ответы на вопрос
Ответил Аноним
0
var
a, P, m, S: real;
begin
write('Введите длину сторону треугольника: ');
readln(a);
m := a / 2 * sqrt(3);
P := 3 * a;
S := sqr(a) / 4 * sqrt(3);
writeln('Медиана ', m:0:4, ', периметр ', P:0:4, ', площадь ', S:0:4)
end.
Тестовое решение:
Введите длину сторону треугольника: 5.34
Медиана 4.6246, периметр 16.0200, площадь 12.3476
a, P, m, S: real;
begin
write('Введите длину сторону треугольника: ');
readln(a);
m := a / 2 * sqrt(3);
P := 3 * a;
S := sqr(a) / 4 * sqrt(3);
writeln('Медиана ', m:0:4, ', периметр ', P:0:4, ', площадь ', S:0:4)
end.
Тестовое решение:
Введите длину сторону треугольника: 5.34
Медиана 4.6246, периметр 16.0200, площадь 12.3476
Приложения:
Новые вопросы