ALGORITMO: diagramas de blocos (Funcao SE)

1A

CALCULO DA AREA DE
UM CIRCULO

INFORME O RAIO

inicio
// Seção de Comandos
ESCREVAL ("CALCULO DA AREA DE UM CIRCULO")
ESCREVAL ("INFORME O RAIO")
LEIA (R)
SE R=INT(R)ENTAO
ESCREVAL ("VALOR DO RAIO:", R)
AREA<- 3.14*(R^2)
ESCREVAL ("A AREA DO CIRCULO É:", AREA)
SENAO
ESCREVAL ("VALOR INCORRETO")
FIMSE
fimalgoritmo

R

N

R=Int(R)

S

VALOR DO RAIO: ,
R

VALOR INCORRETO

AREA<- 3,14*(R^2)

A AREA DO
CIRCULO É: , AREA

FIMALGORITMO

1B

CALCULO DA
AREA DE UM
TRIANGULO

var
B, A, AREA:REAL inicio // Seção de Comandos
ESCREVAL ("CALCULO DA AREA DE UM TRIANGULO")
ESCREVAL ("INFORME A BASE")
LEIA (B)
SE B>0 ENTAO
ESCREVAL ("BASE INFORMADA:", B)
ESCREVAL ("INFORME ALTURA")
LEIA (A)
SE A>0 ENTAO
ESCREVAL ("ALTURA INFORMADA:", A)
AREA<- (B*A)/2
ESCREVAL ("A AREA DO TRIANGULO É:", AREA)
SENAO
ESCREVAL ("VALOR INCORRETO")
FIMSE
SENAO
ESCREVAL ("VALOR INCORRETO")
FIMSE

INFORME A
BASE

B

N

S

B>0

BASE
INFORMADA:
,B

VALOR
INCORRETO

INFORME
ALTURA

fimalgoritmo
A

N

VALOR
INCORRETO

A>0

S

ALTURA
INFORMADA:
,A

AREA<- (B*A)/2

A AREA DO
TRIANGULO
É: , AREA

FIMALGORITMO

1C

var
A, B, C, DELTA, X1, X2:REAL
INFORME A

A

S

N
A<>0

INVALIDO

INFORME B

B

S

N
B<>0

INVALIDO

INFORME C

C

N

S

C<>0

DELTA<- (B^2)(4*A*C)

INVALIDO

N

NÃO EXIS TE
RAIZ DE UM N°
NEGATIVO

DELTA >=
0

N

S

S

DELTA >
0

RAIZES
DIFERENTES

RAIZES IGUAIS

X1<-(-B+
(raizQ(DELTA)))/(2*A)

X2<-(-B(raizQ(DELTA)))/(2*A)

A RAIZ DE X1 É: ,
X1

A RAIZ DE X2 É: ,
X2

FIMALGORITMO

inicio
// Seção de Comandos
ESCREVAL ("INFORME A")
LEIA (A)
SE A<>0 ENTAO
ESCREVAL("INFORME B")
LEIA (B)
SE B<>0 ENTAO
ESCREVAL("INFORME C")
LEIA (C)
SE C<>0 ENTAO
DELTA<-(B^2)-(4*A*C)
SE DELTA >= 0 ENTAO
SE DELTA > 0 ENTAO
ESCREVAL("RAIZES DIFERENTES")
SENAO
ESCREVAL ("RAIZES IGUAIS")
FIMSE
X1<-(-B+ (raizQ(DELTA)))/(2*A)
X2<-(-B- (raizQ(DELTA)))/(2*A)
ESCREVAL ("A RAIZ DE X1 É:", X1)
ESCREVAL ("A RAIZ DE X2 É:", X2)
SENAO
ESCREVAL("NÃO EXISTE RAIZ DE UM N° NEGATIVO")
FIMSE
SENAO
ESCREVAL("INVALIDO")
FIMSE
SENAO