Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
KhRom
14 / 14 / 13
Регистрация: 17.10.2010
Сообщений: 69
1

Задача про треугольник. Найти ошибку

03.10.2011, 20:51. Просмотров 535. Ответов 1
Метки нет (Все метки)

Условие: ввести 3 числа, если они могут быть длинами сторон прямоугольного треугольника, вывести их в порядке возрастания и вычислить площадь.

Кое-что исправил, но верного решения не получается, на пробу беру египетский треугольник (3,4,5)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
      var a,b,c: real;
          s:real;
begin
       writeln('vvedite chisla');
 readln(a,b,c);
   if (a>=0) and (b>=0) and (c>=0) then //âîçìîæíîñòü áûòü ñòîðîíîé òðåóãîëüíèêà
     if (sqrt(c)=sqr(a)+sqr(b)) then //ïèôàãîðîì ïðîâåðÿåì ïðÿìîóãîëüíèê ëè
      if (a <= b) and (a <= c) then
       if (b <= c) then
           writeln (a,' ',b,' ',c)
   else
           writeln (a,' ',c,' ',b)
     else
        if (b <= a) and (b <= c) then
         if (a <= c) then
           writeln (b,' ',a,' ',c)
      else
           writeln (b,' ',c,' ',a)
       else
         if (a <= b) then
           writeln (c,' ',a,' ',b)
         else writeln (c,' ',b,' ',a)
        else
        writeln(' Neverno ykazali storony ');
        s:=(1/2)*a*b;
  writeln('S treygolnika =',s);
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2011, 20:51
Ответы с готовыми решениями:

Задача про монеты. Найти количество монет определенного номинала
Дана примерно такая задача : Есть монеты определенного номинала ( 5копеек,10копеек,50копеек)...

Задача про сортировку с использованием связного списка, нужно найти ошибку
Имеется файл состоящий из данных о студентах(ФИО, номер группы, средний бал). Построить...

Найти ошибку в задаче на файловый ввод/вывод (задача про МКАД)
Длина Московской кольцевой автомобильной дороги —109 километров. Байкер Вася стартует с первого...

Задача про треугольник вписанный в круг
Из всех треугольников, вписанных в круг найти тот, площадь которого наибольшая.

условный оператор - задача про треугольник
даны длины трех отрезков. могут ли эти отрезки служить сторонами треугольника?

1
Puporev
Модератор
57868 / 44076 / 30441
Регистрация: 18.05.2008
Сообщений: 105,447
04.10.2011, 10:08 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var a,b,c,mn,md,mx,p,s:real;
    f:boolean;
begin
clrscr;
f:=true;
writeln('Введите 3 числа:');
readln(a,b,c);
if(a<=0)or(b<=0)or(c<=0){не положительные}
or(a+b<=c)or(a+c<=b)or(b+c<=a){или одна сторона больше или равна сумме двух других}
then f:=false {нет}
else
 begin
  {отсортируем стороны}
  mx:=a;
  if b>mx then mx:=b;
  if c>mx then mx:=c;
  mn:=a;
  if b<mn then mn:=b;
  if c<mn then mn:=c;
  md:=a+b+c-mn-mx;
  if mn*mn+md*md<>mx*mx{если больший угол не прямой}
  then f:=false;
 end;
if not f then writeln('Числа не могут быть сторонами прямоугольного треугольника')
else
 begin
  writeln('Числа могут быть сторонами прямоугольного треугольника');
  writeln('Длины сторон в порядке возрастания:');
  writeln(mn:0:2,' ',md:0:2,' ',mx:0:2);
  s:=mn*md/2;
  write('Площадь треугольника=',s:0:2);
 end;
readln
end.
Добавлено через 1 минуту
Прежде чем выяснять прямоугольность, нужно отсортировать стороны, гипотенуза всегда большая сторона.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2011, 10:08

Задача про треугольник и вневписанные окружности
Здравствуйте. Помогите, пожалуйста, вот с этой задачей... Буду очень благодарен. Произведение...

Странная задача про прямоугольный треугольник
Добрый день! На контрольной по геометрии в восьмом классе была такая задача: В прямоугольном...

Геометрическая задача про треугольник и точку в нём
Требуется доказать, что сумма расстояний от произвольной точки внутри остроугольного треугольника...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.