Занятие 5. Примеры решения творческих задач

Рассмотрите решение творческих заданий учащихся. Наберите программы на компьютере и просмотрите их действие. Подумайте, как ребятам удалось придумать и выполнить такие работы. Эти программы помогут Вам определиться с выбором своей творческой работы.

Задача № 1. С помощью нетипизированного файла проанализировать файлы с расширением.mp3 в заданном пользователем каталоге и создать текстовый файл, содержащий следующую информацию: название песни, исполнитель, имя файла.

Program SedihGetTag;

{$I-}

Uses

Crt;

Var

f: file;

c: char;

S: string;

i: LongInt;

DirInfo: seachrec;

Txt: text;

Procedure Extract;

Begin

assign(f, DirInfo.name);

reset(f, 1); {размер буфера записи равен 1 байту}

l:= FileSize(f); {переменной l присваиваем размер файла в байтах}

Seek(f, l-125); {ставим указатель, на 125 символов отступив от конца файла}

{вычислил сам, проанализировав файл данного типа}

while not Eof(f) do

Begin

blockread(f, c, 1); {читаем посимвольно}

S:= S + c; {формируем строковую переменную, содержащую нужный тэг}

end;

close(f);

writeln(Txt, copy(S, 1, 30)+'-'+copy(S, 31, 30)+'-'+DirInfo.Name);

{записываем выделенную информацию в файл)}

End;

Begin

ClrScr;

assing(txt,'list.txt');

rewrite(txt);

FindFirst('*.mp3', Arhive, DirInfo);

while DosError=0 do

begin

S:= '';

Extract;

FindNext(DirInfo);

end;

close(Txt);

End.

Задача № 2. С помощью нетипизированного файла проанализировать файлы-архивы (архиватор WinRar) и вывести на экран имена заархивированных файлов.

Program LipovcevMaksim;

Uses

Crt;

Var

i, pos: integer;

f: file;

FileName, Ima: string;

s: char;

Procedure Name(Var s: char); Forward;

Procedure Poisk(Var s: char);

Begin

case Ord(s) of

20: begin

blockread(f, s, 1);

case Ord(s) of

20: Poisk(s);

48..57: begin

blockread(f, f, S, 1);

case Ord(S) of

20: Poisk(S);

1..19: Name(S);

21..32: Name(S);

end;

end;

end;

end;

end;

End;

Procedure (Name(Var S: char);

Var

k: integer;

Begin

k:=0;

for i:= 1 to 5 do

blockread(f, S, 1);

while (S<>'.') and (k<9) do

begin

blockread(f, S, 1);

k:= k+1;

ima:= Ima+S;

if S='\'

then

k:= 0;

end;

if Pos('.', Ima)<>0

then

begin

for i:= 1 to 3 do

begin

blockread(f, S, 1);

Ima:= Ima+S;

end;

writeln(Ima);

end;

Ima:= '';

End;

Begin

ClrScr;

writeln('Введите полное имя архивного файла RAR');

write('->');

readln(FileName);

reset(f, 1);

writeln('Имена заархивированных файлов:');

while not EOF(f) do

begin

blockread(f, S, 1);

Poisk(S);

end;

close(f);

readKey;

End.

Задача № 3. С помощью нетипизированного файла преобразовать файл c расширением.BMP следующим образом:

разделить рисунок на две части по горизонтали, верхнюю часть поместить на место нижней, разделить её на две части по вертикали и поменять их местами.

Примечание. При исследовании файлов с расширением ВМР выяснилось следующее их описание в зависимости от количества употребляемых цветов:

16 цветов - 118 байт, 256 цветов - 1086 байт, 24 бита - 55 байт. Это колисемтво байт влияет на значение переменное Кol в программе.

Program BaranovA;

Uses

Crt;

Const

n=1234; {установка размера буфера}

Kol=118;

Var

F1, F2: file;

Name1, Name2: string;

Buf: Array [1..n] of byte;

AllSize, PicSize, HalfSize: LongInt;

i: integer;

Begin

write('Имя файла >');

readln(Name1);

Name2:= Name1;

if Pos('.', Name2) <> 0

then

begin

Delete(Name2, Pos('.', Name2), Lenth(Name2)-Pos('.', Name2)+1);

Name2:= Name2+'.tmp';

assign(F1, Name1);

reset(F1, 1);

assign(F2, Name2);

rewrite(F2, 1);

AllSize:= FileSize(F1); {размер всего файла}

PicSize:= AllSize-Kol; {размер всего файла без описания}

HalfSize:= PicSize div 2; {половина файла}

blockread(F1, Buf, Kol);

blockwrite(F2, Buf, Kol);

seek(F1, Kol+HalfSize-1);

for i:= 1 to HalfSize div n do

begin

blockread(F1, Buf, n); {считываем и записываем из середины файла}

blockwrite(F2, Buf, n);

End;

blockread(F1, Buf, HalfSize mod n); {переписываем оставшиеся байты из не полностью заполненного буфера}

blockwrite(F2, Buf, HalfSize mod n);

Seek(F1, Kol-1);

blockread(F1, Buf, HalfSize mod n);

blockwrite(F2, Buf, HalfSize mod n);

close(F1);

close(F2);

end;

End.

Задание. Выбрав какую-либо категорию файлов, проанализировать их в своей программе, пользуясь возможностями обработки нетипизированного файла, и решить некоторую поставленную Вами задачу. Протестированную программу и листинг покажите учителю для оценки.

Приготовьте рабочие программы и оцененные листинги для проверки учителем.

Проверьте свои знания по теме, ответив на следующие вопросы:

1. Дайте определение нетипизированному файлу.

2. В чем Вы видите преимущества и недостатки работы с нетипизированными файлами по сравнению с типизированными и текстовыви файлами?

3. Объясните назначение параметров специфических для нетипизированных файлов процедур чтения и записи.

4. Какой вид файлов из рассмотренных выше Вам понравился больше и почему?

5. Объясните назначение процедур Аssign, Сlosе, Eof и их параметров.

6. В чем особенность применения процедуры rewrite и какой дополнительный параметр при работе с нетипизированными файлами она имеет?

7. В чем особенность применения процедуры reset и какой дополнительный параметр при работе с нетипизированными файлами она имеет?

8. Объясните назначение процедур Seek, FileSize, FilePos и их параметров.

9. Объясните назначение процедур rename, Truncate, Еrase и их параметров.

10. Расскажите как Вы работали над творческим заданием.

Не нашли, что искали? Воспользуйтесь поиском: