Ciencia da Computação

562 palavras 3 páginas
Algoritmo um;
Declare
op: inteiro; Inicio escreva "O que deseja fazer: "; escreva "(1) Cadastrar nova conta."; escreva "(2) Visualizar contas por cliente."; escreva "(3) Excluir conta com menor saldo."; escreva "(4) Sair."; leia op; escolha (op) { op1: cadastro(); op2: visualizar(); op3: exluir(); op4: sair(); }
Fim

Sub-rotina cadastro() Declare cadastro: Registro; nome: literal; numero: inteiro; saldo: real; fim-resgistro; i=1,j,op2: inteiro; Inicio faça { escreva "Entre com o nome do cliente: "; leia cadastro[i].nome; escreva "Entre com o numero da conta: "; leia cadastro[i].numero; escreva "Entre com o saldo da conta: "; leia cadastro[i].saldo; escreva "Deseja efetuar um novo cadastro: (1)Sim (2)Não "; leia op2; se op2 == 1 então i = i + 1; senão i = 16; } enquanto ( i < 16); Fim-sub-rotina;

Sub-rotina visualizar() Declare nome: literal; i: inteiro; Inicio escreva "Digite o nome do cliente: "; leia nome; para i = 0 até i < 15 faça { se nome == cadastro.nome[i] então escreva "As contas do cliente ",nome," são: ",cadastro.nome[i]; } Fim-sub-rotina;

Sub-rotina excluir() Declarar menor: real; i: inteiro

menor = cadastro[0].saldo; para i =0 até i < 15 faça { se menor > cadastro[i].saldo então menor = cadastro[i].saldo; } para i =0 até i < 15 faça { se menor == cadastro[i].saldo então { cadastro[i].saldo = 0; cadastro[i].nome = '';

Relacionados

  • Ciencia da computação
    378 palavras | 2 páginas
  • ciências da computação
    698 palavras | 3 páginas
  • CIencias da computação
    575 palavras | 3 páginas
  • Ciencias da computação
    593 palavras | 3 páginas
  • A Ciencia da Computaçao
    1125 palavras | 5 páginas
  • ciencias da computação
    3324 palavras | 14 páginas
  • ciencias da computação
    375 palavras | 2 páginas
  • Ciencia da Computação
    355 palavras | 2 páginas
  • Ciencias da computação
    847 palavras | 4 páginas
  • Ciencias da computaçao
    1138 palavras | 5 páginas