MASTER:R.C.S.C

BORDEUT VASILE LUCIAN

!TEMA 1.program TEMA1CALCULULARIEITRIUNG

! Acest program calculeaza aria unui triunghi cu ajutorul formulei lui HERONimplicit none

! declaratie

! Variabilereal a,b,c,p,S

write (*,*) 'UNIVERSITATEA TEHNICA "Gh. Asachi" IASI'WRITE (*,*) 'MASTER : R.C.S.C.'WRITE (*,*) 'Masterand: BORDEUT VASILE LUCIAN'write (*,*)

write (*,*) 'DECLARAREA DATELOR DE INTRARE'write (*,*) 'Unitate de masura a laturilor: [mm]'write (*,*)

write (*,1)1 format ('a=',$)

read (*,*) a

write (*,2)2 format ('b=',$)

read (*,*) b

write (*,3)3 format ('c=',$)

read (*,*) c

4 write(*,*) 'a,b,c sunt:',a,b,c

if ((a<=0.) .or. (b<=0.) .or. (c<=0.) .or. ((a+b)<=c) .or. ((a+c)<=b) .or. ((c+b)<=a)) thenwrite(*,*) 'EROARE - VERIFICATI DACA LATURILE SUNT POZITIVE SI DACA O LATURA E INTOTDEAUNA

MAI MICA DECAT SUMA CELORLALTE DOUA'else

!DETERMINAREA SEMIPERIMETRULUIp=(a+b+c)/2.0

write(*,*)'Semiperimetru P este :=',p!DETERMINAREA ARIEI TRIUNGHIULUIS=sqrt(p*(p-a)*(p-b)*(p-c))

write(*,*)'Aria triunghiului S este egala cu:',Sendif

read(*,*)

end program TEMA1CALCULULARIEITRIUNG

MASTER:R.C.S.C

BORDEUT VASILE LUCIAN

START

Reada,b,c,p,S

Write a,b,c

IfIF

a<=0, b<=0, c<=0,

a+b<=c, a+c<=b, b+c<=a

NU

DA

'EROARE -VERIFICATI DACALATURILE SUNT

POZITIVE SI DACAO LATURA E

INTOTDEAUNA MAIMICA DECAT SUMACELORLALTE DOUA

p=(a+b+c)/2.0

S=sqrt(p*(p-a)*(p-b)*(p-c))

Write a,b,c

MASTER:R.C.S.C

BORDEUT VASILE LUCIAN

MASTER:R.C.S.C

BORDEUT VASILE LUCIAN

TEMA NR.1

DETERMINAREA ARIEI TRIUNGHIULUI CU FORMULA LUIHERON

MASTER:R.C.S.C

BORDEUT VASILE LUCIAN

1. CERINTA:

Se cere calculul arie unui triunghi folosind formula lui Heron.

2. Formule Utilizate

Pentru calculul ariei unui triunghi vom folosi formula lui Heron:= ( − )( − )( − ) (1)

unde p este semiperimetrul şi se calculează cu formula:= (2)

Date de intrare:

Date de intrare sunt laturile triunghiului: a,b,c

Date de ieşire:

Rezultatul este aria triunghiului: S.

Metoda de calcul:

Se calculează mai întâi semiperimetrul cu formula (2), iar apoi se calculează aria triunghiului cu relaţia(1).