Paulo_elite

Os seus exercícios são muito fáceis... mais como eu já disse, preciso ver suas dúvidas, poste como o nego drama disse... um por vez, pra gente analisá-lo e sanar suas dúvidas!!! Agora em termos de compilador, esse VisuAlg é bom, na minha opinião, não é o melhor método para se aprender lógica, mais cada pessoa tem suas afinidades... Baixe o compilador citado pelo nego drama e teste o que você já fez!!! Lembrando que, poste suas dúvidas, e não sua lista de exercícios!!! Abraços... Paulo!!!

É verdade, também não entendi isso!!!

Ih... olha só!!! Já estão me dedurando!!! :P Nada disso... eu só achei interessante o caso dela... :blink:

Me mostre o que já fez, e qual é sua dúvida... :blink: Não posso fazer sua lista de exercícios e postar aqui prontinho pra você... :( Por favor, post o que já fez e diga quais são suas dúvidas!!! :rolleyes:

Hehehe... É sério... ^_^ gostaria de saber em que é formada... ou onde é a fonte de sua sabedoria...

Verdade, já nos entramos e trocamos algumas mensagens. Discordo. Prefiro trabalhar com meninos, mas nada contra as meninas...pelo contrário, precisamos mesmo de mais representantes do sexo forte. :P Obrigada...de novo pelas boas-vindas. :) Que gracinha... Opinião não se descute né? :rolleyes: Ah... até que enfim pude ver você na ativa respondendo algo meu... hehehehhehe!!!! :blush: Depois gostaria de saber do seu currículo, pode ser???

Não acredito numa coisa dessas... :blink: Eu acho que esse fórum tiha que ser no mínimo 80% só mulheres... Quer melhor que trabalhar em um ambiente cheio de presenças femininas??? :rolleyes:

Que isso kandrade, é profissionalismo... Rsrs!!! :blink: mais... kandrade, deixa a gente tirar uma casquinha sô... Hehehehe... :rolleyes:

Meus Parabéns... Admiro demais uma mulher nessa área, que não é tão comum assim... fico feliz demais em saber que cada dia isso vai aumentando... Na área de informática, eu acho muito legal, uma mulher executando funções... Acho fascinante, acho até atraente... :blush: Então Miliane, seja bem vinda, não faço parte da administração do fórum, mais desejo de coração que seja Ben-vinda!!! Espero podermos concatenar idéias e soluções para problemas adversos, e assim, adquirirmos conhecimentos mútuos... MEUS PARABÉNS.................. :rolleyes: Fica aqui um Beijo e um abraço!!! Paulo!!!!!!!!

Você queria criar isso em ambiente local ou de rede???

Me desculpe... é que escrevi ele em pascal... Me desculpe, esqueci que precisa mesmo é do alorítmo, apenas da lógica... Me desculpe... mais... O nego drama traduziu ele aí pra você entender melhor.... Me desculpe pelo deslize... :wacko: Da próxima vez faço ele em Portugol pra você, okj? e não em Pascal... ah.. obrigado a você nego drama, por ter traduzido o código, ok? :rolleyes: Abraços... Paulo!!!

