Gestão e Programação de Sistemas Informáticos

Aqui tens o mastermind em pascal feito pelo o VA mas o que esta aqui é so um demo nao tem o mastermind complento por isso faz o download da versão complenta nesse link http://www.baixa.la/arquivo/7770234

-----------------------------------------------------------------------------


1:begin
repeat
randomize;

for n:=1 to 4 do
PC[n]:=random(4)+1;

writeln('O Numero que o computador escolheu é:');
for n:=1 to 4 do
write(PC[n]);
writeln;
writeln;
writeln('{--------SINGLE PLAYER MODE----------------}');
writeln;
writeln('Para ver as Instruções vai ao menu do jogo e escolhe a opção 2');
writeln;
tentativa:=0;
repeat
tentativa:=tentativa+1;
for p:=1 to 4 do
begin
repeat
write('escreva o ',p,'º numeros:');
readln(ME[p]);
until ME [p] in [1..4]
end;
certos:=0;

for n:=1 to 4 do
begin
va:=0;
for p:=1 to 4 do
begin
if PC[n]=ME[p] then
if n=p then
begin
faz o download da versão complenta nesse link http://www.baixa.la/arquivo/7770234

Ola eu sou o VA e esse artigo é para ajudar a compreender melhor o computador, neste tutorial vou vos ensinar a mundar o sistema de um disco externo.

Um disco externo vem com o formato de NTFS(raramente vem com outros formatos) mas se compraste para usar no teu DVD ou na PS3 esses aparelhos nao vao recolhecer porque tem que tar em formato FAT32 e esse tutorial vai voz ensinar como faze-lo.

1)faz o download desse programa primeiro (Muito Bom)

http://www.baixaki.com.br/download/easeus-partition-master-home-edition.htm

2)faz o download do tutorial para ver como se faz (Tutorial feito por VA)

http://www.mediafire.com/?zdyyudnommt

Para mais Tutoriais comentem.