bonjour
Répondre à la discussion
Affichage des résultats 1 à 4 sur 4

bonjour



  1. #1
    invitef9c7c1ad

    bonjour


    ------

    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

    -----

  2. #2
    invitef9c7c1ad

    Re : bonjour

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

  3. #3
    invitef9c7c1ad

    Aidez moi svpppppppp

    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.

  4. #4
    invite2d7144a7

    Re : bonjour

    Bonjour,
    Citation Envoyé par missglamchic Voir le message
    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.

  5. A voir en vidéo sur Futura