programa Gestión Universitaria; usos crt; tipo Especialidad = récord nombre: cadena; puntos: entero; pago: real; Documentos requeridos: cadena; fin; Universidad = expediente identificación: número entero; nombre: cadena; dirección: cadena; descripción: cadena; especialidades: variedad de Especialidades; fin; var universidades: conjunto de universidades; procedimiento SaveDataToFile(nombre de archivo: cadena); var identificador de archivo: archivo de texto; i, j: número entero; comenzar Asignar(fileHandle, nombre de archivo); Reescribir(fileHandle); para i := 0 a Longitud(universidades) - 1 do comenzar con universidades[yo] hago comenzar Writeln(fileHandle, identificación); Writeln(fileHandle, nombre); Writeln(fileHandle, dirección); Writeln(fileHandle, descripción); Writeln(fileHandle, Longitud(especialidades)); para j := 0 a Longitud(especialidades) - 1 do comenzar Writeln(fileHandle, especialidades[j].nombre); Writeln(fileHandle, especialidades[j].puntos); Writeln(fileHandle, especialidades[j].pago);
ENCUENTRA Y UTILIZA EL MEJOR PROMPT
Acerca de Nuevo robot
programa Gestión Universitaria; usos crt; tipo Especialidad = récord nombre: cadena; puntos: entero; pago: real; Documentos requeridos: cadena; fin; Universidad = expediente identificación: número entero; nombre: cadena; dirección: cadena; descripción: cadena; especialidades: variedad de Especialidades; fin; var universidades: conjunto de un...Leer más