> if (a1> 90) or (b1> 90) or (c1> 90) then begin
Label9.Visible: = true; Label9.Caption: = 'Трикутник тупокутний';
end;
if (a1 <90) and (b1 <90) and (c1 <90) then begin
Label9.Visible: = true; Label9.Caption: = 'Трикутник гострокутий';
end;
end;
end.
В
Список літератури
1. Анатолій Хомоненко, Володимир Гофман, Євген Мещеряков, Володимир Никифоров В«Delphi 7В». - С-Пб.: "БХВ-Петербург", 2004 р. - 1216 с.
2. Х.М. Дейтел, П.Дж. Дейтел В«Як програмувати на С В». - М.: ЗАТ В«Видавництво БіномВ», 2000 р. - 1008 с.: Іл. p> 3. Л.С. Атанасян, В.Ф. Бутузов, С.Б. Кадомцев та ін В«ГеометріяВ». - М.: Просвітництво, 1990 р. - 336 с.: Іл. p> 4. М.Я. Вигодський В«Довідник по елементарній математиціВ». - М.: 1971 - 416 с.: Іл. p> 5. В.С. Шипачьов В«Вища математикаВ». - М.: Вища. Школа, 1996 р. - 479 с.: іл.
[1] KIS - Keep It Simple - Роби простіше
[2] ОЗУ - Оперативне Запам'ятовуючий Пристрій
