Определить, существует ли треугольник с заданными длинами сторон x, y, z - Pascal

  1. Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если треугольник существует, определить его тип (равносторонний, равнобедренный, прямоугольный) и вычислить все углы в градусах. Напечатать длины сторон с противолежащими углами.


textual

Код к задаче: «Определить, существует ли треугольник с заданными длинами сторон x, y, z - Pascal»

uses crt;
{нахождение угла через полупериметр и тангенс половинного угла}
function ugol(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
ugol:=(2*arctan(sqrt((p-b)*(p-c)/(p*(p-a)))))*(180/pi);
end;
const t=0.001;{точность сравнения вычисленных вещественных чисел}
var x,y,z,ux,uy,uz:real;
begin
clrscr;
writeln('Введите 3 вещественыхт числа');
readln(x,y,z);
if(x+y<=z)or(x+z<=y)or(y+z<=x)then
 begin
  writeln('Треугольник не существует');
  readln;
  exit;
 end;
writeln('Треугольник существует');
ux:=ugol(x,y,z);
uy:=ugol(y,x,z);
uz:=ugol(z,x,y);
writeln('Сторона Х=',x:0:2,' противолежащий угол=',ux:0:1,#248);
writeln('Сторона Y=',y:0:2,' противолежащий угол=',uy:0:1,#248);
writeln('Сторона Z=',z:0:2,' противолежащий угол=',uz:0:1,#248);
if (abs(x-y)<t)and(abs(x-z)<t) then write('Это равносторонний треугольник')
else if ((abs(x-y)<t)and(abs(x-z)>t))
     or((abs(x-z)<t)and(abs(y-z)>t))
     or((abs(y-z)<t)and(abs(x-y)>t))
     then write('Это равнобедренный треугольник')
else if (abs(90-ux)<t)or(abs(90-uy)<t)or(abs(90-uz)<t)
     then write('Это прямоугольный треугольник');
readln
end.

Блок-схема:

Блок-схема к задаче: Определить, существует ли треугольник с заданными длинами сторон x, y, z - Pascal

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.200 из 5



Похожие ответы
  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. Написать программу на паскале, которая будет определять все ли гласные содержаться в заданной строке....

  1. В расписании движения поездов по станции Масловка указаны: номера поездов , пункты следования, время прибытия и отправления, направления следования (южное, северное, западное, восточное). Сколько поездов следует в каждом из направлений?

  1. Из квадратного листа картона вырезается коробка. Определить, какова должна быть сторона вырезаемого квадрата, чтобы коробка имела наибольшую вместимость.

  1. Ребят,помогите пожалуйста,будьте добры. Надо составить программки в Паскале. Составить математическую модель, таблицу идентификаторов и алгоритм для следующих задач: Задано n точек. Определить, сколько из них находится внутри прямоугольника.

  1. Помогите с решением, пожалуйста! Если не трудно, то с объяснением В заданный непустой текст входят только цифры и буквы. Длина текста не более 12 символов. Определить, удовлетворяется ли следующее свойство: Текст совпадает с каким-то отрезком ряда abc…xyz (например: klmnop);

  1. Подскажите пожалуйста как написать данную программу: В заданный непустой текст входят только цифры и буквы. Определить удовлетворят ли он следующему свойству: текст совпадает с конечным отрезком ряда 0123456789 ( например: 9, 89, 789).

  1. Дана последовательность из N целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности. Помогите пожалуйста сделать циклом.

  1. Из-за своего грубого невежества не могу написать следующую задачу: "поезд едет через мост. Входные данные: длина моста, его "выдерживающая способность" (не знаю, как на русский перевести), длина вагона. Дальше задается масса каждого вагона в виде массива, который обрывается на -1. Если мост выдержит, то вывести число. Если мост рухнет, то вывести 0" примеры данных: ВВОД 10 100 5 30 30 30 40 30 30 40 39 40 -1 ВЫВОД 8 ВВОД 7 20 3 4 5 5 5 5 5 4 -1 ВЫВОД 0 Мои карякули: