programa Gestão Universitária; usa crt; tipo Especialidade = recorde nome: sequência; pontos: inteiro; pagamento: real; Documentos obrigatórios: string; fim; Universidade = registro id: inteiro; nome: sequência; endereço: string; descrição: sequência; especialidades: variedade de especialidades; fim; var universidades: matriz de Universidade; procedimento SaveDataToFile(nome do arquivo: string); var fileHandle: ArquivoTexto; eu, j: inteiro; começar Atribuir(fileHandle, nome do arquivo); Reescrever(fileHandle); for i := 0 to Length(universidades) - 1 do começar com universidades[eu] faço começar Writeln(fileHandle,id); Writeln(fileHandle, nome); Writeln(fileHandle, endereço); Writeln(fileHandle, descrição); Writeln(fileHandle, Length(especialidades)); para j := 0 to Length(especialidades) - 1 do começar Writeln(fileHandle, especialidades[j].nome); Writeln(fileHandle, especialidades[j].pontos); Writeln(fileHandle, especialidades[j].pagamento);
ENCONTRE E USE O MELHOR PROMPT
Sobre Novo bot
programa Gestão Universitária; usa crt; tipo Especialidade = recorde nome: sequência; pontos: inteiro; pagamento: real; Documentos obrigatórios: string; fim; Universidade = registro id: inteiro; nome: sequência; endereço: string; descrição: sequência; especialidades: variedade de especialidades; fim; var universidades: matriz de Universidade...Leia mais