Предмет: Информатика,
автор: Полина1110
1.по заданным координатам точек А и Б вычислите длину от резка АБ
2.Известны длины сторон треугольника a,b,c. Напишите программу вычисляющую площадь этого треугольника
ИНФОРМАТИКА СРОЧНОО
Ответы
Автор ответа:
0
1 задача
var
X_1, Y_1, X_2, Y_2, AC, BC, AB:real;
begin
writeln('Введите значания X_1 (точки A)');
readln(X_1);
writeln('Введите значания Y_1 (точки A)');
readln(Y_1);
writeln('Введите значания X_2 (точки B)');
readln(X_2);
writeln('Введите значания Y_2 (точки B)');
readln(Y_2);
AC:=X_2-X_1;
BC:=Y_2-Y_1;
AB:=sqrt((AC*AC)+(BC*BC));
writeln('Длинна отрезка AB равна ', AB);
end.
2 задача
var
A, B, C, P, S:real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
if(A+B<=C) or (A+C<=B) or (B+C<=A) then
writeln('Треугольник с такими сторонами не существует')
else
writeln ('Площадь треугольника по теореме Герона равна ', S);
end.
var
X_1, Y_1, X_2, Y_2, AC, BC, AB:real;
begin
writeln('Введите значания X_1 (точки A)');
readln(X_1);
writeln('Введите значания Y_1 (точки A)');
readln(Y_1);
writeln('Введите значания X_2 (точки B)');
readln(X_2);
writeln('Введите значания Y_2 (точки B)');
readln(Y_2);
AC:=X_2-X_1;
BC:=Y_2-Y_1;
AB:=sqrt((AC*AC)+(BC*BC));
writeln('Длинна отрезка AB равна ', AB);
end.
2 задача
var
A, B, C, P, S:real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
if(A+B<=C) or (A+C<=B) or (B+C<=A) then
writeln('Треугольник с такими сторонами не существует')
else
writeln ('Площадь треугольника по теореме Герона равна ', S);
end.
Автор ответа:
0
огромное спасибо :))
Автор ответа:
0
Не забудь про лучший ответ!)
Автор ответа:
0
var
A, B, C, P, S: real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
if(A + B > C) and (A + C > B) and (B + C > A) then
begin
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника по теореме Герона равна ', S)
end
else
writeln('Треугольник с такими сторонами не существует');
end.
A, B, C, P, S: real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
if(A + B > C) and (A + C > B) and (B + C > A) then
begin
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника по теореме Герона равна ', S)
end
else
writeln('Треугольник с такими сторонами не существует');
end.
Автор ответа:
0
лучше во второй задачи так! А то что то я намутил, а сейчас испивал!
Похожие вопросы
Предмет: Геометрия,
автор: Аноним
Предмет: Физика,
автор: jklml
Предмет: Биология,
автор: sret2018
Предмет: Алгебра,
автор: dimabuchenkov13
Предмет: Обществознание,
автор: shcolnic228