Programa trocos

TRABALHO DE PROGRAMAÇÃO I

TEMA: PROGRAMA TROCOS

GRUPO_Nº 03 TURMA_EIN22

-INTEGRANTES DO GRUPO-

Nome Luciano Raimundo Brinco Dário Tarciso Domingos de Sousa Nelson Congo Cristóvão Orlando Edilson Sebastião António Sebastião Lourenço

Matrícula 1006612 1013001 1013037

Telefone 923509122 933454788 923643739 924194056 936219325

-OBJECTIVO DO PROGRAMALer um montante em kwanzas e dar trocos de acordo com as notas estabelecidas que são 2000kz, 1000kz, 500kz, 200kz, 100kz, 50kz, 10kz, 5kz e 1kz.

-COMO FUNCIONA.Ao abrir o programa o usuário tem 3 opções; comessar o programa, limpar a tela ou sair do programa.

.Ao escolher a opção 1, o programa pede para introduzir um valor ou montante em Kwanza.

.Depois de introduzir o montante o programa lê o montante e dá trocos de acordo com as notas estabelecidas.

.E depois programa.

o

usuário

pode

repetir

o

ciclo

ou

sair

do

-CÓDIGO FONTEProgram trocos; uses Crt; const doismil=2000; mil=1000; kinhentos=500; duzentos=200; cem=100; cinquenta=50; dez=10; cinco=5; um=1; var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,valorkz:integer; opcao:char; begin repeat writeln('Para comessar prima a tecla 1 depois Enter'); writeln('Para sair prima a tecla 0 depois Enter'); writeln('Para limpar a tela prima a tecla L depois Enter'); readln(opcao); case opcao of '1':begin writeln('Introduza um valor em kwanzas readln(valorkz); {calcula a notas de 2000 kwanzas} a:=valorkz div doismil; b:=valorkz mod doismil; writeln('A quantidade de notas usadas {calcula a notas de 1000 kwanzas} c:=b div mil; d:=b mod mil; writeln('A quantidade de notas usadas {calcula a notas de 500 kwanzas} e:=d div kinhentos; f:=d mod kinhentos; writeln('A quantidade de notas usadas {calcula a notas de 200 kwanzas} g:=f div duzentos; h:=f mod duzentos; writeln('A quantidade de notas usadas {calcula a notas de 100 kwanzas} i:=h div cem; j:=h mod cem; writeln('A quantidade de notas usadas

e prima Enter');

de 2000 kwanzas