#! /usr/bin/calc read "biblioteca.calc" ##-- define copyleft() { ##-- printf("Este programa é distribuido sob GPL. \n"); ##-- printf("Se você não souber o que é a GPL, envie um e-mail ao autor \n"); ##-- printf(" tarcisio@member.ams.org \n, ou procure em www.fsg.org\n"); ##-- printf("mas em suma isto quer dizer que você pode usar livremente o sistema\n"); ##-- printf("de programas aqui mencionados, desde que esta copyleftção seja mantida\n"); ##-- printf("em todas as alterações que você fizer do programa e das cópias que \n"); ##-- printf("você dele fizer - é a proteção do direito autoral que não lhe impede\n"); ##-- printf("de usar livremente o conhecimento mas que mantém a memória de quem \n"); ##-- printf("participou de sua produção.\n"); ##-- printf("Este programa foi escrito por Tarcisio Praciano-Pereira \n"); ##-- printf("professor da Universidade Estadual Vale do Acaraú - UeVA \n"); ##-- printf("Departamento de Física/Ueva - Dep de Matemática/www.ua.pt \n"); ##-- printf("http://www.sobralmatematica.org - Sobral - Ceará - Brasil\n"); ##-- } ##-- ##-- ##-- ## crie o arquivo texto informa_este_programa.txt ##-- define informa() { ##-- system("less Determinante.txt");printf("\n"); ##-- } ##-- ##-- ##-- ##-- define apeteco() { ##-- printf("%s","================================================= \n"); ##-- printf(" Dê para continuar \n"); ##-- system("read teste"); ##-- } ##-- ##-- ##-- ## informa(); ##-- ## apeteco(); ##-- ##-- define PrintMat(a,n,m) { ##-- local i=0,j=0; ##-- while(i