Algoritmo

ALUNOS: MICHEL, PAULO
FAÇA UM ALGORITMO EM PORTUGOL PARA CALCULAR A ÁREA DAS SEGUINTES FIGURAS GEOMÉTRICAS: RETÂNGULO, TRIÂNGULO E CÍRCULO. O PROGRAMA DEVERÁ UTILIZAR A ESTRUTURA PARA/FAÇA, PARA CONTROLAR A QUANTIDADE DE VEZES OU DE FIGURAS QUE O USUÁRIO IRÁ CALCULAR A ÁREA. AO FINAL O ALGORITMO DEVERÁ MOSTRAR A MÉDIA DAS ÁREAS DOS RETÂNGULOS, TRIÂNGULOS E CÍRCULOS. TAMBEM DEVERÁ MOSTRAR QUAL A MENOR E MAIOR ÁREA CALCULADA PARA AS TRES FIGURAS.

ALGORITMO AREA;
VAR NF, K, OPCAO, TRET, TTRI, TCIR: INTEIRO;
A, B, MAIRET, MAITRI, MAICIR, MENRET, MENTRI, MENCIR, RET, TRI, CIR, ARERET, ARETRI, ARECIR: REAL;
INICIO
ESCREVA (“NÚMERO DE FIGURAS QUE DESEJA A ÁREA:”); LEIA (NF); RET:= 0; TRI:= 0; CIR:= 0; TRET:= 0; TTRI:= 0; TCIR:= 0; PARA K:=0 ATE NF FACA INICIO ESCREVA (“DIGITE 1 PARA RETÂNGULO=”); ESCREVA (“DIGITE 2 PARA TRIÂNGULO=”); ESCREVA (DIGITE 3 PARA CÍRCULO=”); LEIA (OPCAO); SE (OPCAO:= 1) INICIO ESCREVA (“DIGITE O VALOR DO LADO A=”); LEIA (A); ESCREVA (“DIGITE O VALOR DO LADO B=”); LEIA (B); ARERET:= A*B; ESCREVA (“VALOR DA ÁREA=”, ARERET); SE (TRET=0) ENTAO INICIO MENRET:=ARERET; MAIRET:= ARERET; FIM; SE (ARERET>MAIRET) ENTAO MAIRET:= ARERET; SE (ARERET<MENRET) ENTAO MENRET:= ARERET; RET:= RET+ARERET; TRET:= TRET+1; FIM; SE (OPCAO:= 2) INICIO ESCREVA (“DIGITE O VALOR DA BASE=”); LEIA (A); ESCREVA (“DIGITE O VALOR DA ALTURA=”); LEIA (B); ARETRI:= (A*B)/2; ESCREVA (“VALOR DA ÁREA=”, ARETRI); SE (TTRI=0) INICIO MENTRI:=ARETRI; MAITRI:= ARETRI; FIM; SE (ARETRI > MAITRI) ENTAO MAITRI:= ARETRI; SE (ARETRI<MENTRI) ENTAO MENTRI:= ARETRI; TRI:= TRI+ARETRI; TTRI:= TTRI+1; FIM; SE (OPCAO:= 3) INICIO ESCREVA (“DIGITE O VALOR DO RAIO=”);