Viixi faz um sistema de conversгo de moeda, medida...
com isso vc pode treinar varias estruturas...
cada conversгo vc pode jogar em uma subrotina mais como? assim
[code ] procedure NOME do procedimento (var {variaveis}:{tipo});
var{Caso deseje usar variavel local}
{poem as variaveis desejadas:tipo;}
begin{Inicio da subrotina}
dps
end;{Fim da rotina}
aii no programa principal vc vai ter q chamar elas aii fica assim
var
variavel q deseja:tipo;
begin
{nome do procedimento usado}(variavel usada);
dps qdo chamar todas vc pode fechar com end.[ /code]
exemplo feito por min e um pouco mais dificil mais se tu ir seguindo fica sussa...
Код:
end;
Procedure ConverteMoeda(var d,r,e:real); {Procedimento responsavel por fazer as conversoes de Moeda}
var {Declaracao de variaveis Locals}
DPR:REal; {Dollar para Real}
RPD:real; {real para dollar}
EPR:Real; {Euro para real}
RPE:Real; {rEAL PARA EURO}
op:real; {Opзгo}
Begin
Writeln('##############################################');
Writeln('##############################################'); {Criaзгo do Menu}
writeln('#######Escolha uma das conversoes abaixo######'); {Criaзгo do Menu}
Writeln('##############################################'); {Criaзгo do Menu}
Writeln('## 1 - Conversгo de Dollar para Real!#########'); {Criaзгo do Menu}
Writeln('## 2 - Conversгo de Real para Dollar!#########'); {Criaзгo do Menu}
Writeln('## 3 - Conversгo de Euro para Real!###########'); {Criaзгo do Menu}
Writeln('## 4 - Conversгo de Real para Dollar!#########');
Writeln('## 5 - Voltar para menu principal!############'); {Criaзгo do Menu}
Writeln('##############################################'); {Criaзгo do Menu}
Writeln('##############################################');
Readln(op); {Leia a variavel opзгo}
while (op<1) or (op>4) do
begin
writeln('Cуdigo do menu acima invбlido');
Writeln('Digite novamente a opзгo desejada: ');
Readln(op);
end;
if op=1 then {Primeira condiзгo}
Begin
Writeln('Digite a quantidade de DOLARES desejado: '); {Mensagem para usuario}
Readln(D); {Variavel que recebe o valor que usuario ira digitar}
DPR:=D*2.10; {Calculo de conversгo de metros para CM}
Writeln('O resultado da conversгo й: ',DPR:4:2);
end;
begin
if op=2 then
begin
Writeln('Digite a quantidade de reais desejado: '); {Mensagem para usuario}
readln®; {Variavel que recebe o valor que usuario ira digitar}
RPD:=r/2.10;
Writeln('O resultado da conversгo й: ',RPD:4:2);
end;
end;
begin
if op=3 then
begin
Writeln('Digite a quantidade de Euros desejado: '); {Mensagem para usuario}
readln(e); {Variavel que recebe o valor que usuario ira digitar}
EPR:=r*2.74;
Writeln('O resultado da conversгo й: ',EPR:4:2);
end;
end;
begin
if op=4 then
begin
Writeln('Digite a quantidade de reais desejado: '); {Mensagem para usuario}
readln®; {Variavel que recebe o valor que usuario ira digitar}
RPE:=r/2.74;
Writeln('O resultado da conversгo й: ',RPE:4:2);
end
end;
end;
Identaзгo do programa n esta boa mais da pra vc observar as estruturas as procedures as validaзхes feitas com while...
