PSEUDOC DIGO Padr O Forbellone

Trabalho pratico 1 (CIC & SI) – AEDs
Bárbara Bastos; Thays Bastos.
PSEUDOCÓDIGO (Padrão Forbellone)
Livro: Fundamentos da Programação de Computadores
Capítulo 6: Exercícios Propostos 3, 10 , 17 e 22

Inicio CodProd= vetor [1..10]de inteiros; QtdEst= vetor [1..10]de inteiros;
Inteiro: CodCli, CodProd1 , Qtd, i, j, l, y, opção; CodProd [1] <- 10; CodProd [2] <- 20; CodProd [3] <- 30; CodProd [4] <- 40; CodProd [5] <- 50; CodProd [6] <- 60; CodProd [7] <- 70; CodProd [8] <- 80; CodProd [9] <- 90; CodProd [10] <- 99; QtdEstq [1] <- 30; QtdEstq [2] <- 15; QtdEstq [3] <- 10; QtdEstq [4] <- 5; QtdEstq [5] <- 9; QtdEstq [6] <- 10; QtdEstq [7] <- 15; QtdEstq [8] <- 5; QtdEstq [9] <- 8; QtdEstq [10] <-10; y <-0; escreva ("Ola, seja bem vindo!"); escreva ("Informe o codigo do cliente:"); leia (CodCli); se (CodCli = 0) entao fim; senao escreva ("Informe o codigo do produto que deseja:"); leia (CodProd1); fimse; l <- 0; para i <- 1 ate 10 passo 1 faca se (CodProd1 <> CodProd[i]) entao l <- l + 1;

se l = 10 entao escreva ("CODIGO DO PRODUTO INEXISTENTE!"); fim; senao; escreva ("Informe a quantidade que vc deseja deste produto:"); leia(Qtd); fimse;

para i <- 1 ate 10 passo 1 faca se (CodProd[i] = CodProd1) entao y <- i; fimse; fimpara; se (Qtd > QtdEstq[y]) entao escreva ("NAO TEMOS ESTOQUE SUFICIENTE DESSA MERCADORIA!"); fim; senao; escreva ("PEDIDO ATENDIDO! OBRIGADO, VOLTE SEMPRE..."); QtdEstq[y] <- QtdEstq[y]-Qtd; escreva ("...ATUALIZACAO DO ESTOQUE..."); escreva ([COD.PRODUTO]-[QTD.ESTOQUE]); fimse; para i <- 1 ate 10 passo 1 faca escreva (CodProd[i], QtdEstq[i]); fimse; fimpara; fim; Inicio v1= vetor [1..10]de inteiro; v2= vetor [1..5]de inteiro; res1= vetor [1..10]de inteiro; res2= vetor [1..10]de inteiro; inteiro: i,j,x,y,somav2, soma, cont; x <- 0; y <- 0; somav2 <- 1; escreva ("Informe 10