Preguntas con la etiqueta [pascal]
Pascal es un lenguaje imperativo creado por Niklaus Wirth en 1969. Fue ampliamente usado en enseñanza y desarrollos en las décadas de 1970 y 1980.
93
preguntas
0
votos
1
respuesta
13
vistas
Como hacer una matriz en pascal con filas y columnas que decide el usuario?
Has ahora este es mi avance pero me da error ...
program matriz;
uses crt;
var
filas, columnas : integer;
esCuadrada : boolean;
procedure Encabezado();
begin
clrscr;
write('...
1
voto
1
respuesta
23
vistas
Pascal: Error al calcular dos maximos
Estoy teniendo inconvenientes al momento de calcular los dos máximos en Pascal.
El inconveniente me pasa solo en el primer máximo (max1), ya que el segundo máximo (max2) me lo retorna correctamente.
...
1
voto
1
respuesta
25
vistas
Error "Floating Point Error" en cálculo recursivo
estoy tratando de calcular de forma recursiva los elementos de una matriz de MxN. Al intentar dividir cada elemento de MxN da error de Floating Point Error.
function promMatRec(mNum:mat1;n,m,mMax:byte)...
2
votos
1
respuesta
7
vistas
Conflicto con el procedimiento Read al manipular ficheros .dat en Firemonkey
Tengo un problema a la hora de manipular fichero .dat en el programa que estoy haciendo.
Crear el fichero y guardar información en él no me da problemas.
El problema surge cuando intento leerlo y ...
2
votos
1
respuesta
19
vistas
copiar imagen canvas delphi fmx
Queria consultar cual es procedimiento equivalente en Firemonkey al
metodo (Copyrect o StretchDraw) del canvas de la VCL.
He utilizado copybitmap, pero no logro copiar la imagen al formulario.
Canvas....
1
voto
1
respuesta
18
vistas
¿cómo insertar 3 vectores en una matriz?
Necesito ingresar 3 vectores en una matriz. Me quede en la function "cargar" para insertar los vectores. Pero no se de que manera hacerlo.
A continuación mi código:
program ejer51;
uses crt;
...
3
votos
4
respuestas
130
vistas
¿Cómo se ejecuta un if cuando se usa con una clausula AND?
SI tengo esta condición:
IF (("Condicion Uno") and ("Condicion Dos"))
Si la "Condicion Uno" es falsa, el operador AND se fija también en la "Condicion Dos" o ...
1
voto
1
respuesta
38
vistas
¿Que ocurre si no asigno un valor a una variable y lo imprimo?
Se que puede sonar como una pregunta muy basica/tonta. Pero para poner un ejemplo en Pascal,
Program prueba ;
var
a : integer ;
begin
write(a) ;
end.
Por ejemplo si me preguntaran que imprime en ...
0
votos
1
respuesta
49
vistas
Traducir un código en C++ a Pascal
¡Hola! Si me pueden ayudar a pasar este código que está en C a Dev-pascal. He estado trantando de pasar el código a Pascal, aunque he visto algunas similitudes entre los lenguajes, no logro pasarlo ...
4
votos
2
respuestas
34
vistas
Buscar los factores primos de un vector con x elementos
El ejercicio me pide: ingresar una cantidad x de números naturales mayores que uno y mostrar en pantalla la descomposición en factores primos de cada uno, indicar cual de ellos tiene más factores ...
3
votos
1
respuesta
26
vistas
Cómo puedo contar la cantidad de columnas qe están ordenadas ascendente de una matriz . Estoy utilizando pascal
procedure ascendentes(n,m: byte ; mat: tipomat);
var
i,j,suma: byte ;
begin
suma:=0;
i:=2;
for j:=1 to m do
begin
while (i<=n) and (mat[i,j]>mat[i-1,j]) do
...
2
votos
1
respuesta
57
vistas
¿Cómo puedo validar un edit. en Delphi 4?
Hola amigos ¿Cómo puedo validar un edit en Delphi 5 para que no me deje digitar acentos cuando pego la información dentro del edit?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
...
1
voto
1
respuesta
25
vistas
Programa en Pascal no acepta la condicion de finalizacion para while
Tengo como consigna realizar un programa que tome datos de un producto y genere una lista hasta que se ingrese el producto cuyo codigo sea "-1". Ahora, el problema es que al ejecutar el ...
0
votos
0
respuestas
34
vistas
Estoy con programa en pascal y no me sale
[
Es el problema a resolver, tengo que poner un numero mayor a 100 y que me diga todos los numeros que cumplan la propiedad en donde se repitan 2 digitos. Hasta ahora hice lo que ven, pero nose que ...
0
votos
2
respuestas
131
vistas
LENGUAJE PASCAL A LENGUAJE C
Escribir un programa en C, que escriba los números comprendidos entre 1 y 100. El programa
escribirá en la pantalla los números en grupos de 20, solicitando al usuario si quiere o no
continuar ...
1
voto
2
respuestas
54
vistas
¿Cómo evitar que mi antivirus borre los ejecutables de Delphi? ¿Cómo evitarlo?
Hola a todos.
Actualmente cuento con una problemática que es bastante fastidiosa, mi antivirus (McAfee LiveSafe) esta interfiriendo con delphi (version 10.4), me borra los ejecutables de mis ...
3
votos
1
respuesta
78
vistas
Problema con la suma de dos números decimales V10.4
El problema es el siguiente, actualmente estoy desarrollando una aplicación de consola la cual sume dos números decimales (Números de tipo double), estos números son recibidos por teclado. Pero al ...
2
votos
1
respuesta
34
vistas
Mi codigo no compila
estoy con un proyecto de pascal y la idea es que el programa pueda aceptar pagos de tres productos distintos pero no logro compilarlo, hay tres variantes, costo del agua que son 7$ costo de ...
0
votos
1
respuesta
36
vistas
¿Por qué me aparece este error en Delphi? En ButtonDot.Caption
Este es el código:
procedure TForm1.ButtonDotClick(Sender: TObject);
begin
if (POS('.', txtResult.Text))<>0 then
exit
else
txtResult.Text := txtResult.Text + ButtonDot.Caption;
end;
El ...
1
voto
1
respuesta
18
vistas
¿Por qué me aparece este error? No puedo escribir un String con un TEdit en Delphi
¿Alguien puede ayudarme?
procedure TForm1.ButtonPlusLessClick(Sender: TObject);
var
pMinus: Real;
begin
pMinus := StrToFloat(txtResult.Text);
txtResult := FloatToStr(-1 * pMinus);
end;
El error ...
2
votos
1
respuesta
40
vistas
como puedo intercambiar la posición de palabra en Delphi 10
Hola muchachos soy nuevo en el lenguaje de programación Delphi10 y no se como empezar a realizar este ejercicio, les agradezco quien me puede explicar la elaboración del ejercicio.
¿Cómo puedo cambiar ...
0
votos
0
respuestas
23
vistas
Constructor en pascal
Al llamar a "establecerNombre" me sale error y no sé como solocionarlo:
constructor create(n:String; ins:cadenas; rit:String; arts:cadenas; min, max:Integer);
nombre := n;
...
1
voto
0
respuestas
56
vistas
Expresiones lógicas en pascal
while (dd1 <> dd2) or (mm1 <> mm2) or (aa1 <> aa2) do
Cuando pongo este loop en pascal, solamente compara la primer expresión (dd1 <> dd2), y las otras las pasa por alto, cual ...
0
votos
1
respuesta
76
vistas
¿Cómo hago una recursividad para ver si un número N esta ausente en un número K?
program project1;
{$codepage utf8}
FUNCTION Digito_Aus(nro,nro2:integer):boolean;
begin
IF (nro div 10)=0 then
Digito_Aus:=nro <> nro2
else digito_aus:=false;
end;
var S,k:integer;
...
0
votos
1
respuesta
168
vistas
¿Cómo determinar la posición de un número ingresado en Pascal?
Por ejemplo quiero hacer lo siguiente:
Ingrese un número (0 para salir): 18737
Ingrese el dígito para saber si aparece en 18737: 7
El dígito 7 aparece por primera vez en la posición 0 y la cantidad ...
1
voto
2
respuestas
33
vistas
Datos se borran de un objeto en Delphi
Tengo un objeto declarado de la siguiente forma:
nroRacional = object
private
primerNro:double;
segundoNro:double;
public
procedure cargarDatos(primerDato, ...
0
votos
1
respuesta
48
vistas
Racionales en Delphi
¿Hay alguna función que retorne si un número es o no racional? Necesito hacer operaciones básicas sobre dos números, pero esta la condición de que el número debe de ser racional, y no tengo claro de ...
1
voto
1
respuesta
176
vistas
¿Como ajustar el ancho de columnas de una grilla a su contenido y permitir que se pueda modificar manualmente en Pascal?
Estoy programando en pascal y utilizo Delphi Xe7. Estoy tratando de hacer que el ancho de las columnas de una grilla se ajuste a su contenido, pero que permita modificar el ancho a gusto del usuario....
0
votos
0
respuestas
69
vistas
Problema al intentar ejecutar una consulta SQL desde pascal
tengo la siguiente función, la cual, toma unos cuits desde una grilla y los inserta en una tabla temporal. Estoy usando delphi XE7 y Firebird 2.5.
function TfImportacionArchivoARBARetenPercep....
2
votos
1
respuesta
970
vistas
¿Como agregar comillas simples (') o dobles (") a una lista de strings en pascal?
Buenos días estoy tratando de armar una consulta para Firebird 2.5. La consulta que busco crear tiene que tener el siguiente formato:
Select *
From Clientes c
Where c.activo = 1 and c.cuit not in (&...
2
votos
2
respuestas
194
vistas
Como quitar [ ] de una cadena en Pascal
estoy renegando con una funcion para quitar [] de una cadena. Necesito quitar los corchetes de una cadena, pero el problema que tengo, es que esos [] pueden estar en cualquier lugar de la cadena.
el ...
1
voto
1
respuesta
361
vistas
¿Cómo guardar registros en pascal? en lazarus
estoy tratando de guardar un registro en un archivo de texto, pero soy nuevo en pascal y realmente no entiendo cómo hacer este proceso. Me explico:
Tengo un formulario donde quiero agregar 5 alumnos, ...
1
voto
0
respuestas
72
vistas
programación en pascal function (n: integer): integer
esta función que necesito realizar tiene las siguientes características:
El parámetro n es un natural menor que 1000.
La función retorna el valor siguiente a n, según la descripción de la función ...
1
voto
1
respuesta
128
vistas
¿Una forma mejor de eliminar todas las apariciones de un elemento en una lista?
Tengo un procedimiento que resuelve lo que quiero: recibe una lista y un número n y elimina todas las apariciones de n dentro de la misma.
Sin embargo es bastante horrible el código y quería saber ...
2
votos
2
respuestas
261
vistas
Como Cambiar Icono de mi Aplicacion en 2do Plano Plano en Delphi
Supongamos que tengo una aplicación corriendo en segundo plano pero deseo que, cuando se cumplan ciertas condiciones, su icono cambie y se vea reflejado en el Administrador de Tareas, tal y como lo ...
0
votos
0
respuestas
71
vistas
Error de compilacion en pascal
Me descargue el ide lazarus pero no me esta compilando ningun programa intente con un hola mundo y me salta el siguiente error respecto a un programa que se me abre repentinamente a la hora de ...
1
voto
1
respuesta
100
vistas
Como devolver un string en una función de un Dll escrito en Delphi 10.3
Estoy tratando de crear un DLL en Delphi 10.3 que pueda ser consumido por un programa llamado IFER Field-Map, un software creado en Delphi.
En la documentación oficial del software dice que en el ...
1
voto
2
respuestas
92
vistas
Error al abrir un fichero DELPHI
Estoy tratando de abrir un fichero de un archivo que cree previamente de tipo .dat
Es un registro que contiene otros registros
type mapa = record // record que guarda todo el proyecto
mcM,mcT,mcC,...
1
voto
1
respuesta
924
vistas
Error 106 en Pascal
Hola estoy resolviendo el siguiente enunciado:
Leer desde un archivo números enteros Calcular y escribir el promedio de los elementos
positivos y distintos de cero que se encuentran entre dos ...
0
votos
0
respuestas
148
vistas
¿Cómo hago un árbol binario de búsqueda de nombres en pascal?
El árbol tiene que estar ordenado por nombre, pero no sé como compararlos para ver si un nombre que quiero agregar es mayor o menor.
0
votos
1
respuesta
621
vistas
Error 103 en Pascal
Me compila el siguiente programa, pero me aparece el error 103. Creo que se refiere a que no se abrió el archivo. ¿Cómo lo puedo solucionar? Pensé que era la dirección del archivo de texto pero al ...
1
voto
1
respuesta
39
vistas
Problema de sintaxis con Pascal
este es mi primer post y soy nuevo en esto de la programacion.
La consigna del problema es la siguiente:
Se conoce el saldo inicial de una cuenta bancaria y una serie de movimientos realizados, por ...
0
votos
1
respuesta
36
vistas
Error con condicional en pascal
el error que tengo en mi programa es el siguiente, quiero crear un programa en el cual el usuario digite numeros del 1 al 7 pero tambien necesito establecer una condicion, la cual es que si el usuario ...
1
voto
1
respuesta
185
vistas
Error de sintaxis en Free Pascal
Estoy tratando de hacer un programa sencillo en Free Pascal pero me 2 errores de sintaxis
Program par_impar;
begin
writeln
Begin
write ('Introducir el valor')
IfMod2=0 then
write ('El numero ...
0
votos
1
respuesta
44
vistas
¿Cómo crear un archivo que almacene los atributos de un objeto? [cerrada]
Existe algún identificador reservado como FILE OF de pascal en java, para crear archivos de una estructura.
0
votos
1
respuesta
50
vistas
Cómo obtener horas de encendido de un Disco Duro en Delphi
Pudieran Ayudarme a Obtener las Horas de encendido que pueda tener un Disco Duro de nuesta PC,progragmaticamente en Delphi, Digamos por ejemplo del Disco 0 o 'C'
Ayuda !!!
2
votos
1
respuesta
622
vistas
Refrescar grid y pintar
estoy intentado refrescar un grid al cual darle doble click me actualice el color de unas determinadas filas.
Por ejemplo,en este caso lo que hago es doble click en el grid y lo recorro y el valor ...
1
voto
1
respuesta
55
vistas
Como modificar un campo de un adoquery desde otro formulario
Tengo un formulario que tiene un TAdoQuery llamado qyPatientContact y quiero al campo qyPatientContactNote modificarlo desde otro formulario.
Estoy intentando con esto:
TfmMdPatientContacts....
1
voto
1
respuesta
318
vistas
Como mostrar un texto con formato en un richedit
Al guardar un texto enriquecido en la BD sql server lo hace OK, se guarda lo siguiente:
{\rtf1\fbidis\ansi\ansicpg0\uc1\deff0\deflang0\deflangfe0{\fonttbl{\f0\fnil Arial;}}{\colortbl;\red0\green0\...
0
votos
1
respuesta
107
vistas
como actualizar Adoquery AfterDelete
Tengo la siguiente consulta:
Select A.*, B.GroupName as PanelName
From ehrPatientTestOrders A Left Outer Join VW_ehrTestPanels B On
Coalesce(A.PanelCode, '') = B.Code
Where A.PatientCode = '...