Search the Community
Showing results for tags 'pascal'.
-
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
-
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
-
Como posso mover o ponteiro do arquivo em Pascal??
-
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
-
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)
-
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.
-
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;
-
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
-
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);
-
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
-
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
-
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
-
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.
-
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
-
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
-
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
-
É 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
-
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;
-
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
-
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)
-
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 :
-
Uma dúvida CRUEL que não consigo resolver. Há algum comando para listar arquivos e pastas na tela e exibi-las na consola?
-
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
-
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.
-
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
