Ejercicio de pascal


Problema:


Se dispone de 2 canchas de tenis durante 30 días del mes. Los turnos duran 1 hr y son desde las 8 a las 22. Los socios deben reservar su lugar. Hay 2 planillas: Tenis 1 y Tenis 2,de 30 x 15. Estas poseen el n° de socio que reservó la cancha, en determinado turno o 0 si la cancha en ese turno esta libre. Cuando una persona pide turno, se pide el n° de socio, el día y horariodeseado. El club elige la cancha que esté disponible.
Cuando haya disponibilidad de cancha para el turno pedido, mostrar los datos de la reserva y el n° de cancha asignado.
Cuando no hayadisponibilidad de cancha, dar el turno que sigue, si está disponible, mostrando el nuevo turno, y si no está libre decir que no hay lugares disponibles.
Mostrar cuántos son los pedidos rechazados en el mes ycuál fue el día con menor cantidad de pedidos rechazados.
















Estructugrama de bloques:
Program tp;
Uses crt;
Type
matriz = array[1..30,1..15] of integer;
     vector= array[1..30] of integer;
VAR
dia, socio, hora, k, i, j, min: integer;
tabla1, tabla2: matriz;
C: char;
Rechazada: vector;

procedure nulmatriz(var m:matriz);
var
i,j:integer;for i:=1 to 30 do
for j:=1 to 15 do
m[i,j]:=0;

procedure nulvector(var v:vector);
var
i:integer;
for i:=1 to 30 do
v[i]:=0;


*Programa principal*
nulmatriz(tabla1);nulmatriz(tabla2);
nulvector(rechazada);
writeln('presione f para cerrar el mes, cualquier otra letra para ingresar solicitud');
readln(C);
while C'f' dowriteln('ingrese a que hora desea jugar (8 a 22)');
readln(hora);
hora:=hora-7;
writeln('ingrese que dia desea');
readln(dia);
writeln('ingrese numero desocio');
readln(socio);
If tabla1[dia,hora]=0 then

writeln('el turno pedido está disponible, dia ',dia,' inicia a
las ',hora+7,'hs...