Vinícius Proença

Gostaria da opinião sobre a minha resolução do algoritmo abaixo... Tô no caminho ou nem? para descomplicar: vlr=valor vlr_i=valor do investimento vlr_pp=poupança vlr_rf= fundos de renda vlr_cd=CDBs Program Pzim ; //3. Uma agência bancária possui vários tipos de investimentos com rendimentos mensais, conforme a tabela //abaixo: //Valor Mínimo Descrição Rentabilidade Mensal //R$ 100,00 Poupança 0,5% //R$ 1000,00 Fundos de Renda Fixa 1% //$ 2500,00 CDBs 1,5% //Faça um programa que leia o valor que o cliente deseja investir e calcule e exiba os tipos de aplicação que ele //pode fazer e qual será sua rentabilidade (lucro) em cada uma delas (se for mais de uma). O programa termina //quando for digitado um valor de investimento negativo. var vlr_i,opc,vlr_pp,vlr_rf,vlr_cd,resp:real; Begin Writeln('======================== LISTA DE INVESTIMENTOS ============================'); Writeln(); Writeln(' VALOR MÍNIMO DESCRIÇÃO RENTABILIDADE MENSAL '); Writeln(); Writeln(' R$100,00 POUPANÇA 0,5% '); Writeln(' R$1000,00 RENDA FIXA 1% '); Writeln(' R$2500,00 CDBs 1,5% '); Writeln(); Writeln('============================================================================= '); repeat repeat Writeln('Digite o Valor prentendido a investir: '); readln(vlr_i); if (vlr_i>0) then begin Writeln('Selecione uma das 3 opções acima: '); readln(opc); if opc=1 then begin vlr_pp:=(vlr_i*5/1000); writeln('O redimento mensal esperado nessa operação será de: ',vlr_pp,' reais'); end; if opc=2 then begin vlr_rf:=(vlr_i*1/100); Writeln('O redimento mensal esperado nessa operação será de: ',vlr_rf,' reais'); end; if opc=3 then begin vlr_cd:=(vlr_i*15/1000); Writeln('O redimento mensal esperado nessa operação será de: ',vlr_cd,' reais'); end; end; until (vlr_i<=0); writeln('Tecle 1 para fazer outra operação ou 0 para finalizar.'); readln(resp); until (resp=0); End.

Bom dia, esse é o meu primeiro tópico aqui e eu gostaria de pedir desculpas pela inconveniência de tomar o tempo de vocês com erros tão toscos quanto os que cometi nesse algoritmo. Acabei de começar a disciplina de algoritmos na faculdade e já estou tendo muitos problemas com a lógica envolvendo as estruturas de repetição aninhadas e eu gostaria que me ajudassem em particular com esse algoritmo que deixarei abaixo... Estou nele a 3 dias e já não sei o que fazer, TUDO dá errado e eu já estou me achando a pessoa mais ***** da face da terra... Eu não quero que resolvam para mim, eu apenas quero entende-lo e aprender a fazer do meu próprio jeito. Desde já agradeço. Program Pzim ; //2. Um total de 500 alunos de uma universidade foram entrevistados. De cada um deles foram colhidas as //seguintes informações: o código do curso que freqüenta (1-engenharia; 2-computação; 3-administração) e //a idade. Faça um programa que processe estes dados e que forneça as seguintes informações: //a) número de alunos por curso; //a) número de alunos com idade entre 20 e 25 anos, por curso; e //a) qual o curso com menor média de idade. Var cda,ida,ae,ac,aa,aen,idan,acn,aan,na : real; resp : string; Begin Repeat ae:=0; ac:=0; aa:=0; Repeat write('digite o número do aluno'); readln(na); Write('Tecle 1 para engenharia, 2 para computação, 3 para administração e 0 para parar '); Readln(cda); Write('Digite a idade do aluno'); readln(ida); if cda=1 then begin ae := ae + 1; if (ida > 20) and (ida < 25)then begin aen:=aen+1; idan:=ida; end; if (cda =2)then begin ac := ac + 1; if (ida >20 and ida <25)then begin acn:=acn+1; idan:=ida; end; end; if (cda = 3) then begin aa := aa + 1; if (ida >20 and ida <25 )then begin aan:=aan+1; idan:=ida; end; end; Until cda = 0; Writeln('há mais algum estudante a ser considerado?:'); Until resp = 'n'; Writeln('O número de estudantes que cursam engenharia é:'ae, 'e número de estudantes com idades entre 20 e 25 anos é de:',idan ); Writeln('O número de estudantes que cursam computação é:'ac, 'e número de estudantes com idades entre 20 e 25 anos é de:',idan ); Writeln('O número de estudantes que cursam administração é:'aa, 'e número de estudantes com idades entre 20 e 25 anos é de:',idan ); Readkey; End.