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. BHAMF

    Como transformar String em PChar

    Um tópico informativo é este. Não achei nenhum conteúdo sobre isto por aqui, então resolvi postar como que conseguimos transformar uma string em PChar. A dúvida surgiu quando eu estava utilizando um comando em que um de seus parâmetros era PChar, porém eu não conseguia por si só, guardar informações que o utilizador digitava direto na variável PChar, e nem passar a informação de uma string para um PChar: [...] procedure SndPlaySound(name : PChar, TypePlay : integer); .[...] Var mus : PChar; mus2 : String begin [...] readln(mus); //isso não era possível, pois dava o erro "can't re
  2. BHAMF

    Como imprimir algo em Pascal

    Observação: Variáveis não declaradas nesta procedures estão declaradas em outra parte do programa. Estou com uma dúvida sobre como imprimir algo em Pascal, utilizei o seguinte código para um programa que estou fazendo mas a impressora nem deu sinal de que iria imprimir, o código compilou sem nenhum erro. A impressora utilizada era EPSON e era USB. código usado: O objetivo era imprimira dados de um cliente que iria fazer uma viagem. procedure impressaoDeDados; var R : string; begin clrscr; gotoxy(2,2); write('Tem certeza que deseja imprimir as informa'#135#228'e
  3. Como posso mover o ponteiro do arquivo em Pascal??
  4. Olá, Trago aqui um método para se "interromper" um Delay. Para quem não sabe, o Delay é um procedimento que congela o programa por um determinado tempo (em milisegundos). Procedure Delay(MS: Word); // Cabeçalho do procedimento Delay Então, não há meios de se interromper um Delay em tempo de execução (a menos que você finalize o programa de alguma forma ). Mas, há uma forma de se trabalhar para que se possa burlar o "Delay", utilizando laços de repetição. É bem simples, não tem muito mistério. O que é feito, é utilizar repetidas vezes o Delay(1); até somar o
  5. BHAMF

    Pesquisa

    Olá! Preciso da ajuda de vocês, vocês já tentaram usar o CTRL+F do Google Chrome? Bom, estou querendo usar este método de pesquisa, alguém pode me ajudar? Não tenho nem ideia de como se faz isto. Obrigado desde já! B.H.A.M.F 13/10/2016 17:53 (Horário de Brasília)
  6. BHAMF

    cases com funções repetidas

    Há como fazer uma coisa semelhante a isso com estruturas de repetição: var Counter : integer; begin for Counter := 1 to 20 do begin counter := counter + 1; //funções para este for end; end. //do mesmo jeito, queria em case ou IFs. case var of //em vez de 1: begin, end; 2, begin, end; fazer logo de 1 até 20, como na criação de uma array: [a..20] //seria possível? end; ? Obrigado desde já. B.H.A.M.F. 26/12/2018 | 18:21 (Horário de Brasília) Natal, RN. Brasil.
  7. Olá, Estava desenvolvendo um jogo no estilo, "Reaction Time Test". Quando, me deparei com o seguinte problema: - Se o jogador apertasse alguma tecla durante o delay, então, após a saída do delay, imediatamente era contado como se o jogador tivesse pressionado uma tecla. Ou seja, seu tempo de reação era de 0.000 segundos, burlando o jogo. Nesse momento, meu código estava assim: Program ReactionTimeTest; Uses Crt; Const Sec = 600000; Var Tempo: Double; Contador: LongInt; Begin Repeat Tempo := 0; Contador := 0;
  8. Estou tentando inserir valores dentro dessa input, com o codigo abaixo: Chromium1.Browser.MainFrame.ExecuteJavaScript('document.getElementById("FormRow-BUY-quantity").value="100";', 'about: blank', 0); Estou usando o chromium cef4 https://www.briskbard.com/index.php?lang=en&pageid=cef no rad studio 10.2, o codigo envia o valor para o input, mais depois de alguns milisegundos o valor desaparece do input, como se não tivesse sido renderizado no input. Mais testando outra forma eu consegui enviar o valor conforme codigo abaixo: procedure TMiniBrowserFrm.Button1Click
  9. Estou a fazer um programa em pascal para a escola e tenho uma duvida acerca de fazer com que o programa nao crash quando introduzo letras num integer. aqui esta o parte onde crasha! repeat writeln('Qual é o valor do produto?'); Readln(ap^.preco); until (ap^.preco>=1);
  10. joaorebouta

    "Mini base de dados"

    O erro é que o identificador ' Acrescentar' nao foi declarado dentro do escopo de program Program Canoagem ; Type CanAtleta = Record Numero:Integer; Nome :String[25]; Idade: Integer; Sexo :Char; Escalao :String; Telefone :String[9]; End; Var Atleta :CanAtleta; Arquivo: file of CanAtleta; op:Char; Procedure ExibirMenu; Begin clrscr; Writeln(' Menu '); Writeln('1. InserirDados'); Writeln('2. Acrescentar'); Writeln('3. Listar'); Writeln('0. Exit'); Write('Digite a opçao desejada:'); repeat Read(op); Until (op = '0') or (op = '1') or (op = '2') or (op
  11. dtenente

    Mini Base de Dados

    Boa noite, eu estou de volta de um programa a uns dias que parece que quando dou um passo para a frente dou dois para trás... Alguém me pode ajudar a organizar os pensamentos para conseguir saber o que tenho de fazer? Este é o enunciado: Elabore um programa que permita efectuar a gestão de sócios de uma colectividade desportiva. Esta colectividade disponibiliza 3 modalidades para os sócios: natação, ténis e golf. Para cada sócio são necessários os seguintes dados:  Número de sócio;  Nome;  Ano de nascimento;  Sexo;  Telemóvel;  Ano de admissão na coletividade;  Modalida
  12. Olá, estou com um problema com meu compilador Pascal, sou novo na área da programação e perdi meu notebook recentemente, mas, como eu queria muito usar o programa para testar meus conhecimentos eu pensei em procurar por aplicativos para utilizar o programa no celular, e encontrei, mas, por ser feito no celular, aparecem alguns erros que não apareceriam se fosse testado no computador. Preciso de ajuda! Estou tendo problemas para usar os comandos goto e label, pois o compilador (Pascal Gui) sempre diz que estes não são suportados. Deixarei o código de um programa simples que eu estava fazendo e
  13. Wenderson Lisboa

    Erro SIGSEGV Lazarus 1.8.4

    Boa tarde, estou com um grande problema, construi um pequeno programa e quando rodo o mesmo acontece o seguinte erro: "CAD USER elevou classe exceção 'External: SIGSEGV' . Por favor me ajudem a descobrir o que posso fazer. De já agradeço todos que se empenharam solucionar esse problema.
  14. Tonecas

    Erro sintático '2' não esperado!

    Boas, Gostava que me ajudassem a resolver este erro que está ocorrer no Pascal🙏 Eu estou a tentar criar uma calculadora em pascal só que quando eu executo o programa dá me o erro "Erro sintático '2' não esperado" Eis o programa: Program Calculadora; Var x,y,op: integer; resultado: real; Begin Writeln('== CALCULADORA =='); Writeln('Introduza o primeiro número:'); Readln(x); Writeln('Introduza o segundo número:'); Readln(y); Writeln('Escolha uma das opções:'); Writeln('1 - Soma'); Writeln('2 - Diferença'); Writeln('3 - Produto'); Writeln('4 - Divisão'); Writeln('Introduza
  15. Yamix

    Conjuntos/Set

    Olá! Poucas horas atrás, estava procurando por alguns conteúdos que ainda desconheço, e cheguei aos Conjuntos/Set. Li e re-li sobre, (não entendo as diferenças exatas, quando devo usar cada um e tals.. perdoe-me minha lerdeza' .. hahah), e como de costume estou tentando aplicar o que estou aprendendo. Enfim, cheguei nesse problema: Const MovC = ['W']; MovB = ['S']; MovE = ['E']; MovD = ['D']; Movimentos = [MovC, MovB, MovE, MovD]; Perdoe-me, se meu problema for algo muito besta, mas estou tentando criar um conjunto que recebe dentro dele outros con
  16. Vou fazer uma coisa que já não vejo há anos aqui no P@P: lançar um debate (ou pelo menos tentar 😐). Há quem diga que Pascal é uma linguagem morta, e alguns dos que apoiam esta frase incluem Delphi na sua opinião. Os maiores users destas linguagens no mundo estão em Portugal e no Brasil. Apesar de haver mais de 200 milhões de pessoas entre os dois países, apenas uma gota de nós programa na linguagem. As linguagens Pascal e Delphi terão futuro a médio e a longo prazo? O que poderá acontecer? Como poderá acontecer? Fica a ideia para um debate saudável. Todos nós aqui sabemos que Pa
  17. É possível simular (ou imitar) objetos no Pascal bordland? Pensei em criar um tipo de dado registro que guardaria os atributos, por exemplo, de um carro e após isso criar os métodos para ele, mesmo que fossem globais. É possivel fazer o re-uso de código também? Eu creio que sim, mas seria talvez, meio que uma gambiarra.. Desculpa-me por fazer essas perguntas assim.. Estou farto dos meus colegas de faculdade tratarem Pascal como se não fosse nada e Java como se fosse mil maravilhas.. o engraçado é que nunca programaram uma linha em Pascal e querem dar opnião.. típico de programad
  18. Boas, ppl! Já vi que já há um post sobre a tabela de ASCII, com um programa. Contudo, eu criei um programa que nos diz o valor na tabela de ASCII de cada tecla, o que nos permite, depois, utilizar em menus, por exemplo, teclas como as F (F1, F2...), ESC, etc, que não aparecem directamente no programa que já cá foi postado. Deixo aqui o meu código, espero que seja útil. program ascii; uses crt; var tecla:char; Begin writeln('Prima tecla. ENTER para sair.'); writeln('NOTA: ENTER e a tecla #13.'); writeln('O resultado aparece sob a forma: caracter > #numero'); writeln;
  19. Olá! Meu conhecimento em Pascal pode ser considerado básico. E não consigo escrever uma solução para o problema abaixo: No site da Caixa, disponibilizam os resultados (todos eles) de todas as loterias. Ele vem em formato HTM. Para a Megasena, é uma tabela mostrando nas linhas todos os resultados com informações diversas distribuidas pelas colunas. Cada linha um resultado e nas 21 colunas (Megasena) , informações pertinentes ao próprio. Preciso colocar num arquivo texto sequencial a informação de cada uma dessas 21 colunas de todos os sorteios já realizados. O arquivo baixado da
  20. Sempre me perguntei: Como receber o valor que eu quero independente da "posição em que as letras estejam"... Ex: [...] //em vez de fazer isto: case A of 'Sim' : Initial; 'sIM' : Initial; 'SIM' : Initial; 'sim' : Initial; 'sIm' : Initial; [...] end; //Como faço, pra indepentende da "posição das letras", eu receber o mesmo valor? Espero respostas obrigado desde já! B.H.A.M.F, 31/05/2018 | 13:22 (Horário de Brasília)
  21. 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 :
  22. Uma dúvida CRUEL que não consigo resolver. Há algum comando para listar arquivos e pastas na tela e exibi-las na consola?
  23. 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
  24. 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.
  25. 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
×
×
  • 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.