Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими - Turbo Pascal
Формулировка задачи:
Решение задачи: «Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими»
uses crt; const t=0.01; function plosh(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2; plosh:=sqrt(p*(p-a)*(p-b)*(p-c)) end; procedure vvod(var a,b,c:real;k:byte); begin repeat writeln('Введите три стороны треугольника ',k); readln(a,b,c); if(a>=b+c)or(b>=a+c)or(c>=a+b) then writeln('Это не стороны треугольника, повторите ввод'); until(a<b+c)and(b<a+c)and(c<a+b); end; var a1,b1,c1,a2,b2,c2,s1,s2:real; begin clrscr; vvod(a1,b1,c1,1); vvod(a2,b2,c2,2); s1:=plosh(a1,b1,c1); s2:=plosh(a2,b2,c2); writeln('Площадь треугольника 1=',s1:0:2); writeln('Площадь треугольника 2=',s2:0:2); if abs(s1-s2)<t then write('Треугольники равновеликие') else write('Треугольники не равновеликие'); readln end.
Объяснение кода листинга программы
В данном коде используется функция plosh, которая вычисляет площадь треугольника по длинам его сторон. Затем происходит ввод трех сторон треугольника с помощью процедуры vvod. После этого проверяется, равны ли площади двух треугольников, и выводится соответствующее сообщение. Код начинается с использования библиотеки crt и определения константы t, которая представляет собой десятичную дробь, равную 0.01. Функция plosh принимает три аргумента типа real и возвращает значение типа real. Она вычисляет площадь треугольника по длинам его сторон, используя формулу площади треугольника. Процедура vvod принимает три аргумента типа real и один аргумент типа byte. Она повторяет ввод до тех пор, пока введенные значения удовлетворяют определенным условиям (т.е. меньше суммы всех сторон треугольника). Если введенные значения не удовлетворяют этим условиям, выводится сообщение об ошибке. Затем объявляются две переменные s1 и s2 типа real, которые будут использоваться для хранения площадей треугольников. Далее происходит ввод значений a1, b1, c1 и a2, b2, c2 с помощью процедуры vvod. Затем вычисляются площади треугольников s1 и s2 с помощью функции plosh. Выводится значение площади первого треугольника с помощью функции writeln. Затем выводится значение площади второго треугольника с помощью функции writeln. После этого проверяется, равны ли площади двух треугольников. Если разность площадей меньше значения t, то выводится сообщение о том, что треугольники равновеликие. В противном случае выводится сообщение о том, что треугольники не равновеликие. Наконец, происходит чтение пользовательского ввода с помощью функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д