Atividade 04

Resolução da questão: "Código para registrar a produção diária de um dado artesão"

leia(artesao);
nomeArq <- artesao+'.dat';
associar(arqLogico,nomeArq);
abrir(arqLogico);
posicione(arqLogico,tamArquivo(arqLógico));
leia(regArt.dia);
leia(regArt.hora);
leia(regArt.totalPecas);
leia(regArt.obs);
escreva(arqLógico,regArt);
fechar(arqLógico);