bonjour

[invitef9c7c1ad]

bonjour je vous pris de m'aidez svp voici l’énoncé de mon tp et ce que j'ai pu faire
diagramme de transition
soit un vecteur p de 16 elements contenant le processus de l’état run si le bit 0 est a 0 alors le processeur est libre
si le bit 5 est a 0 alors c'est la fin du quantum
si le bit 6 est a 0 alors le processeur a besoin d’informations supplémentaire pour pouvoir continuer son execution
soit une matrice R de 16 colonnes et la ligne representant les processus a l'etat ready (1 ligne par processus et tous les element sont a 1)
a chaque fois qu'un processus de r passe a p nous avaons un pointeur vers le processus suivant de r vers p et nous avons un pointeur vers le processus suivant de Rvers P et nous avons un autre pointeur de R qui indique l'entré libre dans la quel on met le processus qui ete a p
(ne pas oublier de remettre le bit 5 a 1
soit une matrice w de 16 ligne representant le processus a letat wait
(1 ligne par processus )
(ne pas oublier de remettre le bit 6 a 1 apres l'avoir ramener de P a W )
la prochaine entrée libre dans W
ecrire le programe qui teste bit 0 ensuite bit 5 ensuite bit 6 et fin
P est un tableau de 16 elemenent
-----

[invitef9c7c1ad]

quelqun peu me dir comment je pe copié ce ke j'ai fait en pascal sur ce forum svp???

[invitef9c7c1ad]

program tp_se;
uses crt;
type binaire=0..1;
ready=array[0..19,0..15]of binaire;
run=array[0..15]of binaire;
wait=array[0..15,0..15]of binaire;
var i,j,l,t,l1,l2,l3:integer; rr:char; r:ready; p:run; w:wait;
{***************************** ****************************** *****************}
procedure initialisation(var r:ready; var p:run; var w:wait);
begin
for i:=0 to 14 do
for j:=0 to 15 do r[i,j]:=1;
for i:=15 to 19 do
for j:=0 to 15 do r[i,j]:=0;
for i:=0 to 15 do
for j:=0 to 15 do w[i,j]:=0;
p[0]:=0;
for j:=1 to 15 do p[j]:=1;
end;
{***************************** ****************************** *****************}
procedure affichage(r:ready; p:run; w:wait);
begin
t:=2;
for i:=0 to 19 do begin l:=0;
for j:=0 to 15 do begin
l:=l+1; gotoxy(l,t+1); write(r[i,j]); end;
gotoxy(l+2,t+1); t:=t+1; end;
for i:=0 to 15 do
begin gotoxy(l+15,10); textcolor(15); write(p[i]); l:=l+1; end;
for i:=0 to 15 do begin l:=0;
for j:=0 to 15 do begin
l:=l+1; gotoxy(l+59,t-19); textcolor(15); write(w[i,j]); end;
gotoxy(l+61,t-19); t:=t+1; end;
end;
{***************************** ****************************** *****************}
procedure transition(var r:ready; var p:run; var w:wait);
begin
if p[0]=0 then
begin for j:=0 to 15 do
begin p[j]:=r[l1,j]; r[l1,j]:=0; end; l1:=l1+1; end
else if p[5]=0 then
begin for j:=0 to 15 do r[l2,j]:=p[j]; l2:=l2+1; end
else if p[6]=0 then
begin for j:= 0 to 15 do w[l3,j]:=p[j]; l3:=l3+1 end;
end;
{***************************** ****************************** *****************}
begin
clrscr; textcolor(15); l1:=0; l2:=15; l3:=0;
initialisation(r,p,w);
affichage(r,p,w);
repeat
readkey; transition(r,p,w); readkey;
affichage(r,p,w); p[0]:=1; affichage(r,p,w);
p[5]:=0; affichage(r,p,w);
transition(r,p,w); readkey;
affichage(r,p,w);
p[5]:=1; p[0]:=1; affichage(r,p,w); p[0]:=1;

p[6]:=0; affichage(r,p,w);
transition(r,p,w); readkey;
affichage(r,p,w); p[6]:=1; p[0]:=0; affichage(r,p,w);
gotoxy(1,25); write('continuer o/n:');
gotoxy(16,25); read(rr);
until rr='n'; readln;
end.

[whoami]

Bonjour,

quelqun peu me dir comment je pe copié ce ke j'ai fait en pascal sur ce forum svp???

Désolé, mais mon décodeur est en panne.

[A voir en vidéo sur Futura]