программа UniversityManagement; использует ЭЛТ; тип Специальность = запись имя: строка; баллы: целое число; оплата: реальная; требуемые документы: строка; конец; Университет = запись идентификатор: целое число; имя: строка; адрес: строка; описание: строка; специальности: массив специальностей; конец; вар университеты: массив университетов; процедура SaveDataToFile(имя файла: строка); вар FileHandle: Текстовый файл; я, j: целое число; начать Назначить (fileHandle, имя файла); Перезаписать (обработчик файла); для i := 0 до длины (университеты) - 1 do начать с университетами[я] делаю начать Writeln (fileHandle, id); Writeln(fileHandle, имя); Writeln(fileHandle, адрес); Writeln(fileHandle, описание); Writeln(fileHandle, Длина(специальности)); `для j := 0 до длины (специальности) - 1 do начать Writeln(fileHandle, специальности[j].name); Writeln(fileHandle, специальности[j].points); Writeln(fileHandle, специальности[j].оплата);`
НАЙДИ И ИСПОЛЬЗОВАТЬ ЛУЧШУЮ ПОДСКАЗКУ
О Новый бот
программа UniversityManagement; использует ЭЛТ; тип Специальность = запись имя: строка; баллы: целое число; оплата: реальная; требуемые документы: строка; конец; Университет = запись идентификатор: целое число; имя: строка; адрес: строка; описание: строка; специальности: массив специальностей; конец; вар университеты: массив университетов; ...Читать больше