1.Все файлы сохраняются в формате wav. 2. Для того чтобы вставить в документ Microsoft Word звуковой файл, необходимо иметь программу, позволяющую работать со звуком, например «Звукозапись» — стандартное приложение Microsoft Windows, позволяющее записывать, редактировать и воспроизводить звуковые файлы. Кроме того, на компьютере должна быть установлена звуковая плата. Чтобы просмотреть дополнительные сведения о программе «Звукозапись» , нажмите кнопку Пуск, выделите пункты Программы, Стандартные, Развлечения, выберите команду Звукозапись и прочтите файл справки. 1.В документе щелкните место вставки звукового файла 2.Выполните одно из следующих действий: -Вставка существующего звукового файла 1.В меню Вставка выберите команду Объект, а затем откройте вкладку Создание из файла. 2.Нажмите кнопку Обзор, а затем найдите нужный звуковой файл. 3.Чтобы вставить звуковой файл в виде связанного объекта (Связанный объект. Объект, созданный в файле-источнике и вставленный в файл назначения с поддержанием связи между этими двумя файлами. Связанный объект в файле назначения может быть обновлен при обновлении файла-источника.) , установите флажок Связать с файлом. 4.Чтобы отобразить файл в виде значка, установите флажок В виде значка. Для вставки нового звукового файла необходимо наличие устройства для ввода звука, например микрофона. 1. В меню Вставка выберите команду Объект, а затем откройте вкладку Создание. 2. В списке Тип объекта выберите тип, соответствующий используемому приложению для работы со звуком. Например, если используется программа Звукозапись, выберите тип «Звукозапись» . 3. Запишите нужный звук в соответствующей программе.
{1 шаг - Создать типизированный файл!} Program Ex; uses crt; Const Name='Baze'; type StFio = string[30]; Adress=string[50]; RecBook = record Fio : StFio;{Ф.И.О} Adress: Adress;{Адрес} num_tel:string[20]{Телефон}; end;
mas= array[1..30] of RecBook; var BookFile : file of RecBook; Work : RecBook; Vid : Char; End_Menu : boolean; A: mas;
procedure sort_buble(var a:mas; count:integer); var c:mas; last,current:integer; begin for last := count downto 2 do for current := 1 to last-1 do begin if a[current].fio > a[current+1].fio then begin c[1]:=a[current]; a[current]:=a[current+1]; a[current+1]:=c[1]; end; end; end;
Procedure OutputRec_z; begin with Work do begin Gotoxy(2,2); Write(' ФИО '); gotoxy(19,2); Write(' Tel '); gotoxy(35,2); Write(' Адрес '); gotoxy(2,4); Write(fio); gotoxy(19,4); Write(num_tel); gotoxy(35,4); writeln(adress); end; readkey; clrscr; end;
Procedure Find; var Findst:string; End_Menu2:boolean; begin Write(' Введите строку поиска(FIO) '); readln(Findst); TextColor(15); Clrscr; Assign(BookFile,Name); {$I-} Reset(BookFile); {$I+} if IOresult = 0 then begin Seek(BookFile, 0); while (not Eof(BookFile)) do begin Clrscr; Read(BookFile,Work); if Pos(FindSt,Work.fio)<>0 then OutputRec_z; end; writeln('Больше записей удовлетворяющих критерию поиска не обнаружено'); readkey; end end;
var f:text; Procedure Find_b; var i,j:integer; begin TextColor(15); Clrscr; Assign(BookFile,Name); {$I-} Reset(BookFile); {$I+} if IOresult = 0 then begin i:=0;{кол-во записей тел которых начинается с 41} Seek(BookFile, 0); while (not Eof(BookFile)) do begin Read(BookFile,Work); if (Pos('41',Work.num_tel)=1) then begin i:=i+1; a[i]:=work; end; end; sort_buble(a, i); assign(f,'res.txt'); rewrite(f); for j:=1 to i do writeln(f,a[j].fio,' ', a[i].num_tel:7); close(f); end; end;
{} Procedure AddRec; begin Clrscr; Write(' номер добавляемой записи '); TextColor(15); Write(FilePos(BookFile)+1); with Work do begin writeln; Write(' ФИО '); Readln(fio); Write(' Телефон '); Readln(num_tel); Write(' Адрес '); Readln(adress); Write(BookFile,Work); end; end; {} Procedure Create_Book_Phone; var Ind, Count : integer; begin Clrscr; Textcolor(15); Assign(BookFile,Name); Rewrite(BookFile); Write(' Создаю новый файл '); Writeln(Name); Write(' Введите количество записей в файле '); Readln(Count); for Ind := 1 to Count do AddRec; Writeln; Writeln(' Создание завершено'); Writeln; Writeln(' Количество записей в файле '); Writeln(Filesize(BookFile)); Close(BookFile); end; {} Procedure OutputRec; begin Clrscr; Read(BookFile,Work); with Work do begin Gotoxy(10,2); Write('ФИО '); gotoxy(34,2); Write('Телефон '); gotoxy(50,2); Write('Адрес '); gotoxy(2,4); Write(fio); gotoxy(35,4); Write(num_tel); gotoxy(50,4); writeln(adress); readkey; clrscr; end; end; {} Procedure OutputAllRec; begin Clrscr; Assign(BookFile,Name); {$I-} Reset(BookFile);{$I+} if IOresult = 0 then begin Seek(BookFile, 0); while (not Eof(BookFile)) do OutputRec; end end;
{} BEGIN ClrScr; Textbackground(0); Vid := ' '; End_Menu := False; repeat Textcolor(15); Write(' Текущий Файл:',chr(13),Name); Writeln; Writeln; Writeln(''); Writeln; Writeln('Меню:'); Writeln(' 2 Cоздать новый файл'); Writeln(' 3 Просмотреть все '); Writeln(' 4 Найти номер телефона сотрудника по его фамилии'); Writeln(' 5 Переписать в алф. порядке в текстовый файл информацию о сотрудниках первые цифры телефона 41'); Writeln(' 8 Bыход'); Readln(Vid); case Vid of '2' : Create_Book_Phone; '3' : OutputAllRec; '4' : Find; '5' : Find_b; '8' : End_Menu := true; end; ClrScr; until End_Menu; END.
Следует выбрать диаграмму