11.12.2011, 18:00 | #1 (permalink) |
Новичок
Регистрация: 11.12.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача на Паскале, какие-то условия не проходят, помогите пожалуйста!
Вот мое решение: program Main; var a, b, c, g, k : integer; begin readln(a, b); if a > b then begin g:=a; k:=b; end; if a < b then begin g:=b; k:=a; end; read(c); if c > g then g:=c; if c < k then k:=c; if a+b+c-g > g then begin if k*k + (a+b+c-g-k)*(a+b+c-g-k) = g*g then write('rectangular'); if k*k + (a+b+c-g-k)*(a+b+c-g-k) > g*g then write('acute'); if k*k + (a+b+c-g-k)*(a+b+c-g-k) < g*g then write('obtuse'); end; if a+b+c-g <= g then write('impossible'); end. |
11.12.2011, 18:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме можно найти похожие топики, помогу вам в этом Помогите, пожалуйста, решить задачи в Паскале Помогите, очень трудная задача на Паскале Паскаль. Задача с файлами, помогите пожалуйста Помогите пожалуйста решить матрицу в паскале Помогите пожалуйста написать проги в паскале Помогите, пожалуйста, с программой в Паскале |
11.12.2011, 18:46 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Я бы решал задачку так: Код:
var a, b, c, g : integer; Ca:real; begin Writeln('Enter the sides a b c:'); readln(a, b, c); if a>b then begin g:=a; a:=b; b:=g; end; if b>c then begin g:=b; b:=c; c:=g; end; {now the longest side is c} If c>=a+b then writeln('impossible') else begin Ca:=(c*c-a*a-b*b)/(-2*a*b); if Ca=0 then writeln('rectangular') else if Ca>0 then write('acute') else writeln('obtuse'); end; readln END. 1. Находим самую длинную сторону. Меняем обозначения так, чтобы этой стороной была сторона с. 2. Если c≥a+b, то треугольник невозможен. 3. В противном случае анализируем значение косинуса угла, противолежащего стороне с, найдя оный по теореме косинусов. Если он равен нулю, то треугольник прямоугольный, если положительный - остроугольный, если отрицательный - тупоугольный. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|