Algoritmo Estruturados 3 Edição

algoritmo

1.12.1

algoritmo “1.12.1”

declare ID, PESSOAS, MEDIA, TID númerico;

ID 0;

TID 0;

PESSOAS  0;

MEDIA 0 ;

escreva (“DIGITE 0 PARA FINALIZAR O PROGRAMA”);

repita

escreva (“QUAL A SUA IDADE”);

leia(ID)

se ID <=0 então

interrompa

fimse

PESSOASPESSOAS+1

TIDTID+ID

fimrepita

MEDIA (TID/PESSOAS)

escreva (“MEDIA IGUAL Á: “, MEDIA)

fim.

 

1.12.2

algoritmo “1.12.2”

declare HOMEM, MULHER, ALTURA, MAIOR, MENOR, ALTM, PESSOAS numerico

declare SEXO literal

HOMEM  0;

MULHER  0;

ALTURA 0;

MENOR  200;

ALTM  0;

MAIOR  0;

PESSOAS  0;

SEXO  “F”;

repita

escreva(“QUAL A ALTURA”);

leia(ALTURA);

escreva(“QUAL O SEXO”);

leia(SEXO);

se SEXO=”F” então

ALTMALTM+ALTURA

MULHERMULHER+1

fimse

se ALTURA>MAIOR então

MAIORALTURA

fimse

se MENOR<ALTURA então

MENORALTURA

fimse

PESSOASPESSOAS+1

ate PESSOAS=50

MEDIAALTM/MULHER

HOMEM PESSOAS-MULHER

escreva(“QUANTIDADE DE HOMENS”,HOMEM, ”MEDIA DAS MULHERES”, MEDIA, “MAIOR ALTURA”, MAIOR, “MENOR ALTURA”, MENOR);

fim.

 

1.12.3

algoritmo “1.12.3”

declare TF,TC númerico

TF0

TC0

para TF de 50 ate 150 passo 1 faça

TC (5/9)*(TF-32)

escreva(TF,”°F PARA CENTIGRADOS É”,TC,”°C”)

fimpara

fim.

 

1.12.4

algoritmo ”1.12.4”

declare LUCRO,COMPRA,VENDA,TLUCRO,TCOMPRA,TVENDA,LU10,LU1020,LU20 numerico

PRODUTO literal

LUCRO0

LU100

LU10200

LU200

COMPRA0

VENDA0

TCOMPRA0

TVENDA0

PRODUTOZ

repita

escreva(“NOME DO PRODUTO:”)

leia(PRODUTO)

se produto=”” entao

interrompa

fimse

escreva(“VALOR DE COMPRA:”)

leia(COMPRA)

escreva(“VALOR DE VENDA:”)

leia(VENDA)

LUCRO (VENDA-COMPRA)*100/COMPRA

se LUCRO<10 então

LU10LU10+1 senão

se LUCRO<=20 então

LU1020LU1020+1 senão

LU20LU20+1

fimse

fimse

TCOMPRATCOMPRA+COMPRA

TVENDATVENDA+VENDA

fimrepita

TLUCROTVENDA-TCOMPRA

esc reva(“TOTAL DE COMPRA”,TCOMPRA,”TOTAL DE VENDA”, TVENDA, “LUCRO TOTAL”, TLUCRO)

escreva(“LUCRO MENOR QUE 10%”,LU10,”MENOR QUE 20%”,LU1020, “MAIOR QUE 20%”,LU20)

fim.

1.12.5

algoritmo ”1.12.5”

declare TXA,TXB,PAISA,PAISB,ANO numerico

TXA0,003

TXB0,0015

PAISA90.000.000

PAISB200.000.000

ANO0

repita

se PAISA>=PAISB então

interrompa

fimse

PAISAPAISA+(PAISA*TXA)

PAISBPAISB+(PAISB*TXB)

ANOANO+1

fimrepita

escreva(“PRECISA DE”,ANO,”PARA PAIS A SE EQUIPARE A PAIS B”)

fim.