A program for calculating the area of a triangle using Heron’s formula:

[CODE:]

*********************************************************************

`CLS`

```
```'Program description, it's always good to have one at the top

PRINT "A program for calculating the area of a triangle using Heron's formula."

10 PRINT "Input the value of the triangle's sides:"

INPUT "a = ";a

INPUT "b = ";b

INPUT "c = ";c

'Check if it's a triangle

IF (a < 0 OR b < 0 OR c < 0 OR a + b < c OR a + c < b OR b + c < a) THEN

PRINT "That is not a triangle. Try again."

BEEP

GOTO 10

ELSE

'Calculation

s = (a + b + c)/2

P = s * (s - a) * (s - b) * (s - c)

P = P ^ (1 / 2)

END IF

'Result print-out

PRINT "P = ";P

'Repeat the program

20 INPUT "Repeat the program [press 1 for YES, and 2 for NO]"; out%

IF (out% 1 AND out% 2) THEN

PRINT "Wrong input!"

GOTO 20

ELSEIF out% = 1 THEN GOTO 10

END IF

`END`

*********************************************************************

[/CODE]

Read the rest of this entry »