1
Aprender a programar desde cero / Re:Archivos registros, pseudocodigo, ayuda urgente por favor
« en: 25 de Abril 2013, 15:10 »
Gracias por contestar! Es pseudocodigo, apenas estoy llevando un curso básico así que no se mucho y no uso ningún lenguaje aun. si debo consultar un auto, como hago para buscar en vario registros???
Rcarro.placa= placa_auto
Buscar Rcarro.placa en Taller.DAT
Si hago eso solo estaría buscando en uno pero si tengo N cantidad de registros?
Esto es básicamente lo que he hecho
Algoritmo Taller_Automotriz
Variables
Opción= numérico
Tipo
Registro= Rcarro
Placa= numérico
Tipo= cadena
Marca= cadena
Modelo= cadena
Clasificación= cadena
Estado= cadena
Reparaciones= cadena
Fin Registro
Inicio
Crear Rcarro, Taller.DAT
Repetir
Escribir (“menú Taller Automotriz”)
Escribir (“1. Agregar Auto”)
Escribir (“2. Consultar Auto”)
Escribir (“3. Modificar Auto”)
Escribir (“4.Escribir Eliminar Auto”)
Escribir (“5 Punto de venta”)
Escribir (“6. Reporte total de automotores”)
Escribir (“7. Salir del sistema”)
Escribir (“Digite la opción”)
Leer (opción)
En caso que opción sea
1: agrega_auto
2: consulta_auto
3: modifica_auto
4: modifica_auto
5: punto_venta
6: reporte_total
Fin Casoque
Hasta que opción = 7
Fin
Procedimiento agrega_auto
Variables
mas_autos= cadena
placa_auto= numérico
modificar= cadena
Inicio
Abrir Rcarro, Taller.DAT
Repetir
Escribir “Ingrese la placa del auto”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro.placa en Taller.DAT
Si Rcarro.placa se encuentra Entonces
Imprimir “¿Desea modificar el auto S/N?”
Leer modificar
Si modificar= “S” Entonces
modificar_auto
FinSi
Sino
Crear RcarroN
Escribir “Ingrese el tipo, marca, modelo, clasificación, estado, reparaciones “
Leer RcarroN placa, RcarroN tipo, RcarroN marca, RcarroN modelo, RcarroN clasificación, RcarroN estado, RcarroN reparaciones
FinSi
Escribir “¿Desea ingresar otro auto? S/N”
Leer mas_autos
Hasta que mas_autos= “N”
Cerrar Rcarro, RcarroN, Taller.DAT
Fin Procedimiento
Procedimiento consultar_auto
Variables
Placa_auto= numérico
Mas_autos= cadena
Inicio
Abrir Taller.DAT
Mientras no EOF hacer
Escribir “Ingrese la placa del auto”
Leer placa_auto
Si placa_auto se encuentra Entonces
Imprimir placa, tipo, marca, modelo, clasificación, estado, reparaciones
Sino
Imprimir “No existen archivos”
Fin Si
Escribir “Ingrese otro auto”
Leer mas_autos
Hasta que mas _autos= “N”
Cerrar Taller. DAT
Fin Procedimiento
Procedimiento modificar_auto
Variables
placa_auto= numérica
mas_autos= cadena
tipo_auto= cadena
marca_auto= cadena
modelo_auto= cadena
clasificación_auto= cadena
estado_auto= cadena
reparaciones_auto= cadena
modificar= cadena
Inicio
mas_autos= “S”
Abrir Rcarro
Mientras mas_autos “S” hacer
Escribir “Ingrese el número de placa”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro.placa en C:
Si Rcarro.placa se encuentra Entonces
Escribir “ingrese el tipo de auto”
Leer tipo_auto
Escribir “Ingrese la marca”
Leer marca_auto
Escribir “Ingrese el modelo”
Leer modelo_auto
Escribir “Ingrese la clasificación”
Leer clasificación_auto
Escribir “ingrese el estado”
Leer estado_auto
Escribir “ingrese las reparaciones”
Leer “reparaciones_auto
Escribir “¿Desea modificar? (S/N)”
Leer modificar
Si modificar= “S” Entonces
Rcarro.tipo= tipo_auto
Rcarro.marca= marca_auto
Rcarro.modelo= modelo_auto
Rcarro.clasificacion= clasificación_auto
Rcarro.estado= estado_auto
Rcarro.reparaciones= reparaciones_auto
Grabar Rcarro
FinSi
Sino
Imprimir “No hay registros relacionados”
FinSi
Escribir “¿Desea ingresar otro auto?”
Leer mas_autos
Fin Mientras
Cerrar Rcarro
Fin procedimiento
Procedimiento eliminar_auto
Variables
Placa_auto= numérica
mas_autos= cadena
borrar= cadena
Inicio
Abrir Rcarro
Repetir
Escribir “Ingrese la placa del auto”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro.placa en C
Si Rcarro .placa se encuentra Entonces
Escribir “¿Desea borrar? (S/N)”
Si borrar= “S” Entonces
Borrar Registro
Sino
Imprimir “No existen registros”
FinSi
Escribir “Ingrese otra placa”
Leer mas_autos
Hasta que mas_autos= “N”
Cerrar Rcarro
Fin Procedimiento
Procedimiento Punto_venta
Variables
placa_auto= numérico
costo= numérico
descripción= cadena
reparacion= cadena
precio_total= numérico
agregar= cadena
Inicio
Abrir Rcarro
Repetir
Escribir “Ingrese el número de placa”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro. placa en C
Si Rcarro.placa se encentra Entonces
Escribir “Ingrese el costo”
Leer costo
Escribir “Ingrese una reparación”
Leer reparación
Escribir “¿Desea agregar otra reparación? (S/N)”
Leer agregar
Si agregar= “S” Entonces
Leer reparaciones, costos
Reparación= reparación+1
Precio_total= precio_total+ costo
Imprimir reparaciones, precio_total
Grabar Rcarro
FinSi
Hasta que agregar= “N”
Cerrar Rcarro
Fin Procedimiento
Procedimiento Reporte_General
Variables
mas_autos= cadena
Inicio
mas_autos “S”
Abrir Rcarro
Mientras mas_autos “S” hacer
Imprimir Rcarro placa, Rcarro tipo, Rcarro marca, Rcarro modelo, Rcarro clasificación, Rcarro estado, Rcarro reparaciones
Rcarro.placa= placa_auto
Buscar Rcarro.placa en Taller.DAT
Si hago eso solo estaría buscando en uno pero si tengo N cantidad de registros?
Esto es básicamente lo que he hecho
Algoritmo Taller_Automotriz
Variables
Opción= numérico
Tipo
Registro= Rcarro
Placa= numérico
Tipo= cadena
Marca= cadena
Modelo= cadena
Clasificación= cadena
Estado= cadena
Reparaciones= cadena
Fin Registro
Inicio
Crear Rcarro, Taller.DAT
Repetir
Escribir (“menú Taller Automotriz”)
Escribir (“1. Agregar Auto”)
Escribir (“2. Consultar Auto”)
Escribir (“3. Modificar Auto”)
Escribir (“4.Escribir Eliminar Auto”)
Escribir (“5 Punto de venta”)
Escribir (“6. Reporte total de automotores”)
Escribir (“7. Salir del sistema”)
Escribir (“Digite la opción”)
Leer (opción)
En caso que opción sea
1: agrega_auto
2: consulta_auto
3: modifica_auto
4: modifica_auto
5: punto_venta
6: reporte_total
Fin Casoque
Hasta que opción = 7
Fin
Procedimiento agrega_auto
Variables
mas_autos= cadena
placa_auto= numérico
modificar= cadena
Inicio
Abrir Rcarro, Taller.DAT
Repetir
Escribir “Ingrese la placa del auto”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro.placa en Taller.DAT
Si Rcarro.placa se encuentra Entonces
Imprimir “¿Desea modificar el auto S/N?”
Leer modificar
Si modificar= “S” Entonces
modificar_auto
FinSi
Sino
Crear RcarroN
Escribir “Ingrese el tipo, marca, modelo, clasificación, estado, reparaciones “
Leer RcarroN placa, RcarroN tipo, RcarroN marca, RcarroN modelo, RcarroN clasificación, RcarroN estado, RcarroN reparaciones
FinSi
Escribir “¿Desea ingresar otro auto? S/N”
Leer mas_autos
Hasta que mas_autos= “N”
Cerrar Rcarro, RcarroN, Taller.DAT
Fin Procedimiento
Procedimiento consultar_auto
Variables
Placa_auto= numérico
Mas_autos= cadena
Inicio
Abrir Taller.DAT
Mientras no EOF hacer
Escribir “Ingrese la placa del auto”
Leer placa_auto
Si placa_auto se encuentra Entonces
Imprimir placa, tipo, marca, modelo, clasificación, estado, reparaciones
Sino
Imprimir “No existen archivos”
Fin Si
Escribir “Ingrese otro auto”
Leer mas_autos
Hasta que mas _autos= “N”
Cerrar Taller. DAT
Fin Procedimiento
Procedimiento modificar_auto
Variables
placa_auto= numérica
mas_autos= cadena
tipo_auto= cadena
marca_auto= cadena
modelo_auto= cadena
clasificación_auto= cadena
estado_auto= cadena
reparaciones_auto= cadena
modificar= cadena
Inicio
mas_autos= “S”
Abrir Rcarro
Mientras mas_autos “S” hacer
Escribir “Ingrese el número de placa”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro.placa en C:
Si Rcarro.placa se encuentra Entonces
Escribir “ingrese el tipo de auto”
Leer tipo_auto
Escribir “Ingrese la marca”
Leer marca_auto
Escribir “Ingrese el modelo”
Leer modelo_auto
Escribir “Ingrese la clasificación”
Leer clasificación_auto
Escribir “ingrese el estado”
Leer estado_auto
Escribir “ingrese las reparaciones”
Leer “reparaciones_auto
Escribir “¿Desea modificar? (S/N)”
Leer modificar
Si modificar= “S” Entonces
Rcarro.tipo= tipo_auto
Rcarro.marca= marca_auto
Rcarro.modelo= modelo_auto
Rcarro.clasificacion= clasificación_auto
Rcarro.estado= estado_auto
Rcarro.reparaciones= reparaciones_auto
Grabar Rcarro
FinSi
Sino
Imprimir “No hay registros relacionados”
FinSi
Escribir “¿Desea ingresar otro auto?”
Leer mas_autos
Fin Mientras
Cerrar Rcarro
Fin procedimiento
Procedimiento eliminar_auto
Variables
Placa_auto= numérica
mas_autos= cadena
borrar= cadena
Inicio
Abrir Rcarro
Repetir
Escribir “Ingrese la placa del auto”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro.placa en C
Si Rcarro .placa se encuentra Entonces
Escribir “¿Desea borrar? (S/N)”
Si borrar= “S” Entonces
Borrar Registro
Sino
Imprimir “No existen registros”
FinSi
Escribir “Ingrese otra placa”
Leer mas_autos
Hasta que mas_autos= “N”
Cerrar Rcarro
Fin Procedimiento
Procedimiento Punto_venta
Variables
placa_auto= numérico
costo= numérico
descripción= cadena
reparacion= cadena
precio_total= numérico
agregar= cadena
Inicio
Abrir Rcarro
Repetir
Escribir “Ingrese el número de placa”
Leer placa_auto
Rcarro.placa= placa_auto
Buscar Rcarro. placa en C
Si Rcarro.placa se encentra Entonces
Escribir “Ingrese el costo”
Leer costo
Escribir “Ingrese una reparación”
Leer reparación
Escribir “¿Desea agregar otra reparación? (S/N)”
Leer agregar
Si agregar= “S” Entonces
Leer reparaciones, costos
Reparación= reparación+1
Precio_total= precio_total+ costo
Imprimir reparaciones, precio_total
Grabar Rcarro
FinSi
Hasta que agregar= “N”
Cerrar Rcarro
Fin Procedimiento
Procedimiento Reporte_General
Variables
mas_autos= cadena
Inicio
mas_autos “S”
Abrir Rcarro
Mientras mas_autos “S” hacer
Imprimir Rcarro placa, Rcarro tipo, Rcarro marca, Rcarro modelo, Rcarro clasificación, Rcarro estado, Rcarro reparaciones