Ir para conteúdo
Fórum Script Brasil

Paulo_elite

Membros
  • Total de itens

    51
  • Registro em

  • Última visita

Tudo que Paulo_elite postou

  1. Poste pelo menos o que tentou fazer, programação é uma arte, e é pessoal, cada pessoa pensa e programa de um jeito, claro que numa estrutura bem típica, mais linhas de raciocínio diferentes! Então poste o que já fez...
  2. concordo com o Beraldo, poste aqui o que fez, tente fazer, sem medo de estar erradom... assim podemos ajudar e você aprender, ok?
  3. Poste o algorítimo completo... pra eu analisar seus erros, não precisa colocar a parte do cálculo, essa eu faço pra você, mais queri seu algorítimo bem estruturado!
  4. kkkkkkkkk... Agora que vi... Me perdoe de coração!!! Olha eu postndo coisa errada... hehehehe Oh vergonha!!! kkkkkkk Me desculpe por postar coisa errada no fórum, eu estava equivocado com o que o colega queria!!!
  5. Veja esse tópico, não é a mesma coisa que quer, mais ajuda no seu raciocínio, eis um código que entra 3 valores e a saída é a ordem crescente, esse código pode ajudar a você estudar, sei que quer o maior, e já foi postado um código aqui pra você, mais olha o meu código que postei neste link Clique aqui
  6. Acho que assim te ajuda.. program inversao; uses wincrt; const lim=20; var n,i:integer; seq: array [1..lim] of integer; begin read(n); if n<=lim then for i:=1 to n do read(seq[i]); for i:=n downto 1 do write(seq[i]:3); writeln end; end.
  7. Só fazer um vetor de 3 linas, faça uma estrutura d looping até 3 para o usuário digitar, e outro looping de de saída até três...
  8. Mesmo curso que o meu, só falta esse camarada ser de Morrinhos em Goiás... Ah, se for, o nome do curso é Tecnologia em Sistemas para Internet Se for mesmo, passa veronha não, hehehe :rolleyes:
  9. Código mais enxuto!!! Pascal: Program Ordenar; Var Menor, N, Maior, Aux: Real; Begin Write ('Digite um numero: '); Readln (Maior); Write ('Digite um numero: '); Readln (N); Write ('Digite um numero: '); Readln (Menor); // o fato de os valores já entrarem //nas variáveis com nomes Maior e Menor //não significa que realmente o usuário //digitará nessa ordem. //se o usuário digitar noutra ordem, //o programa se encarrega de corrigir. If (Menor > Maior) Then Begin Aux := Maior; Maior := Menor; Menor := Aux; End; // ao chegar aqui, sei que Maior > Menor // mas não sei nada sobre N If (N > Maior) Then Begin Aux := Maior; Maior := N; N := Aux; End; // ao chegar aqui, sei que Maior > N // preciso me certificar de que N > Menor If (N < Menor) Then Begin Aux := Menor; Menor := N; N := Aux; End; Write (Menor, ' ', N, ' ' , Maior); End. Espero que tenha entendido!
  10. Compreendi amigo, meus Parabéns... Ficou ótimo sua calculadora!
  11. Negativo. Ao trocar o tipo de "media" para int, o problema continuará sendo exatamente o mesmo que o OP reclamou: a média dos valores 1 e 2 continuará sendo 1. A acurácia do resultado depende de "media" armazenar em ponto flutuante. Portanto, para resolver, só com "media" sendo float. E, adicionalmente, o cast que indiquei ou então, trocar tudo para float de uma vez. Fora isso, não dá. Caro amigo, acho que você não entendeu, ele quer que o resultado seja sempre um inteiro, olha só o pedido dele! Preciso fazer um programa que calcule a media de duas notas mas por exemplo, quando executo e entro com valores 1 e 2 ele me retorn media 1 ao invés de 1,5. Por isso que postei o quebra galho, ou então o jeito erto, fazendo um cast!!! Entendeu agora? Se a resposta for 1.5, ele quer apenas a casa do inteiro!!! Pode fazer isso dependendo da plicação no próprio palicativo, por exempro em pascal (media, 2:0)...
  12. Ficou show de bola, gostei... Tem algumas coisas como os colegas dewscreveram a cima, mais tem uma mensagem que tem que dar uma melhorada... Por exempo: 9+9= Ele dá o resultado, se eu clicar logo em seguida 9 * ele me dá uma mensagem de atenção dizendo "Sim" e depois retorna a aplicação, não influencia no resolado depois, mais não entendi o por que dessa mensagem, reveja esse script... No mais, achei ótima! Parabéns!!! Reveja os seus tratamentos de erros!
  13. Post o que você já fez, ou o que sabe, assim posso te ajudar!
  14. media = (float)(numero1+numero2)/2; O Cast resolve da forma mais tradicional, agora mudar a semântica tyambém resolve, o que postei era apenas um quebra galho, como a variável so recebe números inteiros, quando tentar entrar números fracionários, ele eliminará... Isso dependendo do compilador, se for um conpilador antigo, dá erro, semantica de dados errados.... é como querer inserir um campo bolean um string! Espero ter esclarecido meu post anterior!
  15. Ficou otimo, parabéns, pode melhorar ainda mais...
  16. Select * From Tabela Where Not IsNumeric(Inscr_Estadual) Estranho, a sintaxe em sql deste código está certa, pode ser outro banco de dados!!!
  17. Concordo com o Eder Morais... O pascal é uma ótima linguagem e nas universidades do meu conhecimento, ele é muito utlizado para a aprendizagem de lógica de programação! O delphi nada mais é que o pascal melhoado, o pascal um linguagem estruturada, e o deplhi, estruturada também, mais orientada a objeto! O Lázaros é uma ótima ferramenta, mais se compararmos com o Delphi ele deixa a desejar, o delphi 9 para palicativos web é muito interessante!!!
  18. Post o que você já fez, ou o que sabe, assim posso te ajudar!
  19. Apenas mude de float pra integer sua variável media!!! Só mudar a semântica!
  20. É isso mesmo, depois voc~e faz um projessão de relacionamento! Você tem que fazer os tratamentos certos no seu BD e deixe ele tomar conta! não precisa criar um monte de tableas, numa só dá pra fazer o que está proposto, no máximo duas, como nosso colega disse!!!
  21. Seu código está cheio de erros de sintaxe... Olha um deles aqui!!! writeln('Entre com o primeiro preço de compra do primeiro produto da primeira cidade'); readln(cidades[1].precocompra); writeln('Entre com o segundo preço de compra do primeiro produto da primeira cidade'); readln(cidades[1].precocompra); Você está entradno com valores diferentes na mesma variável precocompra, além disso ela teria que ser um array; Tem vários outros, mais como o obrjetivo do fórum é ajudar, mais não fazer, quero que releia seu código e tente encontrar mais erros, se estiver difícil, te ajudarei em outro erro fatal que cometeu! Estou fazendo isso para sua própria aprendizagem, se eu postar o código aqui certo não aprenderás nada!!! Aguardo resposta!
  22. Eu sempre digo isso... Mais todo usuário de fórum tem essa mania! Fórum é pra tirar dúvidas, não pra fazer trabalhos!!! Se fosse assim, poderia cobrar!!! Poste apenas suas dúvidas, ou o que já fez... Já postei coisas prontas demais, e me arrependi, pois pensei depois, será que eu consegui mesmo ajudar essa pessoa? Será que ela aprendeu? Programação, cada um tem a sua, é pessoal, não tem como aprender sem fazer!!! Abraços... Paulo!!!
  23. Existia a muito tempo atráz, uma família japonesa muito rica, sua riquesa era interminável... A filha da matriarca da famíia iria ter um bebê, um menino, mais como queria ser diferente de todos, queria que seu filho tivesse um nome que ninguém no mundo tivesse... Tentaram vários nomes, mais sem sucesso... Resolveram então chamr um profeta, com sabemos, profetas são homens muito sábios e entenden o mundo e suas previsões... ele levou um pergaminho com várias sugestões, mais nada, tudo em vão... Então ele disse: -Já sei... Vamos colocar o nome no menino de cu. E todos concondaram, ninguém no mundo tinha o nome de cu... Os anos se passram, e esse profeta ficou sendo amigo da família.... como profetas vivem anos, muitos anos, ele acompanhou a vida do c* de perto até sua morte... Um dia chegando em uma roda de amigos ele contou a história inteira de um grande homen, um grande ídolo japonês, o c*... Então ele disse... Numa tarde sombria, na aldeia de pacaembu, Nascia um ser pequenino, com o lindo nome de c*... Aos nove anos de idade, talentoso pra chuchu, Todos na escola admiravam, a inteligência do c*... As 40 anos de idade, General foi nomiado, Todo Japão proclamava, o c* valente soldado... Na hora de ir pra guerra, esse valente chovara, Não por covardia, era o c* que da mãe se separava... Na hora da guerra, foi tiro pra chuchu, Uma bala perdida, atravessou o olho do c*... Na hora do interro, veio o Capitão João Fifu, Rezou uma longa reza, e pois uma vela no c*... Assim termina a história de honrra do maior homem de todos os tempos... O c*... Huahuahauhau... Parece que ninguém gostou dessa linda história!!!:( :(
  24. entre várias coisas que você pode diminuir uma delas é tirar esses Begins do su sistema; Veja o quanto usa sem necessidade... Uma regra da programação, depois de uma ondicional, se tiver mais de uma lina, us-se um BEGIN, mais se for apenas uma linha, não é necessário... a máquina lê sempre a primeira linha se a condição verificad for verdadeira... Vou frisar bem isso: Do jeito que você fez, não está errado... é que não há necessidade desses blocos intermediários... Veja o exemplo que farei a seguir... IF (N1>N2) AND (N2>N3) THEN WRITE(' A ORDEM CRESCENTE : ',N3,', ',N2,', ',N1); ELSE IF (N1<N2) AND (N2<N3) THEN WRITE('A ORDEM CRESCENTE : ',N1,', ',N2,', ',N3); ELSE IF (N1>N2) AND (N2<N3) THEN WRITE('A ORDEN CRECENTE : ',N2,', ',N1,', ',N3); ELSE IF (N1<N2) AND (N2>N3) THEN WRITE('A ORDEM CRESCENTE : ',N1,', ',N3,', ',N2); Eu não fiz nada, a não ser retirar os Begin do seu sistema, é a sua mesma lógica, apenas simplificada... Olha só o quento fica menor... Mais lembre-se, isso só se faz, se for uma linha de comando apenas, se for mais de uma, é obrigatório usar os blocos com BEGIN Abraços... Paulo!!!
  25. como assim a situacao atual?? me diz a ultima vez q um carioca ganhou um campeonato brasilero. e conta qtos titulos os paulistas tiveram desde la ahahaha É que os cariocas estavam cansados de ganar, sabe? Daí estão dando de lambuja alguns títulos... :P Pra falar a verdade, Sou flamanguista e torcedor roxo do Goiás... O periquito do cento-oeste é minha paixão... Pena que no Brasileiro passado fez feio... :( Mais, tenho certeza que esse ano será como nos anos anteriores, sempre entre as cabeceiras... :D Abraço galerinha... Paulo!!!
×
×
  • Criar Novo...