Perguntas com a tag [pascal]
Pascal é uma linguagem de programação estruturada, que recebeu este nome em homenagem ao matemático Blaise Pascal.
70
perguntas
0
votos
0
respostas
25
visitas
Problema com write e read na linguagem Pascal
Olá, escrevi um algoritmo simples em Pascal para calcular a média das idades, porém quando paso o comando read da vaiável "nome2", ao invés do programa permitir inputar dados, o programa ...
-1
votos
2
respostas
225
visitas
Procurar itens no JSONObject
Como pesquisar se o objeto part_funcionario
existe no json.
Nesse exemplo não tem mas pode ter json q venha o objeto part_funcionario: [{ key : value}]
{
"id_participante": 3,
"id_empresa": 1,
...
0
votos
1
resposta
159
visitas
Meu arquivo .ini (TIniFile.Create) do meu programa esta oculto e não consigo editar fora da aplicação
Boa tarde. Tenho uma aplicação mais completa, mas até no exemplo não funciona.
Tenho um programa que grava e faz a leitura de uma mensagem teste dentro de um arquivo conexao.ini criado em "...
-1
votos
1
resposta
49
visitas
Propriedade componente não grava
Estou criando um componente baseado em TDBGrid, incrementando algumas funcionalidades, por exemplo, para zebrar, porém, mesmo eu ativando TRUE na propriedade ZEBRAR, ele aparece FALSE quando passa ...
0
votos
0
respostas
36
visitas
Estou com dificuldades de terminar este programa, da erro na array e setlength
Escreva um programa em Pascal que lê um número não determinado de m valores, todos inteiros e positivos, um de cada vez. Se m for par, determine o produto destes.
Se m for ímpar e menor do que 12 ...
1
voto
1
resposta
30
visitas
Como ocultar decimais em pascal?
Estou fazendo um conversor de moeda e estou tendo problemas com os decimais, por ex: "$1.0 é igual a R$ 0.18248175182481752"
Gostaria de saber como ocultar os decimais a partir da segunda ...
1
voto
1
resposta
696
visitas
Simular pressionamento de tecla - Delphi
Olá,
estou com problemas em enviar o pressionamento de tecla em um jogo,
estou usando o delphi, testei funções como:
SendMessage(hdle_do_game, WM_KEYDOWN , ord('a'), 0);
keybd_event(65,0,0,0);
...
0
votos
1
resposta
115
visitas
Array de subclasses de uma superclasse em Delphi XE7
Estou tentando fazer um Array de subclasses neste formato:
arrayReg : Array[0..1] of TRegDom = (TRegDom0000);
Sendo TRegDom0000 uma subclasse de TRegDom (TRegDom0000(TRegDom)) e dá um erro de "...
-2
votos
1
resposta
612
visitas
Como apagar a linha no memo de acordo com a quantidades de Numeros em Delphi?
Boa Noite, tenho um memo que recebe varias strings e em muitas linhas, quero apagar as linhas que contém menos ou mais de sete(7) números ,deixando apenas as linhas que tenha exatamente sete(7) ...
1
voto
2
respostas
98
visitas
Digitar número novamente se for repetido
Peciso fazer um programa em que o usuário digite 5 números. Caso um desses números seja repetido, ele deve pedir para que o usuário digite novamente outro número, porém qualquer número que eu digito ...
-1
votos
1
resposta
447
visitas
Firemonkey e VCL - Cursor do Edit não aparece
Tenho um projeto em VCL, com um form principal em VCL e um botão que abre um form em FMX com um edit, porém ao dar foco no edit o ponteiro não aparece e nem pisca, o problema só acontece quando abro ...
2
votos
0
respostas
291
visitas
Como transferir um arquivo(db) do Android para o PC utilizando Delphi(Firemonkey)
Estou utilizando o Delphi Tokyo 10.2.3 para programação Android, adjunto do Firemonkey(FMX), necessito criar um código que seja possível dentro do App no android consiga transferir um arquivo no caso ...
1
voto
0
respostas
110
visitas
Somar Registros Com Dados Específicos [fechada]
Bom, atualmente estou trabalhando num projeto no qual usamos ClientDataSet's para comunicar com o banco de dados.
Meu problema é o Seguinte, Tenho um relatório de Recebimento no Setor de Exportação, ...
0
votos
1
resposta
350
visitas
Elemento repetido dentro de matriz - Pascal
Estou tentando, à um bom tempo, produzir um código que identifique e relate ao usuário se existem elementos repetidos em uma matriz 5x5, composta por números aleatórios, no pascal. Já tentei pesquisar ...
-2
votos
2
respostas
146
visitas
Valor inputado não aparece
Estou com uma dúvida em um exercício em que eu tenho que mostrar qual número é o menor ou o maior inputado.
Porém não está trazendo o resultado correto.
Segue o código.
unit Unit1;
interface
uses
...
2
votos
1
resposta
66
visitas
Procedure executa sozinha -Pascal
Fiz um código em pascal que lê duas imagens tipo pgm e verifica se uma está contida na outra, porém na hora de ler a segunda imagem, ao invés de fazer a leitura o programa simplesmente avisa que o ...
0
votos
2
respostas
1mil
visitas
Converter de String para Integer no Pascal
Boa noite, estou com um problema em Pascal, pego uma variável em String, a variavel seria um Hexadecimal, preciso converter essa String para integer e não sei como fazer.
Obrigado
program ...
0
votos
0
respostas
61
visitas
Incompatibilidade de tipos e dificuldade em ler um vetor
Estou com dificuldade em um problema, que a principio pensei ser bem trivial, mas no final não consegui fazê-lo. Trata-se de um exercício de uma prova de Algoritmos ele está abaixo:
JOGO MASTERMIND
...
-1
votos
1
resposta
39
visitas
algoritmo em pascal com erro de execução
Fiz esse algoritmo mas ele não executo, aparece um erro, "else não esperado":
Program valormaior_oumenor ;
var
valornicial, valorfinal:integer;
Begin
writeln('Digite um valor ');
read(...
1
voto
4
respostas
270
visitas
Erro na execução de um algoritmo no pascal
Estou estudando o uso do CASE na linguagem pascal, mas quando executo aparece erro sintático ";" não esperado, neste algoritmo:
Program Crianca_Esperanca ;
var
D: integer;
valor: real;
...
-2
votos
1
resposta
43
visitas
Duvida para rotina em Pascal [fechada]
Preciso escrever uma rotina que faça um calculo em que é informado um valor e aplicado um percentual. Ambos, o valor e o percentual devem ser solicitados. Realizar este cálculo através de uma function,...
0
votos
1
resposta
93
visitas
Erro TEdit / TDBEdit [fechada]
Estou com um pequeno problema. Quando eu uso o TEdit no meu formulário, as teclas que eu digito são capturadas pela caixa de texto (o que é normal!), Porém quando eu uso um TDBEdit, as teclas não são ...
4
votos
1
resposta
532
visitas
Porque existe FloatToStr se o Delphi não possui o tipo de dado Float?
Lendo sobre os tipos de dados do Delphi/Pascal percebi que não existe o tipo Float, porém, existe a função FloatToStr(), assim como StrToFloat().
Neste caso, poderia utilizar variável de ponto ...
0
votos
1
resposta
752
visitas
Usar os valores de uma variável array de um procedimento na rotina principal do algoritmo
program nome_jogadores_futebol_basquete_volei;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure futebol;
var
i: integer;
jogador: array[1..11] of string;
begin
for i := 1 to 11 do
...
3
votos
1
resposta
345
visitas
Problema com a soma de 10 números com for
Estou com uma dúvida em um algoritmo que soma 10 números com o comando de repetição for.
soma_numero := soma_numero + idade;
Quando declaro a soma_numero como 0 antes do for o algoritmo roda ...
0
votos
1
resposta
1mil
visitas
Combobox no firemonkey sem utilizar FDQuery
Possuo um combobox de estados em meu cadastro, onde faço conexão via livebindings com um FDMemTable para gravar os dados no banco.
Como eu poderia pegar o item index do item selecionado no combo?
O ...
0
votos
2
respostas
2mil
visitas
Como eliminar números repetidos de um vetor visualg?
algoritmo "semnome"
// Função :
// Autor :
// Data : 06/02/2018
// Seção de Declarações
var
veto1 : vetor[0..9] de inteiro
veto2 : vetor[0..9] de inteiro
j,i : inteiro
inicio
para i de 0 ate 9 faca
...
2
votos
0
respostas
47
visitas
Checar se programa foi compilado para 32 ou 64 bits
Boa tarde, estou configurando meu fpc aqui para cross-compilation e gostaria de ter certeza de que esteja funcionando corretamente, quero fazer um programa teste e compilar em cada plataforma, logo ...
0
votos
1
resposta
776
visitas
Retornar número de linhas ou colunas de uma matriz
Tenho uma matriz como esta em Delphi XE8: Matriz[2][3].
Gostaria de saber qual método posso usar para retornar o número de linhas ou colunas nessa matriz, minha idéia é loopar com 2 for's e percorrer ...
2
votos
1
resposta
228
visitas
Usar dados de uma matriz em um Report
Tenho uma matriz como essa que está sendo preenchida em runtime:
MatSort[0][0] - Nome1
MatSort[0][1] - InfoNome1
MatSort[1][0] - Nome2
MatSort[1][1] - InfoNome2
Porém não sei como referenciar os ...
0
votos
1
resposta
60
visitas
Dúvida numa equação em Pascal
Estou tendo um probleminha com um código aqui.
O que se pede é o seguinte: Dado X como parâmetro (em graus), calcular cos(x) com a soma dos 15 primeiros termos da série abaixo:
Com o compilador já ...
1
voto
2
respostas
2mil
visitas
Como usar expoente em Pascal?
Tenho um problema para resolver, onde na fórmula de PG se usa expoente diferente de dois (ao quadrado), não podendo usar sqrt().
De que forma posso resolver isso em Pascal de uma forma intuitiva?
Sei ...
0
votos
1
resposta
630
visitas
Ferramentas do Fast Reports não aparecem na tool palette
Estou usando Delphi-XE8 em um projeto que requer a criação de formulários a partir de dados do DB (FireDac), antes minha equipe usava a versão do Delphi-XE4, que fazia uso do componente externo Rave ...
1
voto
0
respostas
211
visitas
Como Posso fazer para Gravar um audio com AudioRecorder da API Android No Delphi Pascal
Estou com um pequeno projeto onde preciso gravar um audio pela API android através do Delphi com Pascal, porém não tenho obtido muito sucesso nos meus códigos. Alguém poderia me ajudar nesse dilema?
...
0
votos
2
respostas
278
visitas
Lazarus comparando Datas
No coletor de dados posso configurar o formato da Data, mas eu quero fazer essa configuração dentro da minha aplicação, estou tentando fazer da seguinte maneira:
FormatSettings.ShortDateFormat := 'dd-...
-1
votos
1
resposta
298
visitas
Como imprimir os 12 primeiros termos da sequencia de Fibonacci de forma inversa em Pascal?
Como imprimir os dos primeiros 12 termos da sequência de Fibonacci de forma inversa em Pascal? Ao invés de ser do 1 ao 12,do 12 para o 1
program Exercicio_31;
var V:array[3..12]of integer;I,termo1,...
1
voto
1
resposta
652
visitas
Replicação de Frame [Erro: Component already exists]
Tenho um form no delphi e queria que ao clicar em um botão um frame pré criado fosse adicionado dinamicamente várias vezes. Estou tentando através desse código:
procedure TMain.Button1Click(Sender: ...
1
voto
1
resposta
112
visitas
Sobre a passagem de parâmetros em linguagens de programação compiladas [fechada]
O que seria mais vantajoso ao chamar uma função, colocar na pilha da direita para esquerda ou vice-versa? E a limpeza da pilha? A função que chama (caller) ou a que é chamada (calee) deve ficar ...
5
votos
2
respostas
857
visitas
Realizar download durante a instalação pelo Inno Setup
Trabalho em uma empresa que utiliza o Inno Setup para criar os instaladores dos seus produtos, recentemente fui incumbido da tarefa de criar uma instalador melhor, umas das melhorias que foram ...
-4
votos
3
respostas
567
visitas
como mostrar a matriz em forma de matriz e não os números dispostos um do lado do outro? [fechada]
Eu fiz mas não deu certo:
program teste;
uses crt;
var
iMat: array [1..3,1..3] of integer;
iLin, iCol: integer;
begin
write ('Digite os números da matriz: ');
for iLin:=1 ...
0
votos
0
respostas
307
visitas
Como excluir elementos de um vetor registro no Pascal
Estou fazendo um trabalho pro curso, e toda vez que a pessoa digitasse um valor de um índice do elemento do vetor registro, todos os dados do mesmo fossem apagados, isso seria possível?
Se sim, como ...
1
voto
2
respostas
934
visitas
Como verificar a INEXISTÊNCIA de um diretório em um servidor FTP no Delphi?
Uso o Delphi e o Lazarus para criar minhas aplicações, o que devo fazer para verificar a inexistência de um diretório contido em um Servidor FTP?
Por exemplo, quando vai checar a inexistência de um ...
1
voto
1
resposta
935
visitas
Problema na definição de onClick em runtime com Pascal (Delphi/Lazarus)
Preciso usar a procedure ClicaItem(Sender: TObject); em um OnClick criado em tempo de execução pela chamada da procedure CriaItem(nome:String);.
Porém, em todas as minhas tentativas, não consegui ...
1
voto
2
respostas
291
visitas
Adicionar ao Arquivo de texto Usando pascal
Eu fiz esse algoritmo em Pascal que alimenta informação numérica em um arquivo de texto.
program Pascal;
var
i:integer;
Vect:array[1..1001] of integer;
Myfile: text;
begin
i:=1;
for i:=1 ...
2
votos
2
respostas
1mil
visitas
Gerar arquivo de texto do Codigo feito em Pascal
Tenho um código em pascal. É o seguinte:
Program Pzim ;
var
i:integer;
vect:array[1..1001] of integer;
Begin
i:=1;
for i:= 1 to 999 do
vect[i]:=i+1;
for i:= 1 to 999 ...
3
votos
1
resposta
1mil
visitas
Como remover todas as referencias dos formulários acestras deletadas do formulário pai?
Tenho meu formulário genérico e tenho diversos outros que herdaram visualmente seus componentes. Quando deleto um componente no formulário pai e abro um herdeiro recebo essa mensagem:
Posso clicar em ...
0
votos
1
resposta
85
visitas
Receber caractere em C
Como eu faço uma função em C que seja igual à função Readkey do Pascal ou igual à função Lastkey do velho Clipper? Quero receber apenas um caractere em separado para cada tecla pressionada. Criar ...
1
voto
1
resposta
1mil
visitas
Lazarus acentos em JSON
estou tendo um problema com acentuação no Lazarus, quando pego um JSON vindo de uma URL ela retorna caracteres como "\u00ed" ao invés de "í", alguem sabe o que eu posso fazer?
Segue o código
...
2
votos
3
respostas
909
visitas
Como converter uma String para TNotifyEvent no Delphi?
Quero mudar o evento OnTimer de um TTimer no meu projeto em tempo de execução, tentei da seguinte forma: Timer1.OnTimer:= ('close'); Mas o Delphi informa isto: (E2010 Incompatible types: 'TNotifyEvent'...
4
votos
0
respostas
332
visitas
Inno-Setup: Desinstalar sem permissão de administrador [fechada]
Usando Inno Setup, preciso que quando um programa for instalado na máquina, por um usuário administrador, possa ser desinstalado por um usuário padrão. O parâmetro PrivilegesRequired está como lowest, ...