Pelo Amor D Deus .me Ajudemm.. De Pascal Para C..

[sdiogos]

Gente esse trabalhgo é pra entregar hj QUINTA... mas eu nao consigo traduzir essa ***** pra C

Eu só sei C pascal nao sei nd.. AJUDEM-ME PORRR FAVORRR.. senao vou rodarrrrrrrrrrrr.... AGRADECOO DE JOELHOSS auhuah .. PLISSSSSS

PRIMEIRO ALGORITMO...

PROGRAM Algoritmo_1;

VAR Vez : char;

PROCEDURE Processo_A;

begin

REPEAT

WHILE (Vez= 'b') DO (*Nao faz Nada*);

Regiao_Critica_A;

Vez :='B';

Processamento_A;

UNTIL false;

end;

PROCEDURE Processo_b;

BEGIN

REPEAT

WHILE (Vez= 'A') DO (*Nao faz Nada*);

Regiao_Critica_B;

Vez :='A';

Processamento_B;

UNTIL false;

end;

BEGIN

Vez :='A';

PARBEGIN

Processo_A;

Processo_B;

PAREND;

END.

_____________________________________________________________

SEGUNDO ALGORITMO....

PROGRAM Algoritmo_2;

VAR CA, CB : BOOLEAN;

PROCEDURE Processo_A;

BEGIN

REPEAT

WHILE (CB) DO(*NAO FAZ NADA*);

CA :=true;

Regiao_Critica_A;

CA:=false;

Processamento_A;

UNTIL false;

END;

PROCEDURE Processo_B;

BEGIN

REPEAT

WHILE (CA) DO(*NAO FAZ NADA*);

CB :=true;

Regiao_Critica_B;

CB:=false;

Processamento_B;

UNTIL false;

END;

BEGIN

CA := false;

CB := false;

PARBEGIN

Processo_A;

Processo_B;

PAREND;

END.

________________________________________________________

PROGRAM Algoritmo_3;

VAR CA, CB : BOOLEAN;

PROCEDURE Processo_A;

BEGIN

REPEAT

CA:= true;

WHILE(CB) DO(* NAO FAZ NADA *);

Regiao_Critica_A;

CA:= false;

Processamento_A;

UNTIL false;

END;

PROCEDURE Processo_B;

BEGIN

REPEAT

CB:= true;

WHILE(CA) DO(* NAO FAZ NADA *);

Regiao_Critica_B;

CB:= false;

Processamento_B;

UNTIL false;

END;

_______________________________________________________

PROGRAM Algoritmo_4;

VAR CA, CB : BOOLEAN;

PROCEDURE Processo_A;

BEGIN

REPEAT

CA:= true;

WHILE(CB) DO

BEGIN

CA:=false;

{pequeno intervalo de tempo aleatorio}

CA:=false;

END;

Regiao_Critica_A;

CA := false;

UNTIL false;

END;

PROCEDURE Processo_B;

BEGIN

REPEAT

CB:= true;

WHILE(CA) DO

BEGIN

CB:=false;

{pequeno intervalo de tempo aleatorio}

CB:=false;

END;

Regiao_Critica_B;

CB := false;

UNTIL false;

END;

BEGIN

CA := false;

CB := false;

PARBEGIN

Processo_A;

Processo_B;

PAREND;

END.

BOM GALERA é ISSO...POR FAVORRR PASSSEM ISSO PRA C porque SENAO ESTOU MORTOOOOOOOOO..valeu GENTEEEE.

[Lucas_SeniorMG]

cara

nao sei pascal

me passa os exercicios....

[sdiogos]

então Veio O Professor Me Disse Pra Mim Passar Para C... Eu também Nao Sei O Enunciado... O Professor é Um Lazarento ...

Mas valeu Mano.. abraço