dimensiones

Programa en Pseint : Usando Dimensiones

Ejemplo:


Proceso sin_titulo
Definir a,c Como Entero;
Definir b como cadena;
Dimension b(5,4);
a<-0;
Para a<-0 Hasta 4 Con Paso 1 Hacer
Escribir "Nombre: ";
Leer b(a,0);
Escribir "Direccion: ";
Leer b(a,1);
Escribir "Telefono: ";
Leer b(a,2);
Escribir "Email: ";
Leer b(a,3);
FinPara
Escribir "Que Contacto desea buscar: Ingrese 0,1,2,3 o 4";
Leer c;
Para a<-0 Hasta 4 Con Paso 1 Hacer
Si a=c Entonces
Escribir "El contacto es: ";
Escribir b(a,0);
Escribir b(a,1);
Escribir b(a,2);
Escribir b(a,3);
Sino
Si a!=c Entonces
Escribir "El dato no se encuentra ";
FinSi
FinSi
FinPara
FinProceso