IF арифметический не может быть последним оператором в цикле DO.

Если в качестве условия имеется неравенство, то его необходимо привести к виду, при котором происходит сравнивание выражения с нулём.

x2+c>y → x2+c-y>0

С учётом этого доработаем Программу № 1, где при помощи IF арифметического проверим условие: если самая длинная сторона больше чем полупериметр, то треугольник не существует.

 

С Программа № 2 – Вычисление площади треугольника при помощи

С IF арифметического

4 WRITE(6,*)’ Введите значения сторон треугольника A,B,C’

READ(5, *) A,B,C

C Блок проверки правильности введенных данных

IF(A) 4,4,20 Проверка введенных исходных данных: сторона треугольника не может быть отрицательной или равна нулю.

IF(B) 4,4,21

IF(C) 4,4,22

Вместо этих трех операторов лучше использовать один IF(AMIN1(A,B,C)) 4,4,22

С Конец блока проверки правильности введённых данных

22 P=(A+B+C)/2.

IF(AMAX1 (A,B,C)–P) 6,8,9 Встроенные функции АМIN1, АМАХ1 из списка переменных, перечисленных в скобках, выбирают минимальное (максимальное) число. Последний оператор обозначает: если максимальная из сторон равна полупериметру, то управление передается на метку 8. Если максимальная из сторон меньше полупериметра, то идем на метку 6 и вычисляем площадь. А иначе идем на метку 9.

8 WRITE(6,*)’ Площадь треугольника равна нулю’

GO TO 4

6 S=SQRT(P*(P-A)*(P-B)*(P-C))

WRITE(6,*)’ Площадь S=’, S

PAUSE








Дата добавления: 2015-06-10; просмотров: 1464;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.