Pascal/Turbo Pascal - Procedimientos, funciones y registros, ayuda!

   
Vista:

Procedimientos, funciones y registros, ayuda!

Publicado por Estefania tefy_2002@hotmail.com (1 intervención) el 24/06/2011 17:57:12
Hola gente, tengo que rendir un parcial para la facultad en Free Pascal, donde tengo que crear un programa que resuelva algun tipo de problema (tengo ejemplos de lo que me piden) usando procedimientos y funciones con pasaje de parámetros y registros, la verdad es que tengo una idea muy vaga de todo esto, pero preguntas muy puntuales, es decir, los problemas no son de alta complejidad, si alguien me puede ayudar me podría mandar un correo electrónico? lo que me cuesta es saber como usar los registros con la estructura With_Do, como ir cargando los datos y luego en procedimientos y funciones el pasaje de parámetros.

gracias!
mi mail es tefy_2002@hotmail.com

el 30 rindo! gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Procedimientos, funciones y registros, ayuda!

Publicado por ramon (2072 intervenciones) el 24/06/2011 23:18:27
{Espero que esto te sea de ayuda si es alguna otra cosa dímelo y intentare entender tu solicitud
mejor}

program registros;
uses
crt;
type
regdatos = record
nombre : string[30];
edad : integer;
ciudad : string[30];
end;

var
datos : regdatos; {variable regidatos}
freg : file of regdatos; {variable de fichero regdatos}
nu : integer;


procedure entrada_datos_1;
begin
with datos do {Entrada datos Con sentencia with}
begin
writeln('Nombre : ');
readln(nombre);
writeln('Edad : ');
readln(edad);
writeln('Ciudad : ');
readln(ciudad);
end;
end;

procedure entrada_datos_2;
begin {Entrada datos Sin sentencia with}
writeln('Nombre : ');
readln(datos.nombre);
writeln('Edad : ');
readln(datos.edad);
writeln('Ciudad : ');
readln(datos.ciudad);
end;
{La sentencia with es una forma abreviada como ves para referenciar los
registro}

function pasa_nombre : string; {Funcion paso dato a datos.nombre}
var
pasa : string;
begin
readln(pasa);
pasa_nombre := copy(pasa,1,length(pasa));
end;



procedure entrada_datos_3; {aqui}
begin
writeln('Nombre : ');
with datos do
nombre := pasa_nombre; {la funcion pasa_nombre pasa en dato }
{entrado a datos.nombre}
writeln(datos.nombre);
end;


procedure pasadatos(var num : integer); {Pasamos el numero nu para}
var {la multiplicaciom}
ed : integer;
begin
ed := 20;
writeln('Resultado es : ',num * ed);
end;



begin
clrscr;
entrada_datos_1;
writeln;
entrada_datos_2;
writeln;
entrada_datos_3;
nu := 2;
pasadatos(nu);
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar