Mostrando entradas con la etiqueta Ejemplos de algoritmos. Mostrar todas las entradas
Mostrando entradas con la etiqueta Ejemplos de algoritmos. Mostrar todas las entradas

martes, 26 de enero de 2016

JAVA - Sentencias Básicas (Condicionales, Aritmeticas y Contadores) - 2 de 3

4. Dado un número entero que se introduce por teclado, determinar si es negativo o superior a 100.

EXPLICACION DEL PROGRAMA: el programa en principio define la clase aa4 que contiene la función principal main. Primero se lee un numero, que es introducido por teclado y se hacen comparaciones para verificar si es negativo, mayor a 100 o en el intervalo 0-100. Finalmente se despliega por pantalla la condición de dicho numero.

//Programa realizado por Freddy Valda
import java.io.*;
public class aa4
{
public static void main(String args[])throws IOException
{BufferedReader in;
in=new BufferedReader(new InputStreamReader(System.in));
System.out.println("Introduzca un numero");
int a=Integer.parseInt(in.readLine());
if(a<0)
System.out.println("El numero es negativo");
else
if (a>100)
System.out.println("El numero es mayor a 100");
else
System.out.println("El numero esta en el intervalo de 0 a 100");
}}


5. Dado un número que se introduce por teclado, si es positivo verificar si se encuentra en el intervalo abierto 60 – 90, de lo contrario emitir un mensaje de error.

EXPLICACION DEL PROGRAMA: Este programa verifica si un numero ingresado por el teclado es positivo y si se encuentra en un intervalo predeterminado utilizando sentencias if.

//Programa realizado por Freddy Valda
import java.io.*;
public class a5
{
public static void main(String args[])throws IOException
{BufferedReader in;
in=new BufferedReader(new InputStreamReader(System.in));
System.out.println("Introduzca un numero");
int a=Integer.parseInt(in.readLine());
if(a<61)
System.out.println("ERROR");
else
if (a>89)
System.out.println("ERROR");
else
System.out.println("El numero esta en el intervalo abierto 60-90");
}
}


6. Una fuente de datos registra varias edades, la edad 0 indica el final del ingreso de datos, realice un programa para determinar el promedio de las edades ingresadas y además el porcentaje de personas mayores a los 50 años.

EXPLICACIÓN DEL PROGRAMA: Este programa nos permite registrar varias edades con la información que una ves ingresada la edad 0 esta nos indica el final del ingreso de edades, calculando le promedio de las edades y además el porcentaje de edades mayores a los 50 años.

// Programa realizado por Sergio W. Ossio Marin
import java.io.*;
public class B_1
{
public static void main (String args []) throws IOException
{
BufferedReader in;
in = new BufferedReader (new InputStreamReader (System.in));
double m = 1, aux = 0, n = 0, o = 0;
System.out.println ("La edad 0 indica el final de ingreso de edades");
while (m != 0)
{
System.out.print ("Ingrese una edad ");
m = Integer.parseInt (in.readLine ());
n++;
aux = aux + m;
if (m > 50)
{
o++;
}
}
double s = (o * 100) / (n - 1);
double aux2 = aux / (n - 1);
System.out.println ("El promedio es " + aux2 );
System.out.println ("El porcentaje de personas mayores a los 50 a*os es de: " + s );}}


Espero haber ayudado en algo. Hasta la próxima oportunidad!








  

lunes, 25 de enero de 2016

JAVA - Sentencias Básicas (Condicionales, Aritmeticas y Contadores) - 1 de 3

En los siguientes ejercicios, se utilizan las sentencias condicionales if- else, además de sentencias aritméticas como % (modulo), comparativas (<,>,==,etc) y tambien se hace uso de contadores y sentinelas.

1. Dado un número entero y positivo que se introduce por teclado, determinar si es par o impar.

EXPLICACION DEL PROGRAMA: Este programa lee un numero introducido por teclado y verifica si el numero es par o impar, verificando si el modulo del numero entre 2 es 0 o no.

//programa realizado por Freddy Valda Sanchez
import java.io.*;
public class a1
{
public static void main(String args[])throws IOException
{BufferedReader in;
in=new BufferedReader(new InputStreamReader(System.in));
System.out.println("Introduzca un numero entero y positivo");
int a=Integer.parseInt(in.readLine());
if(a%2==0)
System.out.println("El numero es par");
else
System.out.println("El numero es impar");
}
}

2. Dado un número entero que se introduce por teclado, determinar si es positivo, negativo o nulo.

EXPLICACION DEL PROGRAMA: El usuario ingresa un numero entero y el programa determina si es positivo, negativo o cero(nulo). Utiliza simples comparaciones y sale el mensaje correspondiente.

//Programa realizado por Andrés Prudencio R.
import java.io.*;
public class a2
{
public static void main (String args[])throws IOException
{
BufferedReader in;
in = new BufferedReader (new InputStreamReader (System.in));
System.out.println("Ingrese un numero entero: ");
int d = Integer.parseInt(in.readLine());
if (d==0)
System.out.print(" el numero es nulo ");
else
{if (d<0)
System.out.print("El numero es negativo");
else
System.out.print("El numero es positivo");}
}}

3. Dado un número entero que se introduce por teclado, determinar si se encuentra en el intervalo cerrado 51 - 100.

EXPLICACIÓN DEL PROGRAMA: Este programa nos permite Verificar que un número ingresado por teclado se encuentre en el intervalo cerrado [51,100]

// Programa realizado por Sergio W. Ossio Marin
import java.io.*;
public class A_3
{
public static void main (String args[])throws IOException
{
BufferedReader in;
in = new BufferedReader (new InputStreamReader (System.in));
int n;
System.out.println("Ingrese el numero a verificar: ");
n = Integer.parseInt(in.readLine());
if(n>=51&n<=100)
System.out.println("El numero se encuentra en el intervalo cerrado [51-100]");
else
System.out.println("El numero no se encuentra en el intervalo cerrado [51-100]");
}}



Espero haber ayudado en algo. Hasta la próxima oportunidad!








  

lunes, 21 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 13 de 16



Desarrolle un algoritmo que funcione como caja registradora.


Pseudocódigo

1. Inicio

2. Declaración de Variables:

Sub_total=0,Total = 0

3. Ingrese “Código de Producto y Precio:”

4. Almacenar Codigo_Producto, Precio

5. Imprimir líneas de títulos del recibo de pago

6. Mientras Código_Producto <> “ “

7. Subtotal = Subtotal + Precio

8. Imprimir Codigo_Producto, Precio

9. Ingrese “Código de Producto y Precio:”

10. Fin_Mientras

11. IVA = Subtotal * 0,15

12. Total = Subtotal + IVA

13. Imprimir “Sub Total : “, Subtotal

14. Imprimir “ IVA : “, IVA

15. Imprimir “Total: “, Total

16. Fin


Diagrama de Flujo: 





Ejercicios propuestos:

Realice el mismo algoritmo utilizando la herramienta IF-THEN – ELSE.



Espero haber ayudado en algo. Hasta la próxima oportunidad!







domingo, 20 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 12 de 16



Desarrolle un algoritmo para la empresa Constructora Tecnovivir Casas C.A., que le permita calcular e imprimir la nómina para su cancelación a un total de 50 obreros calificados a quienes debe cancelar por horas trabajadas. La hora trabajada se pautó en 30.000 Bolívares.


Pseudocódigo

1. Inicio

2. Declaración de Variables:

Numero_Obreros =50
Numero_Hora_Trabajadas = 0
Total_nomina = 0

3. Imprimir líneas de títulos de la nómina

4. Leer Datos

5. Mientras Numero_Obreros>0

6. Salario = Numero_Hora_Trabajada * 30

7. Total_nómina= Totalnómina + Salario

8. Numero_Obreros = Numero_Obreros - 1

9. Imprimir Registro

10. Leer Datos

11. Fin_Mientras

12. Imprimir “Total : “, Total_nómina

13. Fin


Diagrama de Flujo: 




Ejercicios propuestos:

a. ¿Qué pasaría si no se decrementa al número de obreros en uno?
b. Realice el mismo algoritmo utilizando la herramienta FOR,
c. Realice el mismo algoritmo utilizando la herramienta REPEAT.



Espero haber ayudado en algo. Hasta la próxima oportunidad!







sábado, 19 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 11 de 16




Desarrolle un algoritmo que permita calcular Promedio de Notas; finaliza cuando N = 0.


Pseudocódigo

1. Inicio

2. Declaración de Variables:
N = 0, Promedio = 0, Acumula= 0

3. Leer N

4. Mientras N <> 0 hacer

5. Cuenta = Cuenta + 1

6. Acumula = Acumula + N

7. Fin Mientras

8. Promedio = Acumula/Cuenta

9. Imprimir “Promedio:”; Promedio

10. Fin


Diagrama de Flujo: 



Ejercicios propuesto:

a. Desarrolle un algoritmo que permita calcular la media aritmética.


Espero haber ayudado en algo. Hasta la próxima oportunidad!







viernes, 18 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 10 de 16



Tanto el Pseudocódigo como el Diagrama de flujo presentan errores; encuéntrelos y corrijalos. Realice un algoritmo que calcule el monto a pagar por el servicio de estacionamiento, teniendo en cuenta que por la primera hora de estadía se tiene una tarifa de 1000 bolívares y las restantes tienen un costo de 600 bolívares.
Se tiene como datos: hora de entrada, hora de salida (formato militar), iniciada una hora se contabiliza como hora total.


Pseudocódigo

1. Inicio

2. Declaración de Variables

HE = 0 (Hora Entrada)
HS = 0 (Hora Salida)
Pago = 0

3. Leer Datos: HE, HS

4. HoraEstadia = HS – HE

5. HoraFracción = HoraEstadia–HoraEstadia

6. Si HoraEstadia>= 1 Entonces

7. Si HoraFraccion >= 1 Entonces

8. HoraEstadia=HoraEstadia + 1

9. Fin_SI

10. Hora Restante = HoraEstadia – 1

11. Pago = 1000 + (HoraRestante * 600)

12. De lo contrario

13. Pago = 1000

14. Imprimir resultado

15. Fin


Diagrama de Flujo: 




Ejercicios propuesto:

a. Realice un algoritmo que determine el pago a realizar por la entrada a un espectáculo donde se pueden comprar sólo hasta cuatro entrada, donde al costo de dos entradas se les descuenta el 10%, al de tres entrada el 15% y a la compra de cuatro tickets se le descuenta el 20 %.


Espero haber ayudado en algo. Hasta la próxima oportunidad!







miércoles, 16 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 9 de 16



Desarrolle un algoritmo que permita leer un valor entero positivo N y determinar si es primo o no.


Pseudocódigo


1. Inicio

2. Declaración de variables:

J = 2, S =0

3. Leer N

4. Mientras J<= N / 2 hacer

5. Si N / J =0

6. S=S+1

7. J=J+1

8. Fin_Si

9. Fin del ciclo mientras

10. Si S = 0 Entonces

11. Escribir N “es primo”

12. Sino (De lo contrario)

13. Escribir N “no es primo”

14. Fin_Si

15. Fin


Diagrama de Flujo: 




Ejercicios propuesto:

a. ¿Qué falta en este algoritmo? ¿ Qué errores presenta?
b. Realice un algoritmo que determine los veinte primeros números, ¿Cuáles son múltiplos de 2?.
c. Realice un algoritmo que determine cuantos minutos hay en 5 horas.


Espero haber ayudado en algo. Hasta la próxima oportunidad!







martes, 15 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 8 de 16



Desarrolle un algoritmo que permita leer dos números y ordenarlos de menor a mayor, si es el caso..

Pseudocódigo

1. Inicio

2. Declaración de Variables:
A = 0, B = 0, Temporal = 0

3. Leer A y B

4. Si A<B Entonces

5. Asignar a Temporal = B

6. Asignar a B = A

7. Asignar a A = Temporal

8. Si no (De lo contrario)

9. Fin_Si

10 Escribir “Orden = “, A, B

11. Fin


Diagrama de Flujo: 






Ejercicios propuesto:

Desarrolle un algoritmo que permita realizar la escritura de los primeros 100 números naturales
utilizando la estructura Mientras (While).


Espero haber ayudado en algo. Hasta la próxima oportunidad!








viernes, 11 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 7 de 16



Desarrolle un algoritmo que permita leer un valor cualquiera N y escriba si dicho número es par o impar.

Pseudocódigo

1. Inicio

2. Declaración de variables: N

3. Leer un número

4. Asignarlo a la variable N

5. Si el residuo de dividir a N entre 2 es igual a cero

6. Si es Si: Entonces: Escribir “ Es par”

7. Sino: Escribir “Es impar”

8. Fin_Si

9. Fin


Diagrama de Flujo: 





Ejercicios propuesto:

a. Complete el algoritmo con la instrucción o instrucciones necesarias.
b. Desarrolle un algoritmo que le permita determinar de una lista de números:
b.1. ¿Cuántos están entre el 50 y 75, ambos inclusive?
b.2. ¿Cuántos mayores de 80?
b.3. ¿Cuántos menores de 30?

El algoritmo debe finalizar cuando n (el total de números de la lista), sea igual a 0.


Espero haber ayudado en algo. Hasta la próxima oportunidad!







Ejemplos de Algoritmos - Ejercicio 6 de 16



Desarrolle un algoritmo que permita convertir calificaciones numéricas, según la siguiente tabla:

A = 19 y 20, B =16, 17 y 18, C = 13, 14 y 15, D = 10, 11 y 12, E = 1 hasta el 9. Se asume que la nota está comprendida entre 1 y 20.


Pseudocódigo


1. Inicio

2. Declaración de variables:
NuevaNota = Carácter

3. Leer registros hasta fin de archivo

4. Si Nota>=19 AND Nota<=20 Entonces

5. NuevaNota= “A”

6. Si no (De lo contrario)

7. Si Nota>=16 AND Nota<=18 Entonces

8. NuevaNota= “B”

9. Si no (De lo contrario)

10. Si Nota>=13 AND Nota<=15 Entonces

11. NuevaNota= “C”

12. Si no (De lo contrario)

13. Si Nota>=10 AND Nota<=12 Entonces

14. NuevaNota= “D”

15. Si no (De lo contrario)

16. Si Nota>=1 AND Nota<=9 Entonces

17. NuevaNota= “E”

18. Si no (De lo contrario)

19. Fin_Si


Diagrama de Flujo: 




Ejercicios propuesto:

a. Realiza el mismo algoritmo utilizando Mientras (While); también hazlo utilizando En Caso (Case)


Espero haber ayudado en algo. Hasta la próxima oportunidad!








miércoles, 9 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 5 de 16



Desarrolle un algoritmo que permita determinar el área y volumen de un cilindro dado su radio (R) y altura (H).

Pseudocódigo


1. Inicio

2. Declaración de variables: R = 0, H = 0

3. Leer el valor de Radio (R) y Altura (H)

4. Calcular el Volumen aplicando la fórmula

5. Calcular el valor del área aplicando la fórmula respectiva

6. Escribir el valor del Área y del Volumen

7. Fin


Diagrama de Flujo: 





Ejercicios propuesto:

a. Realiza un algoritmo que le permita determinar el área de un rectángulo.


Espero haber ayudado en algo. Hasta la próxima oportunidad!







viernes, 4 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 4 de 16



Determinar la hipotenusa de un triángulo rectángulo conocidas las longitudes de sus dos catetos.
Desarrolle el algoritmo correspondiente.

Pseudocódigo


1. Inicio

2. Declaración de Variables: CatA= 0, CatB=0

3. Leer el valor de cada cateto

4. Almacenarlo en la variable CatA y CatB

5. Calcular el valor de Hip con la formula indicada

6. Escribir el valor de la Hipotenusa

7. Fin