Não é bem o que você está procurando, mais preciso fazer você pensar um pouco... Não posso postar a resposta mastigada pra você... Eis aqui um exeplo de quase o que você precisa, so que esse sistema alcula contas de energia, mais ele também exclui aqueles clientes isentos, plano do gorverno de pessoas carentes.... Acho que dá pra você tiar uma ótima base!!! Program CONSUMODEENERGIA; Var Cod, Quantidadekw:integer; valor,Precokw:real; N:char; BEGIN N:='S'; while (n='S') or (n='s') do begin writeln(' SISTEMA DE CALCULO DE CONSUMO DE ENERGIA ELÉTRICA'); writeln('________________________________________________________________________________'); writeln; writeln('Digite o código do consumidor: '); readln(Cod); writeln('Informe o preço do kw: '); readln(PrecokW); writeln('Insira a quantidade de kw consumida pelo consumidor: '); readln(QuantidadeKw); valor:= (Precokw * Quantidadekw); If (valor < 11.20) then begin writeln; writeln; writeln('--------------------------------------------------------------------------------'); writeln('Código do Consumidor: ',cod); writeln('Valor do Kw: R$ ',Precokw:5:2); writeln('Total de kw consumido pelo consumidor: ',Quantidadekw); writeln('Calculo de Tarifa: R$ ', valor:5:2); writeln; writeln('Situação: CONSUMIDOR ISENTO'); writeln; writeln; writeln; writeln('VALOR A PAGAR: R$ 0,00'); end Else begin writeln; writeln; writeln('--------------------------------------------------------------------------------'); writeln('Código do Consumidor: ',cod); writeln('Valor do Kw: R$ ',Precokw:5:2); writeln('Total de kw consumido pelo consumidor: ',Quantidadekw); writeln; writeln; writeln; writeln('VALOR A PAGAR: R$ ', valor:5:2); end; writeln; writeln('--------------------------------------------------------------------------------'); writeln; writeln('Deseja calcular outra conta? (s/n)'); readln(n); if (n='n') or (n='N') then begin writeln; writeln; writeln(' Saindo do sistema...'); writeln(' Sistema sendo encerrado...'); writeln; writeln; writeln(' SISTEMA ENCERRRADO!!!'); end; end; End.

Pelo que eu entendi lá no primeiro post... Era pra fazer um programa que leia 35 launos, com suas respectivas notas de primeiro e segundo bimestres, e dar como saída, a média da turma em geral e quantos alunos obtiveram notas acima da média... Veja se é isso que eu entendi.... coloquei a média valendo 7.... Program SCRIPT_BRASIL_PAULO_ELITE; Var nome: array[1..35] of string[40]; nota1: array[1..35] of real; nota2: array[1..35] of real; media: array[1..35] of real; media_aluno,v,media_turma: real; p,r:integer; BEGIN p:=1; r:=0; for p:=1 to 35 do begin writeln(' SISTEMA DE CALCULO DE MÉDIAS ESCOLARES'); writeln('__________________________________________________________________________'); writeln; writeln('Digite o nome do aluno: '); readln(nome[p]); writeln('Informe a primeira nota do aluno, ',nome[p],': '); readln(nota1[p]); writeln('Insira a segunda nota do aluno, ',nome[p],': '); readln(nota2[p]); media[p]:=(nota1[p]+nota2[p])/2; media_turma:=media_turma+media[p]; if media[p] >= 7 then begin r:=r+1; end; p:=p+1; end; v:=media_turma/35; writeln('A média obtida entre todos os alunos foi de: ',v:2:1); writeln('O número de alunos com média acima da média foi de: ',r,' alunos'); End.

claro... Pelo que pude analisar, o algorítmo não tem saída de informações, (RESPOSTAS)... Ele está armazendando, calculando, mais não está mostrando o resultado... Ele na prática só fica pedindo as notas do 1º e 2º bimestres... Ele as processa na sua memória RAM mais não tem onde mostrar...

calcular a média até que ele calcula, mais me diz uma coisa, onde ele vai mostrar os resultados? Esse é o bloco de entrada... escreva ("entre com a nota do primeiro bimestre: ") leia (Prim_bimestre [cont]) escreva ("entre com a nota do segundo bimestre: ") leia (seg_bimestre [cont]) Esse é o bloco de processamento... media [cont] := (Prim_bimestre [cont]+ seg_bimestre [cont])/2 soma:= soma + Prim_bimestre [cont]+ seg_bimestre [cont] media_turma := soma / cont Agora, onde está a saída? Ele armazena os dados até o fim do enquanto, daí ele não exibi a saída e volta pra calcular o outro aluno... Daí há uma perda de dados (limpeza de Ran) pra outro processamento, mais como você não exibiu na tela, fica tudo perdido... Faça a saída dos dados da média do aluno e média da turma... Na Informática, tem um princípio básico de programação, entrada de dados, processamento, e saída de dados... Sinto em diser, mais esse seu algorítmo está falando a parte principal para o usuário... A saída de dados....