Por fin entregamos las practicas de programacion concurrente. Pero hemos tenido un ligerillo "percance" a la hora de entregarlas. Hicimos unas pequeñas modificaciones al original. Os pongo las dos versiones, la original, y la entregada. El juego esta en buscar las diferencias o adivinad cual es la version que entregamos:
procedure pedirmenu(i:integer);
begin
writeln('Cliente',i,' pide un menu');
cp:=cp+10;
ch:=ch+1;
resume(patatero);
resume(huevero);
if(menulisto=0) then
delay(cola);
writeln('Cliente',i,' se come el menu. Quedan ',cp,' patatas y ',ch,' huevos.');
menulisto:=menulisto-1;
end;
procedure cocinarhuevo;
begin
if (ch=0) then
begin
writeln('No hay que hacer huevos. Descanso zZzZ');
delay(huevero);
writeln('Huevero despertando.');
end;
------------------------------------------------------------------------------------------------------
procedure pedirmenu(i:integer);
begin
writeln('Wilkommen Klientten ',i,' dimmanden bazoffien');
cp:=cp+10;
ch:=ch+1;
resume(patatero);
resume(huevero);
if(menulisto=0) then
delay(cola);
writeln('Klientten',i,' deglutten bazoffien. Rimainen ',cp,' patatten and ',ch,' skrotten.');
menulisto:=menulisto-1;
end;
procedure cocinarhuevo;
begin
if (ch=0) then
begin
writeln('Achtung no main hueven. Procceden eskratchen skrotten);
delay(huevero);
writeln('Huevero despertando.');
end;
Efectivamente, lo habeis adivinado. Le entregamos por error la segunda parte. Todo por un despiste con los nombres de archivo, la falta de tiempo, la falta de sueño, y muchos otros factores psico-puñeteros. Ya le hemos enviado correo a la profesora notificando el error y disculpandonos del "fallo". Ahora a ver la cara que nos pone el dia de la entrevista.....xDD