Pascal/Turbo Pascal - Escribir un programa que mantenga un servicio de animales dométicos perdidos y encontrados .

uses crt;

const

	maximo = 500;

type

	{Registro de animales encontrados}

	animalesEncontrados = record

		codigo:string;

		tipo:string;

		raza:string;

		tamanio:byte;

	end;

	{Registro de persona que lo encontro}

	personaEncontro = record

		nombre:string;

		telefono:string;

	end;

	{Registro de animales perdidos}

	animalesPerdidos = record

		codigo:string;

		tipo:string;

		raza:string;

		tamanio:byte;

	end;

var

	opc:integer;

	i:integer;

	encontrados:array[1..maximo] of animalesEncontrados;

{---------- Agregar animal encontrado ----------------------}

procedure agregarAnimal;

begin

	clrscr;

	gotoxy(30,4); writeln('Añadir un animal encontrado');

	gotoxy(30,5); writeln('---------------------------');

	gotoxy(30,7); write('Codigo del animal: ');

	readln(encontrados[i].codigo);

	gotoxy(30,8);write('Tipo de animal: ');

	readln(encontrados[i].tipo);

	gotoxy(30,9); write('Raza del animal: ');

	readln(encontrados[i].raza);

	gotoxy(30,10); write('Tamaño del animal: ');

	readln(encontrados[i].tamanio);

	gotoxy(25,13); writeln('Se ha(n) agregado ',i,' animal(es) exitosamente');

	inc(i);

	readln;

end;

{----------------- Listar animales encontrados ---------------------}

procedure animales_Encontrados;

var

	j,fila:byte;

begin

	clrscr;

	fila:=9;

	gotoxy(30,4); writeln('Lista de animales encontrados');

	gotoxy(30,5); writeln('-----------------------------');

	gotoxy(25,7); writeln('Codigo');

	gotoxy(35,7); writeln('Tipo');

	gotoxy(45,7); writeln('Raza');

	gotoxy(60,7); writeln('Tamaño');

	for j:=1 to i do begin

		gotoxy(25,fila); writeln(encontrados[j].codigo);

		gotoxy(35,fila); writeln(encontrados[j].tipo);

		gotoxy(45,fila); writeln(encontrados[j].raza);

		gotoxy(60,fila); writeln(encontrados[j].tamanio);

		inc(fila);

	end;

	readln;

end;

{---------------------- Principal ----------------------}

begin

	opc:=-1;

	i:=1;

	{Diseno del menu}

	while opc <> 0 do begin

		clrscr;

		gotoxy(25,2); writeln('Sistema de animales perdidos y encontrados');

		gotoxy(25,3); writeln('------------------------------------------');

		gotoxy(30,5); writeln('1. Añadir animal encontrado');

		gotoxy(30,6); writeln('2. Listar animales encontrados');

		gotoxy(30,7); writeln('3. Añadir animal perdido');

		gotoxy(30,8); writeln('4. Listar animal perdido');

		gotoxy(30,9); writeln('5. Listar animales localizados');

		gotoxy(30,10); writeln('6. Buscar datos de un animal localizado');

		gotoxy(30,11); writeln('0. Terminar');

		gotoxy(30,13); write('Seleccione su opcion: ');

		readln(opc);

		case opc of

			1:agregarAnimal;

			2:animales_Encontrados;

		end;

	end;

end.