Jump to content

Search the Community

Showing results for tags 'pascal'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Comunidade
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Apresentação de Projectos de Programação
    • Downloads
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Pascal
    • Python
    • Bases de Dados
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica e Automação Industrial
    • Matemática
    • Software de Contabilidade e Finanças
    • Dúvidas e Discussão de Programação
  • Outras Áreas
    • Notícias de Tecnologia
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

  1. Alfonso CV

    Bloquear programa.

    Olá pessoal. Uso Lazarus 1.8.4 Tenho uma aplicação que lê dados remotos, imagem e documentos gravados numa base de dados, o assunto é que quando são grandes e demoram um pouco a gente acha que o sistema está bloqueado, já coloquei barra de progresso e GIF dinâmico mas quando começa a fazer download estes controles param e o programa não responde. Também, se são varias imagens pequenas de 200 KB por exemplo depois de iniciar até não concluir o processo de download a aplicação não responde. Já usei DELAY e SLEEP para refrescar o Form entre download e nada, a aplicação entra num es
  2. xaviermbp

    10 notas pascalzim

    Preciso de ajuda a resolver este exercicio alguem pode?. Cria um programa que recebe 10 notas de um aluno e guarda-as num array. Deve ainda calcular e mostrar a média das notas. Eu estou aqui: Program Pzim ; var nota : array[1..10] of real; var s :real; Begin readln(nota[1]); readln(nota[2]); readln(nota[3]); readln(nota[4]); readln(nota[5]); readln(nota[6]); readln(nota[7]); readln(nota[8]); readln(nota[9]); readln(nota[10]); s[1]:=(nota[1])+(nota[2])+(nota[3])+(nota[4])+(nota[5])+(nota[6])+(nota[7])+(nota[8])+(nota[9])+(nota[10]); End.
  3. Estava aqui, tentando colocar a criptografia de MD5 num arquivo, mas, ao compilar, dá um erro: Can't read or write variables of this type (não se pode ser ou escrever variáveis deste tipo). Mas, então, como consigo escrever em um arquivo? Eis o código: program teste md5; uses md5; begin assign(t,'cad1.vlna'); rewrite(t); append(t); write(t,MDString('Senha1', MD_Version_5)); close(t); end. Já fiz outros teste, mas só consigo verificar a senha dentro da própria memória: program testMD5; uses md5, Crt; procedure telaDeEntrada; var senha : string; hash1
  4. dtenente

    Jogo da Baleia

    Bom dia Estou a fazer um jogo chamado "Jogo da Baleia" que tem como objetivo fazer com que a baleia consiga atravessar o mar, sendo que tem 2 obstaculos os piratas (P) e os surfistas (S), caso a baleia for contra um deles o utilizador perde o jogo, e estou com o erro ('.' não esperado!), alguém me consegue dar uma ajuda? Obrigado pela atenção! Program Pzim ; Var jogada,resp:string; Procedure baleia; Begin Writeln('O jogo vai começar! O objetivo é ajudares uma baleia que ficou encalhada na praia a regressar ao mar'); Writeln('O "B" representa a baleia
  5. O que eu queria saber, é que, em um projeto normal, nós temos uma janela 80x25 (do programa executável). Teria de alguma maneira, aumentar este tamanho para termos mais espaço de trabalho?
  6. BHAMF

    Que comando Inc é esse?

    Estava "passeando" pelo site e me deparo de vez em quando com o código Inc... O que é?
  7. Wenderson Lisboa

    Construindo cadastro em turbo pascal

    Estou construindo um cadastro em turbo pascal e preciso de ajuda com: 1 - como faço para o cursor ir para o próximo "readln" ou retornar para o anterior usando tab ? 2 - salvar varios dados heterogêneos num arquivo de texto usando assing. Ex: Nome, data de nascimento, código. ... De já agradeço toda a ajuda.
  8. Yamix

    Buscar valores em matrizes

    Olá, Estou com o seguinte problema em um código, e estar a me deixar louco, já tentei várias coisas.. e não consigo resolver, a lógica por trás disso é mesmo absurda! Procurei vários temas que davam soluções para problemas parecidos com o meu, como ordenação e busca binária, mas eu não consigo aplicar elas ao código e por isso estou ficando louco. O código é esse: Procedure VerificaObjeto(); Var I, J, K: Integer; Begin (* Verifica se existem objetos na mesma posição *) Objeto.Verificado := True; For I := 1 To MaxObjetos Do For J := 1 To MaxObjetos Do If (Objeto.X[J]
  9. Yamix

    Problemas com GoToXY e Matrizes

    Olá, Estou a programar um joguinho, e estou tentando acessar as matrizes de forma rápida, mas sem usar muitos For..Do e estou tendo o seguinte problema.. // PARAMETROS DO DESENHAXY(Cor, Objeto, X, Y). For I := 1 To MaxObjetos Do If (Objeto[I].CriaObjeto[Jogador.X, Jogador.Y]) Then // SE PLAYER ENTROU NUMA COORDENADA DE UM OBJETO Begin ObjetoSuport.X[I] := Jogador.X; // SALVA AS COORDS ObjetoSuport.Y[I] := Jogador.Y; // PARA SER USADO QUANDO O PLAYER SAIR DESSAS COORDS Inc(J); // ATIVA O SISTEMA End; If (J > 0) Then For I := 1 To J Do Begin
  10. Tiago Vital

    Imagens em Pascal

    Boa tarde, será possivel carregar imagens no pascal? Obrigado!
  11. HelpPls

    Como fazer um loop com o Case?

    Olá Amigos Sou um novato na programação (uso Pascal) e gostaria de saber como se repete o case ate uma certa opção seja escolhida. Tipo: case Bilhete of 1: Begin Crianca := Crianca+1 End; 2: Begin Estudante := Estudante+1 End; 3: begin Adulto := Adulto+1 ; End; 4..98: begin writeln('Opção invalida'); End; //Se fossem escolhidas uma das opções anteriores, voltaria a pedir o case 99: begin //Se fosse escolhida esta opção o código continuaria normalmente End; End;
  12. Parasita

    Menus em pascal

    Alguem sabe me explicar como se faz menus em pascal? obrigado!!!
  13. Yamix

    Parâmetros Procedure/Function

    Olá, Estou a criar minha própria Unit, a fim de aprimorar meu conhecimento, então enquanto criava minhas procedures, de repente vem à cabeça: - Como posso criar várias procedures/functions com os mesmos nomes, porém com números diferentes de parâmetros, fazendo com que o programe escolha as procedures/functions corretas, a partir do número de parâmetros apresentados? // Exemplo: Unit Comida; Interface; Procedure Arroz(Feijao: Boolean); Procedure Arroz(Bife, Feijao: Boolean); Implementation ... É possível fazer isso? E como?
  14. CarlosLousada

    Cronometro

    // ------------------------------------------------------------- // Programa que simula um cromômetro fazendo contagem regressiva // // Desenvolvido pelo CarlosLousada // ------------------------------------------------------------- Program Pzim; var tempo:integer; Begin // Solicita o tempo para o cronometro write ('Digite o tempo que você deseja que o programa cronometre (s): '); read (tempo); // Repeticao até o tempo chegar em zero while (tempo<>0) do Begin delay (1000); clrscr; writeln ('Cronometrando: ',tempo,' segundos'); tempo := tempo - 1; End;
  15. Yamix

    Boolean ou Integer?

    Olá, Estou desenvolvendo um jogo, e estou com alguns problemas, quero que minha nave possa teletransportar para ir, e se a tecla for apertada novamente dentro de 3 segundos, a nave volte para o ponto onde ela usou o teletransporte e no tempo de recarga são adicionados 2 segundos, caso a tecla não for apertada denovo dentro de 3 segundos, o player não podera mais teleportar . O que eu fiz está funcionando, mas há bugs.. Então tentei usar algumas variáveis booleanas e não estava dando certo nada, então passei para as variáveis integers e consegui consertar alguns, mas outros continuam.
  16. thoga31

    Unit para leitura segura de dados

    Bom, vamos lá tirar o pó ao quadro com algo simples mas útil para quem programa em consola Já aconteceu estarmos a querer ler um número e o utilizador introduz um valor alfanumérico. Resultado: o programa crasha. Podemos tratar a excepção com uma estrutura try-except. No entanto, não acho propriamente elegante. Portanto, deixo aqui um pequeno excerto de uma unit que tenho implementada há c'anos. A partir desta amostra poderão acrescentar com muito mais tipos de dados e novas funcionalidades. Aqui fica o código da unit e do programa de teste: USecRead.pas {$mode objfpc} unit USecRead;
  17. Olá, estou aqui de novo, estava desenvolvendo um novo programa, to fazendo tudo sozinho, to conseguindo aprender muita coisa, mas não consigo sair de um problema, to tentando resolver já faz mais de 2 horas, mas não consigo, então venho aqui pedir ajuda. To usando a váriavel Tecla como se fosse um readkey: Tecla := Readkey; E isso ao mesmo tempo que me ajuda com os movimentos da nave, me atrapalha. 1) Se eu apertar J, eu não posso me mexer até que o tiro atravesse o mapa, queria fazer com que minha nave possa se mexer, mesmo que ela tinha disparado um tiro. Eu tinha conseguido
  18. nelson27

    Erro ao inserir dados inválidos

    Como impedir o erro do pascal ao compilar na entrada de valores inválidos em variáveis numéricas? Grato
  19. Yamix

    Cronômetro

    Olá, Estou começando em pascal, por conta própria, e estou desenvolvendo meu primeiro programa e cada vez mais tento deixar ele complexo, estava quebrando cabeça, tentando fazer com que o cronômetro possa contar minutos e segundos, já tentei muitas coisas, mas não funciona. Peço a ajuda dos senhores, poderiam me ajudar? Program quero_aprender; uses crt; var tempo : integer; tipo,comecar : string; Begin WriteLn('Bem-vindo ao Cronometro'); Delay(1200); WriteLn(); WriteLn('Para começar o cronometro, pressione S.'); WriteLn('Caso deseje sair, pressione uma le
  20. Olá! Lá estou eu aqui de volta Minha dúvida é, tem como eu colocar meu programa (Pascal) para se comunicar com um servidor e perguntar para o servidor se existe alguma atualização para tal programa? Ou seja, o próprio programa verificar se há atualizações para ele mesmo. Só que o problema é saber se isso é possível em Pascal... É possível soldados? Espero a resposta. Obrigado desde já! 08/05/2017 18:34 Brasil (Horário de Brasília)
  21. abrito

    DATASNAP (MORREU)

    Embarcadero esta a matar o Datasnap e a tentar enviar os utilizadores para RadServer. Vejam o que o Datasnap deveria ser, a facilidade com que se faz aplicações 3 camadas com RestDataware REST FULL o unico produto no mercado Rest FULL na integra, completamente gratuito. Esta deichando MVP de Embarcadero de boca aberta. RestDataware IntensiveDelphi Não percam dia 21 RESTDATAWARE com Gilberto Rocha as 15H https://thuliobittencourt.kpages.online/intensivedelphi
  22. esta dando erro sistatico na linha 5 falando '=' nao esperado por favor me falem o que esta errado Program Raiz_Quadrada ; var resultado1, resultado2: real; Begin resultado1 = sqrt(9); resultado2 = sqrt(81); writeln('A raiz quadrada de 9 e:', resultado1:2:2); writeln(""); writeln('A raiz quadrada de 81 e:', resultado2:2:2); readln; End.
  23. BHAMF

    For Usado Em Assign

    Estou com um projeto chamado GDV (Gerenciamento de Viagens), que será para gerenciar viagens, exemplo, eu tenho uma viagem no qual tenho 50 passageiros, eu vou lá no GDV e anoto o nome dos passageiros, informações e tal. Até aí tudo bem, o problema é que, a pessoa que me pediu este programa quer 12 viagens com cada viagem 50 pessoas, o que dá 600 pessoas para se cadastrar, isto é, 600 arquivos para se criar (isto tirando as informações), eu uso este "estilo" de programação, um arquivo para cada coisa, pois não sei lidar muito bem com as linhas, por exemplo, não sei usar informações separadas e
  24. Estou tentando criar um WEB SERVICE porém ao criar uma conexão e um banco de dados no Data Explorer dá um erro "DBX error: Driver could not be prperly initializaed" Informando ue está faltando um driver no delphi 10 seattle. O que será isso? Tenho que instalr ou o Firedac ou o dbexpress? Já procurei na internet por download deles mas naõ acho para delphi 10 seattle... alguma luz???
  25. Como executar um arquivo/programa em PASCAL no MAC OS X 7 Lion? Obrigado desde já!
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.