Площадь равностороннего треугольника через его сторону определяется по известной формуле:
// PascalABC.NET 3.0, сборка 1128 var a:real; begin Write('Введите длину стороны треугольника: '); Read(a); Writeln('Площадь треугольника равна ',sqrt(3)/4*sqr(a):0:3) end.
Тестовое решение: Введите длину стороны треугольника: 3.18 Площадь треугольника равна 4.379
label undf;
var side, h, S, Ro, Rv: real;
begin
undf: writeln('Введите сторону треугольника:');
readln( side );
h := sqrt( sqr( side ) - ( sqr( side ) / 4) ); // расчет высоты
S := ( ( 1 * side) / 2 ) * h; // расчет площади
Rv := ( side / 2 ) * sqrt( ( 2 * side - side ) / ( 2 * side + side ) ); // расчет вписанной окружности
Ro := ( sqr( side ) / sqrt( sqr( 2 * side) - sqr( side ) ) ); // расчет описанной окружности
// вывод данных
writeln('Высота: ', h);
writeln('Площадь: ', S);
writeln('Радиус вписанной окружности: ', Rv);
writeln('Радиус описанной окружности: ', Ro);
end.
1)а
var a:real;
begin
readln(a);
a1 := a*a; /получили а^2
a := a1*a1; /получили a^4
a := a1*a*a; /получили a^(4+4+2)
writeln(a);
end.
1б)
var x:real;
i:integer;
begin
readln(a);
a1 := a*a*a; /получили а^3
a := a1*a1*a1; /получили a^9
a := a*a1*a1; /получили а^(9+3+3)
writeln(a);
end.
2)
var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.
3)var a:real;
begin
readln(a);
writeln('В килобайтах' a/1024);
writeln('В мегабайтах' a/(1024*1024));
end.
блок-схема во вложении.
Насколько я помню площадь равностороннего треугольника , где a - сторона равностроннего треугольника.
INPUT"Введите сторону треугольника:",A
S=(SQRT(3)*a*a)/4
PRINT"Площадь треугольника: ",S
END
Если в твоём бейсике нет функции sqrt,то вторую строчку можешь написать так
S=(3^(1/2)*a*a)/4
Решение в виде формулы и чертежа представлено на фото.
я тебе скину в ЛС
a: integer;
s: real;
begin
readln(a);
s:=(sqr(a)*sqrt(3))/4;
writeln(s);
end.
a: real;
begin
readln(a);
writeln(String.Format('P = {0} S = {1}', a * 3, sqrt(3) / 4 * sqr(a)));
end.
a: real;
begin
readln(a);
writeln(String.Format('P = {0} S = {1}', a * 3, sqrt(3) / 4 * sqr(a)));
end.
static void Main()
{
double a = double.Parse(Console.ReadLine());
double h, r, R, S;
h = Math.Sqrt(3) / 2 * a;
S = 0.5 * a * h;
r = (2 * S) / (3 * a);
R = Math.Pow(a, 3) / (4 * S);
Console.WriteLine("h = {0}", h);
Console.WriteLine("S = {0}", S);
Console.WriteLine("r = {0}", r);
Console.WriteLine("R = {0}", R);
Console.ReadKey(false);
}
Но тебе надо герона, это
p= 4*3/2=6
Теперь ещё в ту верхнюю подставим, чтобы проверить
// PascalABC.NET 3.0, сборка 1128
var
a:real;
begin
Write('Введите длину стороны треугольника: '); Read(a);
Writeln('Площадь треугольника равна ',sqrt(3)/4*sqr(a):0:3)
end.
Тестовое решение:
Введите длину стороны треугольника: 3.18
Площадь треугольника равна 4.379
var
a, r, rr, h, s: real;
begin
Write('Введите длину стороны треугольника: ');Readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r);
Writeln('Радиус описанной окружности ', rr);
Writeln('Высота треугольника ', h);
Writeln('Площадь треугольника ', s);
end.
Тестовое решение:
Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219