Pascal/Turbo Pascal - probelma del productor consumidor en semaforo

   
Vista:

probelma del productor consumidor en semaforo

Publicado por xio (3 intervenciones) el 30/07/2013 20:02:05
m pidieron hacer el codigo de l productor consumidor em semaforo y monitor .. en pascall ...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

probelma del productor consumidor en semaforo

Publicado por ramon (2072 intervenciones) el 30/07/2013 22:54:35
Me puedes pasar mas datos del tema para poder entenderlo mejor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

probelma del productor consumidor en semaforo

Publicado por xio (3 intervenciones) el 31/07/2013 05:43:23
m pidieron el algoritmo del productor-consumidor que este implementado con semaforos en pascal fc .. ayudaaaaa ! .. esto es lo q tngo ...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
program ProdConsMon1;
monitor canal;
export escribe,lee;
var n : integer;
leido : boolean;
cdatos,cleido:condition;
 
procedure escribe(m:integer);
begin
if not leido then
delay(cleido);
n:= m;
leido:=false;
resume(cdatos);
end;
procedure lee(var m: integer);
begin
if leido then
delay(cdatos);
m := n ;
leido:=true;
resume(cleido);
end;
 
begin
leido:=true ;
end;
 
process productor ;
var m: integer ;
begin
repeat
	m:=random (10);
	canal.escribe(m) ;
forever
end ;
 
process consumidor ;
var m: integer ;
begin
repeat
	canal.lee(m) ;
	write (m) ;
forever
end;
 
begin
cobegin
productor ;
consumidor ;
coend ;
end.
 
process productor ;
var m: integer ;
begin
repeat
	m:=random (10);
	canal.escribe(m) ;
forever
end ;
 
process consumidor ;
var m: integer ;
begin
repeat
	canal.lee(m) ;
	write (m) ;
forever
end;
 
begin
cobegin
productor ;
consumidor ;
coend ;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar