Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
sdiogos

ME AJUDEM PELO AMOR DE DEUS de PASCAL PRA C..

Recommended Posts

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

Eu 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.:(

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×