Diagrama de Flujo: 




Ejercicios propuesto:

a. ¿Qué falta en este algoritmo? ¿ Qué errores presenta?
b. Desarrollar un algoritmo que calcule el área de un cuadrado.


Espero haber ayudado en algo. Hasta la próxima oportunidad!







miércoles, 2 de diciembre de 2015

Ejemplos de Algoritmos - Ejercicio 3 de 16



Desarrolle un algoritmo que realice la sumatoria de los números enteros comprendidos entre el 1 y el 10, es decir, 1 + 2 + 3 + …. + 10.

Pseudocódigo

1. Inicio

2. Declaración de variables:

N= 0, Suma = 0

3. Asignación Contador :

N = N + 1

4. Asignación Acumulador:

Suma = Suma + N

5. Si N = 10 Entonces

6. Escribir Suma

7. De lo contrario, Repetir desde el paso 3

8. Fin_Si

8. Fin


Diagrama de Flujo: 



Ejercicios propuesto:

a. Desarrolle un algoritmo que realice la sumatoria de los números enteros múltiplos de 5, comprendidos entre el 1 y el 100, es decir, 5 + 10 + 15 +…. + 100. El programa deberá imprimir los números en cuestión y finalmente su sumatoria
b. Desarrolle un algoritmo que realice la sumatoria de los números enteros pares comprendidos entre el 1 y el 100, es decir, 2 + 4 + 6 +…. + 100. El programa deberá imprimir los números en cuestión y finalmente su sumatoria
c. Desarrolle un algoritmo que lea los primeros 300 números enteros y determine cuántos de ellos son impares; al final deberá indicar su sumatoria.


Espero haber ayudado en algo. Hasta la próxima oportunidad!








Ejemplos de Algoritmos - Módulo A



La presente publicación tiene como objetivo compartir una serie de ejemplos de algoritmos desarrollados tanto en pseudocódigo como en su diagrama de flujo. Al final de cada ejemplo se propone la solución de nuevos ejercicios con la finalidad que evalúe su capacidad de entendimiento y conocimiento. Gracias!!



Espero haber ayudado en algo. Hasta la próxima oportunidad!








lunes, 30 de noviembre de 2015

Ejemplos de Algoritmos - Ejercicio 2 de 16



Desarrolle un algoritmo que permita leer tres valores y almacenarlos en las variables A, B y C respectivamente. El algoritmo debe imprimir cual es el mayor y cual es el menor. Recuerde constatar que los tres valores introducidos por el teclado sean valores distintos. Presente un mensaje de alerta en caso de que se detecte la introducción de valores iguales.


Pseudocódigo:

1. Inicio

2. Inicializar las variables A, B y C

3. Leer los tres valores

4. Almacenar en las variables A, B y C

5. Si A > B y A > C Entonces

6. Escribir A “Es el mayor”

7. Sino

8. Si B > A y B > C Entonces

9. Escribir B “Es el mayor”

10. Sino

11. Escribir C “Es el mayor”

12. Fin_Si

13. Fin_Si

14. Fin


Diagrama de Flujo: 



Ejercicios propuesto:

a. ¿Es este algoritmo la solución perfecta al ejercicio anterior? Razone su respuesta.
b. De ser necesario ¿qué cambios deberá realizar? Indíquelos.
c. Desarrolle un algoritmo que permita leer tres valores y almacenarlos en las variables A, B, y C respectivamente. El algoritmo debe indicar cual es el menor. Asumiendo que los tres valores introducidos por el teclado son valores distintos.
d. Desarrolle un algoritmo que lea cuatro números diferentes y a continuación imprima el mayor de los cuatro números introducidos y también el menor de ellos.


Espero haber ayudado en algo. Hasta la próxima oportunidad!








domingo, 29 de noviembre de 2015

Ejemplos de Algoritmos - Ejercicio 1 de 16



Desarrolle un algoritmo que permita leer dos valores distintos, determinar cual de los dos valores es el mayor y escribirlo. 


Pseudocódigo:


1. Inicio

2. Inicializar variables: A = 0, B = 0

3. Solicitar la introducción de dos valores distintos

4. Leer los dos valores

5. Asignarlos a las variables A y B

6. Si A = B Entonces vuelve a 3 porque los valores deben ser distintos

7. Si A>B Entonces

 Escribir A, “Es el mayor”

8. De lo contrario: Escribir B, “Es

el mayor”

9. Fin_Si

10. Fin 


Diagrama de Flujo: 


Ejercicios propuesto:

a. Realizar un algoritmo que permita leer dos valores, determinar cual de los dos valores es el menor y escríbalo
b. Realizar un algoritmo que sume dos números. 


Espero haber ayudado en algo. Hasta la próxima oportunidad!








martes, 14 de julio de 2015

Ejemplos de algoritmos con organización aleatoria y secuencial



1.-Hacer un pseudocodigo que nos permita dar altas en el fichero DATOS.DAT de organización directa, controlando las altas duplicadas. Los campos son: DNI, NOMBRE, APELLIDOS Y PUNTERO para ambos archivos.

Algoritmo( dn ) =

- Blanco: grabamos el registro en esa posición y ponemos el puntero a cero.
- Cero: comprobamos cual es el valor del campo puntero. Si es cero, grabamos el registro en esa posición (no hay sinónimos) y si es distinto de cero, comparamos el valor con el campo DNI, si son iguales, alta duplicada y dejamos de leer, y si no son iguales, introducimos el resto de la información.
- Distinto de cero: hay un registro grabado en esa posición. Si es igual al dato introducido, alta duplicada, y si no son iguales, comprobamos el valor del puntero, si es cero grabamos el registro, y si no es cero, si es igual al campo DNI, alta duplicada y sino se graba la informacion en el archivo SINONIMOS.DAT.


PROGRAMA altas
ENTORNO:
res <- "S"
ALGORITMO:
ABRIR "DATOS.DAT"
ABRIR "SINONIMOS.DAT"
MIENTRAS res = "S" HACER
dn <- 0
nom <- Espacios( 15 )
ape <- Espacios( 30 )
dir <- Espacios( 35 )
aux <- Espacios( 2 )
hueco <- Espacios( 2 )
swh <- 0
sw <- 0
num <- 0
donde <- 0
i <- 0
Borrar_pantalla( )
EN 10,20 ESCRIBIR "D.N.I.: "
EN 10,29 LEER dn
num <- Algoritmo( dn )
SELECCIONAR "DATOS.DAT"
LEER num
SI dni = Str( dn ) ENTONCES
HACER Alta_duplicada
SINO
SI Val( dni ) = 0 O dni = Espacios( ) ENTONCES
swh <- 1
FINSI
SI Val( puntero ) = 0 O puntero = Espacios( ) ENTONCES
HACER Introducir
puntero <- Str( 0 )
GRABAR num
SINO
HACER Buscar
SI sw = 0 ENTONCES
HACER Introducir
SI swh = 1 ENTONCES
GRABAR num
SINO
HACER Encontrar_sitio
SELECCIONAR "SINONIMOS.DAT"
GRABAR 1
puntero <- Str( donde )
SI i = 0 ENTONCES
SELECCIONAR "DATOS.DAT"
GRABAR num
SINO
SELECCIONAR "SINONIMOS.DAT"
GRABAR Val( aux )
FINSI
puntero <- Str( 0 )
SELECCIONAR "SINONIMOS.DAT"
GRABAR donde
FINSI
SINO
HACER Alta_duplicada( )
FINSI
FINSI
FINSI
HACER Mas
FINMIENTRAS
Cerrar_ficheros( )
FINPROGRAMA

SUBPROGRAMA Introducir
EN 12,20 ESCRIBIR "Nombre: "
EN 14,20 ESCRIBIR "Apellidos: "
EN 16,20 ESCRIBIR "Direcci¢n: "
EN 12,29 LEER nom
EN 14,32 LEER ape
EN 16,32 LEER dir
FINSUBPROGRAMA

