Algorithme

Bonjour,


je dois faire l algorithme suivant : j ai un parking je dois gérer les voitures j'ai fais un tableau a deux dimension qui contiens les variable suivant : numéro des place,place(vide/occupe),heure d'entrer,heure de sortie voila ce que j ai fais :
Variables T : tableau [1..100,1..5]
i,j: chaine de caractere
Y,H,M,K,L,N,R,O,V,G,P : numerique

DEBUT

écrire("entrez le ,matricule")
lire(M)
Pour i<---0 a 100 faire
Si T[i,1]=0
ecrire("place vide qui a comme numero",[i,0])
T[i,1]=1
T[i,2]=M
finsi

ecrire("entrez l'heure de l'entree de la voiture en seconde')
lire(T[i,3])
Y<---T[i,3]/86400
T[i,3]<---T[i,3]-(J*86400)
H<---T[i,3]/3600
T[i,3]<---T[i,3]-(H*3600)
M<---T[i,3]/60
T[i,3]<---T[i,3]-(M*60)
ecrire("l'heure de l'entree de la voiture", T[i,2] ,"est",Y,"jour",H,"heure",M,"minute",T[i,3],"seconde")

ecrire("entrez l'heure de l'entree de la voiture en seconde')
lire(T[i,4])
k<---T[i,4]/86400
T[i,4]<---T[i,4]-(K*86400)
L<---T[i,4]/3600
T[i,4]<---T[i,4]-(L*3600)
N<---T[i,4]/60
T[i,4]<---T[i,4]-(N*60)
ecrire("l'heure de la sortie de la voiture",T[i,2], "est",K,"jour",L,"heure",N,"minute",T[i,3],"seconde")

R<--- T[i,3]-T[i,4]
O<---R/86400
R<---R-(O*86400)
G<---R/3600
R<---R-(G*3600)
V<---R/60
R<---R-(V*60
ecrire("la duree que la voiture",T[i,2], "est reste gare est",O,"jour",G,"heure",V,"minute",R,"seconde")

P<---R*0.0013
Si R>43200
P<--- R*0.001
ecrire("le prix a payer est ",P)
finsi
Finpour

FIN