norival_tec

não vi erro na sua bat, mas você não colocou a /y que substitui todos os arquivos sem pedir confirmação, faz o seguinte coloca um cmd no final e executa da sua estação de trabalho, pois ai você vera o erro.

Amigo acho que seu programa esta com erro no codigo de maior e menor coloca assim: maior:= quantkwhMensal; menor:= quantkwhMensal; if(quantkwhmensal > maior)then begin maior:= quantkwhMensal; end; if(quantkwhmensal < menor)then begin menor:= quantkwhMensal; end; outra é que você esta usando a mesma variavel para tudo, a variavel quantkwhMensal deve ser substituida por outra. if(codtc = '2')then begin quantkwhMensal:= precokwh * quantkwhDia; comtotal:= comtotal + quantkwhmensal; write('Consumidor', codtc,' pagará no total:R$ ', quantkwhmensal); end; if(codtc = '3')then begin quantkwhMensal:= precokwh * quantkwhDia; indtotal:= indtotal + quantkwhdia; write('Consumidor', codtc,' pagará no total:R$ ', quantkwhmensal); end;

Tenho que entregar uma questão em pascal na faculdade. Mas estou com duvida como resolver a questão é essa: Suponha as declarações: Type ArqChars = File of char; Var arq, outro: ArqChars; Begin randomize; cria(arq, 100); mostra(arq); cria(outro, 3); mostra(outro); writeln(output, quantasVezesOcorre(outro, arq), ' vezes'); readln(input); End. Complete o programa, elaborando os procedimentos Cria, Mostra e QuantasVezesOcorre, conforme especificado a seguir: (a) Cria(alfa, qtd) - constrói arquivo alfa, cujo nome deve ser escolhido pelo usuário, e com qtd caracteres, cujos valores sejam caracteres 'A', 'C', 'T' ou 'G', gerados aleatoriamente. (B) Mostra(alfa) - escreve no vídeo todo o conteúdo do arquivo alfa. © QuantasVezesOcorre(beta, alfa) - função que retorna o número de ocorrências do arquivo beta no arquivo alfa, isto é, quantas vezes a mesma sequência de caracteres de beta ocorre em alfa. Sei que o procedimento Criar recebera o valor da variavel, arq e 100, mas não entendi o que realmente esta pedindo na letra "A". desde já obrigado.