Замечание: данные в файле должны быть записаны по одному числу в строке.
const m=100; { максимальное количество чисел в файле } var f:Text; i,j,n,k:integer; a:array[1..m] of integer; begin { читаем данные из файла в массив } Assign(f,'SuperFile.txt'); Reset(f); i:=0; while not Eof(f) do begin Inc(i); Readln(f,a[i]) end; Close(f); n:=i; { сортируем массив по возрастанию методом пузырька } for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end; { заполняем файл из массива } Rewrite(f); for i:=1 to n do Writeln(f,a[i],' '); Close(f) end.
1.Все файлы сохраняются в формате wav. 2. Для того чтобы вставить в документ Microsoft Word звуковой файл, необходимо иметь программу, позволяющую работать со звуком, например «Звукозапись» — стандартное приложение Microsoft Windows, позволяющее записывать, редактировать и воспроизводить звуковые файлы. Кроме того, на компьютере должна быть установлена звуковая плата. Чтобы просмотреть дополнительные сведения о программе «Звукозапись» , нажмите кнопку Пуск, выделите пункты Программы, Стандартные, Развлечения, выберите команду Звукозапись и прочтите файл справки. 1.В документе щелкните место вставки звукового файла 2.Выполните одно из следующих действий: -Вставка существующего звукового файла 1.В меню Вставка выберите команду Объект, а затем откройте вкладку Создание из файла. 2.Нажмите кнопку Обзор, а затем найдите нужный звуковой файл. 3.Чтобы вставить звуковой файл в виде связанного объекта (Связанный объект. Объект, созданный в файле-источнике и вставленный в файл назначения с поддержанием связи между этими двумя файлами. Связанный объект в файле назначения может быть обновлен при обновлении файла-источника.) , установите флажок Связать с файлом. 4.Чтобы отобразить файл в виде значка, установите флажок В виде значка. Для вставки нового звукового файла необходимо наличие устройства для ввода звука, например микрофона. 1. В меню Вставка выберите команду Объект, а затем откройте вкладку Создание. 2. В списке Тип объекта выберите тип, соответствующий используемому приложению для работы со звуком. Например, если используется программа Звукозапись, выберите тип «Звукозапись» . 3. Запишите нужный звук в соответствующей программе.
const
m=100; { максимальное количество чисел в файле }
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
{ читаем данные из файла в массив }
Assign(f,'SuperFile.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
{ сортируем массив по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
{ заполняем файл из массива }
Rewrite(f);
for i:=1 to n do Writeln(f,a[i],' ');
Close(f)
end.