Сумма сторон треуголника, Ниже |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Сумма сторон треуголника, Ниже |
Hunter_Z |
19.04.2015 19:13
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Реальное имя: Миша Репутация: 0 |
Привет, форумчане, тут по инф задачу задали. Вот код
#Program triangle; var a,b,c: real; begin writeln('Введите значение сторон треугольника'); read(a,b,c); writeln('Первая сторона = ', a); writeln('Вторая сторона = ', b); writeln('Третья сторона = ', c); writeln('Если к ',a, ' прибавить ', b, ', то это будет равно ', a+b, '.'); if a+b>c then writeln('А так как сумма двух сторон треугольника всегда больше третий стороны, а ', a+b, ' > ',c, ' значит треугольник существует!') else writeln ('А так как сумма двух сторон треугольника всегда больше третий стороны, а ', a+b, ' < ',c, ' значит треугольник не существует!') end. По правилу сумма 2 сторон треугольника всегда больше последней. То есть мне надо по мимо a+b>c в #if a+b>c then Вписать a+c>b и b+c>a. Подскажите как это сделать. Заранее спасибо! |
Федосеев Павел |
19.04.2015 23:45
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
if a+b>c thenзамени на if (a+b>c) and (a+c>b) and (b+c>a) then Ну и в вывод добавь соответствующие неравенства. |
Текстовая версия | 1.11.2024 2:19 |