SUBPROGRAMA Encontrar_sitio
SELECCIONAR "SINONIMOS.DAT"
LEER 1
SI Val( nombre ) <> 0 Y nombre <> Espacios( ) ENTONCES
donde <- Val( nombre )
LEER donde
hueco <- Val( nombre )
nombre <- Str( hueco )
SINO
donde <- Val( dni ) + 1
dni <- Str( donde )
FINSI
FINSUBPROGRAMA

SUBPROGRAMA Buscar
aux <- puntero
i <- 0
MIENTRAS Val( puntero ) <> 0 Y sw = 0 HACER
SELECCIONAR "SINONIMOS.DAT"
LEER Val( puntero )
SI dni = Str( dn ) ENTONCES
EN 20,10 ESCRIBIR "Alta duplicada"
Pausa( )
sw <- 1
SINO
SI Val( puntero ) <> 0 ENTONCES
i <- i + 1
aux <- puntero
FINSI
FINSI
FINMIENTRAS
FINSUBPROGRAMA

SUBPROGRAMA Alta_duplicada
EN 20,10 ESCRIBIR "Alta duplicada"
Pausa( )
FINSUBPROGRAMA


2.-Tenemos el fichero DATOS.DAT, que est indexado por el campo APELLIDOS, cuyos campos son: DNI, NOMBRE, APELLIDOS, DIRECCION y PROVINCIA. Hacer un programa que nos permita listar por pantalla todos los registros del fichero, controlando el salto de página cuando llegue a la linea veinte. 

PROGRAMA listar
ENTORNO:
fi <- 22
ALGORITMO:
ABRIR "DATOS.DAT" INDICE "APELLIDO"
MIENTRAS NO Eof( ) HACER
SI fi = 22 ENTONCES
HACER Cabecera
FINSI
EN fi,2 ESCRIBIR dni
EN fi,12 ESCRIBIR nombre
EN fi,28 ESCRIBIR apellidos
EN fi,55 ESCRIBIR direccion
EN fi,69 ESCRIBIR provincia
fi <- fi + 1
SI fi = 20 ENTONCES
EN 22,20 ESCRIBIR "Pulse INTRO para continuar"
Pausa( )
fi <- 22
FINSI
Siguiente_registro( )
FINMIENTRAS
CERRAR "DATOS.DAT"
Cerrar_indices( )
FINPROGRAMA

SUBPROGRAMA Cabecera
Borrar_pantalla( )
EN 3,4 ESCRIBIR "D.N.I."
EN 3,20 ESCRIBIR "NOMBRE"
EN 3,35 ESCRIBIR "APELLIDOS"
EN 3,60 ESCRIBIR "DIRECCION"
EN 3,70 ESCRIBIR "PROVINCIA"
fi <- 5
FINSUBPROGRAMA


3.-Tenemos el fichero DATOS.DAT con la misma estructura anterior, que esta indexado por el campo DNI. Crear un programa que nos permita consultar un registro siempre que queramos.

PROGRAMA consulta
ENTORNO:
res <- "S"
ALGORITMO:
ABRIR "DATOS.DAT" INDICE "DNI"
MIENTRAS res = "S" HACER
num <- 0
Borrar_pantalla( )
EN 8,20 ESCRIBIR "D.N.I. a buscar: "
EN 8,38 LEER num
BUSCAR num
SI Encontrado( ) ENTONCES
EN 10,12 ESCRIBIR "Nombre: ", nombre
EN 12,28 ESCRIBIR "Apellidos: ", apellidos
EN 14,55 ESCRIBIR "Direcci¢n: ", direccion
EN 16,69 ESCRIBIR "Provincia: ", provincia
SINO
EN 12,20 ESCRIBIR "No est "
EN 16,20 ESCRIBIR "Pulse INTRO para continuar"
Pausa( )
FINSI
res <- Espacios( 1 )
HACER Mas
FINMIENTRAS
CERRAR "DATOS.DAT"
Cerrar_indices( )
FINPROGRAMA



Espero haber ayudado en algo. Hasta la próxima oportunidad!








       
free counters

Páginas vistas en total según Google