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

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  ayuda con pascal por fa
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda con pascal por fa  (Leído 1,856 veces)
Naly09

Desconectado Desconectado

Mensajes: 1


Ver Perfil
ayuda con pascal por fa
« en: 21 Agosto 2010, 22:11 pm »

Por favor necesito realizar en pascal un menu con 3 opciones, eso ya lo hice pero tengo q hacerlo con vectores:
1.ingresar=se ingresa datos de 1 a 1 hasta 6 cuando llega a 6 tengo q poner q el vector esta lleno;
2. borrar= este borra el primer dato del vector y cambia de posiciones el vector2 pasa hacer el 1 y asi sucesivamente
El problema q tengo es q se supone q cuando borro uno puedo ingresar otro numero pero el programa no me deja me pone q el vector todavia esta lleno... alguien me puede ayudar con esto por fa....
aqui esta el procedimiento q tengo hecho;

  '1': Begin
        clrscr;
        con:=con +1;
        if con>=7 then
        writeln('cola llena')
        else
        begin
        writeln('Digite Numero');
        readln(num);
        v1[con]:=num;
        writeln('HAY ',con,'CAMPOS LLENOS');
        end;
        readkey;
         alter(opcion);
        end;

   '2': Begin
        clrscr;

        write('BORRANDO DATO');
        for i:=1 to 6 do
        if i=6 then
        v1[6]:=0
        else
        v1:=v1[i+1];
        con:=con-1;
        readkey;
        alter(opcion);
        end;

PORFA AYUDENME


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Pascal , ayuda
Programación General
netca 2 2,360 Último mensaje 24 Marzo 2011, 23:07 pm
por Khronos14
Pascal repeat ayuda
Programación General
netca 5 5,491 Último mensaje 9 Abril 2011, 13:14 pm
por skapunky
Ayuda, codigo Pascal
Programación General
inquilin@19 0 1,563 Último mensaje 1 Junio 2013, 15:21 pm
por inquilin@19
AYUDA con procedimientos en pascal
Ejercicios
joseanh 0 2,612 Último mensaje 30 Junio 2013, 03:10 am
por joseanh
Pascal-- ayuda con matrizes no compila pascal ide
Programación General
Augusto 0 2,096 Último mensaje 6 Noviembre 2017, 22:50 pm
por Augusto
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines