Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Preguntas/Respuestas » Preguntas por Contestar - Pascal/Turbo Pascal

PREGUNTAS POR CONTESTAR - Pascal/Turbo Pascal

Volver
Agregar una pregunta
Buscar mis preguntas
Buscar
 Hay un total de 56 Preguntas.<<  >> 

    Pregunta:  67709 - PROGRAMAS EN PASCAL
Autor:  Rodrigo Gutierrez
Buenas noches disculpen soy principiante en eso de programar alguien me podría decir como se hace lo siguiente:
1. Escribir un programa en Pascal que visualice en pantalla los números múltiplos de 5 comprendidos entre 1 y 100.
2. Escribir un programa en Pascal que calcule cuantos años tarda en duplicarse un capital depositado al 5% de interés anual.
 
Por favor... Por su atencion muchas gracias
Contestar

    Pregunta:  67722 - CARACTERES ASCII
Autor:  Jonatán Richioni
Hola,
quisiera saber si alguien me puede explicar como hacer que un programa en Pascal muestre por ejemplo el ┬ o ┴. Sé que no figuran como imprimibles pero a lo mejor alguien conoce alguna forma para que salga por pantalla.

Desde ya, muchas gracias!
Contestar

    Pregunta:  67774 - ELIMINAR REGISTRO
Autor:  Anie Orozco
a este programa le tengo que agregar un procedure para eliminar registros , he investigado y no encuentro nada, me podrían dar una opción para terminarlo y me podrían explicar ¿que son nodos?

program DemoAdirecto;
type xr = record
nombre : string [20];
edad : integer;
end;

var reg :xr;
archivo: file of xr;
opc : byte;
procedure crea;
{crea e inicializa en disco el archivo de datos con que trabajara el programa}
begin
assign(archivo, 'K:cejemplo.text');
rewrite(archivo);
close(archivo);
end;

procedure altas;
{añade registros a al archivo de datos}
begin
assign(archivo,'K:cejemplo.text');
reset(archivo);
while not eof (archivo) do
read(archivo,reg);
with reg do
begin
write('nombre'); readln (nombre);
write('edad'); readln(edad);
end;
write(archivo,reg);
close(archivo);
end;

procedure consultas;
{realiza una consulta de datos por numero de registro}
var nreg : byte;
begin
assign (archivo, 'K:cejemplo.text');
reset(archivo);
{tam:=filesize(archivo):}
writeln('numero de registro a consultar:'); readln(nreg);
seek(archivo,nreg-1);
read(archivo,reg);
with reg do

begin
writeln('nombre', nombre);
writeln('edad ', edad);
end;
writeln('teclazo...'); readln;
close (archivo);
end;

procedure connom;
{realiza una consulta de datos, realizando una busqueda secuencial por nombre}
var nbus : string[20];
ban : byte;

begin
assign(archivo ,'K:cejemplo.text');
reset(archivo);
write('teclea el nombre a buscar'); readln (nbus);
{tam := filesize(archivo);}
ban := 0;
while not eof (archivo) do
begin
read(archivo, reg);
if reg.nombre = nbus then
begin
writeln('la edad de ',nbus,' es ', reg.edad);
ban := 1;
end;
end;
if ban = 0 then
writeln('lo siento, el nombre no se encontro');
writeln('teclazo...');
readln;
close(archivo);
end;

procedure reppan;
{despliga en la pantalla el cotenido del archivo de datos}
begin
assign (archivo,'K:cejemplo.text');
reset(archivo);
while not eof (archivo) do
begin
read(archivo,reg);
writeln('nombre => ', reg.nombre,' edad =>', reg.edad);
end;
writeln;
writeln('teclazo...');
readln;
close(archivo);
end;

procedure modif;
var nreg : byte;
begin
assign(archivo , 'K:cejemplo.text');
reset(archivo);
{tam:= filesize (archivo);}
writeln('numero de registro a consultar:'); readln (nreg);
seek (archivo,nreg-1);
read(archivo,reg);
with reg do
begin
writeln('los datos actuales son:');
writeln('nombre ', nombre);
writeln('edad ', edad);
writeln('ahora teclea los nuevos datos:');
writeln('nombre'); readln(nombre);
writeln('edad '); readln(edad);
seek (archivo,nreg-1);
write(archivo,reg);
end;
writeln('teclazo...'); readln;
close(archivo);
end;
begin
opc:=0;
repeat
writeln('opciones');
writeln('1.-crear');
writeln('2.-altas');
writeln('3.-consultas por no. de registro');
writeln('4.-consultas por nombre');
writeln('5.-reporte por pantalla');
writeln('6.- modificar datos por nombre');
writeln('7.-salir');
writeln('teclea tu opcion ==> '); readln(opc);
case opc of
1: crea;
2: altas;
3: consultas;
4: connom;
5: reppan;
6 : modif;
end;
until (opc=7);
end.
Contestar

    Pregunta:  67775 - AYUDA PARA FACILITAR PROGRAMA PASCAL
Autor:  Héctor Muñoz
Para concluir con mis programas he decidio hacer este programa y su ayuda vendria muy bien, me ha costado bastante trabajo pero una vez realizado podre entender mejor como declarar y que variables poner en mi programa, que sean no tan complicadas, asi como "usar variables tipo string y char para los datos no núméricos, ya que las variables string pueden compararse usando los operadores relacionales como si fueran números.
********************************************************************************************
En época de elecciones es muy trascendente la participación de todos y todas los ciudadanos, además es de vital importancia el análisis de salida previo donde se va mostrando la tendencia de los votos antes de ser contabilizada la totalidad de ellos.

Especificaciones: La entrada de tu programa consistirá de los datos de n votantes. Para cada uno de ellos, se solicitará el nombre, el sexo, la edad y el partido político por el cual se inclina.

El nombre nom consistirá del nombre del votante, el sexo s se codificará con el caracter 'm' (mujer) o 'h' (hombre), la edad e será un número entero y el partido político p se codificará con los caracteres 'i' (PRI), 'a' (PAN), 'd' (PRD). La solicitud de datos de los votantes terminará cuando el nombre que se ingrese sea igual a la cadena 'bye'.

La salida del programa consistirá del conteo de:

1. El número total de votantes

2. El número total de hombres

3. El número total de mujeres

4. El promedio de edad de los votantes

5. El porcentaje de votantes que eligieron al PRI

6. El porcentaje de votantes que eligieron al PAN

7. El porcentaje de votantes que eligieron al PRD

Ejemplo:
--------------------------------------------------------------
Raúl H 22 i
--------------------------------------------------------------
Carmen M 26 d
--------------------------------------------------------------
Arturo H 32 d
--------------------------------------------------------------
José H 21 a
--------------------------------------------------------------
Mariana M 23 a
--------------------------------------------------------------
Aurelio H 19 d
--------------------------------------------------------------
Rubén H 31 i
--------------------------------------------------------------
Bye
--------------------------------------------------------------

7

5

2

24.85

28.5

28.5

43.8

******************************************************************************
Agradesco mucho su tiempo y su ayuda de antemano GRACIAS.
Contestar

    Pregunta:  67792 - CALCULAR EDAD.
Autor:  Isaac Morales
Hola compañero soy bastante nuevo en esta pagina. Y tengo que hacer un proyecto que me calcule la edad de alguien en años, meses y días. Masomenos ya lo he trabajado pero no se como convertir positivos las restas de los días.

program edad;
uses
crt;

var
nombre, apellido: string;
dia, mes, ano, year, month, day, yearfn, monthfn, dayfn, yearffn,monthffn: integer;

begin
clrscr;

write ('Este programa le dira su edad y tambien su signo zodiacal');
writeln;

write ('Por favor digite su nombre: ');
readln (nombre);
writeln;

write ('Digite su apellido: ');
readln (apellido);
writeln;

write ('Favor digite su fecha de nacimiento en el siguiente formato: ');
writeln;

write ('Dia de nacimiento: ');
readln (dia);

write ('Mes de nacimiento: ');
readln (mes);

write ('Año de nacimiento: ');
readln (ano);
writeln;

write ('Favor digite la fecha actual en el siguiente formato: ');
writeln;

write ('Dia actual: ');
readln (day);

write ('Mes actual: ');
readln (month);

write ('Año actual: ');
readln (year);

yearfn := year-ano;
monthfn := month-mes;
dayfn := day-dia;
yearffn := yearfn-1;
monthffn := 12+monthfn;

if (month<mes) and (day>dia) then
begin
write (nombre,' ',apellido,', su edad actual es de, ', yearffn,' anos ',monthffn,' meses y ', dayfn,' dias.');
end
else
begin
write (nombre,' ',apellido,' Su edad es, ', yearfn,' anos', monthfn,'meses y ', dayfn,' dias.');
end;

if (month<mes) then
begin
write (nombre,' ',apellido,', su edad actual es de, ', yearffn,' anos ',monthffn,' meses y ', dayfn,' dias.');
end
else
begin
write (nombre,' ',apellido,' Su edad es, ', yearfn,' anos', monthfn,'meses y ', dayfn,' dias.');
end;

readln;

end.
Contestar

    Pregunta:  67797 - VALIDAR CEDULA EN PASCAL
Autor:  stephanny perez
hola..... xfa ayúdenme. estoy haciendo un programa donde hago un registro de unos trabajadores pero cuando valido la cedula se queda como guindado o simplemente se sale del programa. estoy validando el sea mayor a 5 digitos y menor o igual a 8 digitos pero no encuentro como arreglarlo...... gracias quien pueda ayudarme se lo agradeceria.
Contestar

    Pregunta:  67798 - NECESITO AYUDA REGISTRO COMPLETO
Autor:  eduardo argueta
hola foro vengo a ver si alguno d vosotros me podeis ayudar en un programa de registro el cual consta de una entrada con alumno ademas que pida dni y te pida un codigo de 1 a 999 que tambien tenga una busqueda de la persona matriculada que me lo busque por dni o por codigo

y claro una lista ademas que no repita el codigo ni tampoco el dni..

espero vuestra ayuda!! se les agradece el tiempo dedicado muchas gracias
Contestar

    Pregunta:  67805 - PROBLEMAS CON PASCAL
Autor:  Pepe Ribas
Necesito un programa que haga el maximo comun divisor y el minimo comun multilples con ARRAY.Tiene que estar hecho con ARRAY no me sirve otro metodo POR FAVOR SI ALGUIEN ME PUDIESE AYUDAR ESTARIA ETERNAMENTE AGREDECIDO .MUCHAS GRACIAS Y ES URGENTE :)
Contestar

    Pregunta:  67806 - PROBLEMAS CON PASCAL
Autor:  Pepe Ribas
HOLA BUENAS ,TENGO QUE HACER UN PROGRAMA QUE HAGA EL MAXIMO COMUN DIVISOR Y EL MINIMO COMUN MULTIPLE,PERO LO TENGO QE HACER CON ARRAYS.SOLO SIRVE QE LO HAGA CON ARRAY,OTRO METODO NO ME SIRVE,GRACIAS POR LA AYUDA Y URGE :)
Contestar

    Pregunta:  67807 - PROBLEMAS CON PASCAL
Autor:  Pepe Ribas
Os agradecería mucho que me echarais una mano con un problema de informática. Necesito hacer un programa en Pascal que haga lo siguiente:
Procedimiento 1:
Leer dos valores.
Procedimiento 2:
Los descomponga en 2 arrays en factores primos.
Procedimiento 3:
Realiza el mcd utilizando otro array.
Procedimiento 4:
Realice el mcm utilizando otro array.

Muchas gracias.
Contestar

|<  <<  1 2 3 4 5 6  >>  >|