elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ejercicios
| | | |-+  AYUDA con procedimientos en pascal
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: AYUDA con procedimientos en pascal  (Leído 2,620 veces)
joseanh

Desconectado Desconectado

Mensajes: 8


Ver Perfil
AYUDA con procedimientos en pascal
« en: 30 Junio 2013, 03:10 am »

Ayuda con los procedimientos de ordenar y modificar, no los entiendo bien.

program registro(input,output);
uses crt;
const numpersona=3;
type
   carasteristica=record
   cedula,edad,telefono:integer;
   apellido,nombre,nacionalidad:string;
end;

lista=Array[1..numpersona] of carasteristica;
var personas:lista; var cant:integer;

procedure insertar(var personas:lista; var cant:integer);

var ced,ed,tel,x:integer;
var ape,nom,nac:string;
var encontrado:integer;
begin

    encontrado:=0;
    writeln('ingrese cedula');
    readln(ced);
      if (cant=0) then
          encontrado:=0
      else
          for x:=1 to cant do
               begin
               if (ced=personas
  • .cedula) then
                  begin
                     encontrado:=1;

                  end;
                 end;
            
    if (encontrado=0) then
       begin
            cant:=cant+1;
           writeln('ingrese cedula');
           readln(ced);
           writeln('ingrese nombre');
           readln(nom);
           writeln('ingrese edad');
           readln(ed);
           writeln('ingrese nacionalidad');
           readln(nac);
           writeln('ingrese telefono');
           readln(tel);

            personas[cant].cedula:=ced;
            personas[cant].apellido:=ape;
            personas[cant].nombre:=nom;
            personas[cant].edad:=ed;
            personas[cant].nacionalidad:=nac;
            personas[cant].telefono:=tel;

       end
    else
        writeln(' Registro ya existe ');
  end;

procedure mostrar(var personas:lista; var cant:integer);
 var x: integer;
 begin
  for x:=1 to cant do
  writeln(' cedula: ',personas
  • .cedula,' apellido: ',personas
  • .apellido,' nombre: ',personas
  • .nombre,' edad: ',personas
  • .edad,' nacionalidad: ',personas
  • .nacionalidad,' telefono: ',personas
  • .telefono);
readkey;
 end;
begin
end.

procedure ordenar(var personas:lista; var cant:integer);
var x,y,z,valor:integer;
var aux:dat;

   for x:=1 to cant do
     begin








procedure modificar(var personas:lista; var cant:integer);
var x,valor,encon,posicion,nuevodat:integer;
var opcion:string;

begin
repeat
      clrscr;
      encon:=0;
personas
  • .cedula:=nuevodat;
     writeln('ingrese valor a modificar');
      readln(valor);
           for x:=1 to cant do
           if (valor= personas
  • .cedula)then
          begin


« Última modificación: 30 Junio 2013, 03:12 am por joseanh » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda con pascal por fa
Programación General
Naly09 0 1,858 Último mensaje 21 Agosto 2010, 22:11 pm
por Naly09
SQL Server - Procedimientos almacenados y permisos - AYUDA
Bases de Datos
NetStorm 2 7,784 Último mensaje 13 Noviembre 2010, 15:30 pm
por NetStorm
MOVIDO: SQL Server - Procedimientos almacenados y permisos - AYUDA
.NET (C#, VB.NET, ASP)
[D4N93R] 0 1,914 Último mensaje 10 Noviembre 2010, 22:46 pm
por [D4N93R]
Ayuda ejercicio de Pascal, cuando uno no lo ve claro pide ayuda
Programación General
manu3742 1 3,525 Último mensaje 31 Marzo 2011, 15:43 pm
por d(-_-)b
[Ayuda!]Problema con procedimientos Irvine « 1 2 »
ASM
.:UND3R:. 16 14,021 Último mensaje 1 Diciembre 2011, 20:49 pm
por x64core
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines