Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 9.2 з дисципліни “Основи програмування та алгоритмічні мови” Тема: ТЕКСТОВІ ФАЙЛИ Варіант 28 Постановка задачі Створити текстовий файл, вводячи рядки з клавіатури. Сформувати новий файл, що складається зі слів вхідного файлу, які зустрічаються у ньому більше N раз. Розмістити ці слова в новому файлі в порядку зростання їхньої довжини. Вивести вміст вхідного і створеного файлів. Аналітичні викладки Створити текстовий файл, зчитати слова з нього в масив, відсортувати масив за довжиною і алфавітом, записати слова, що повторюються більше N раз у новий файл. Блок-схема алгоритму розв’язання задачі

Текст програми program lab_9_2; uses crt; const max = 100; type str = string[15]; mas = array[1..max] of str; var m,r:mas; {Масиви даних} _N, {параметр N} n,v:word; {лічильники слів} a,b:string; k:char; {Створення} procedure create(const a:string); var st:string; s1, s2:char; f : text; begin Assign (f, a); Rewrite (f); Writeln ('input text (right arrow to end): '); REPEAT s1 := readkey; s2 := readkey; if (s1 = #0) and (s2 = #77) then break; write (s1, s2); ReadLn (st); st := s1 + s2 + st; Writeln (f, st); UNTIL False; Close (f); end; procedure blank(var s:string); begin while (s[1] = ' ') do Delete (s, 1, 1); while Pos (' ', s) <> 0 do Delete (s, Pos (' ', s), 1); if s[Length (s)] <> ' ' then s := s + ' '; end; {Формування масиву} procedure form(var m:mas; st:string; var n:word); begin while Pos (' ', st) <> 0 do begin n := n + 1; m[n] := Copy (st, 1, Pos (' ', st) - 1); Delete (st, 1, Pos (' ', st)); end; end; {Зчитування файлу} procedure readf(const a:string; var m:mas; var n:word); var f:text; st:string; begin Assign (f, a); reset (f); n := 1; while not Eof(f) do begin readln(f,st); blank(st); form(m, st, n); end; close (f); end; {Запис файлу} procedure writef(const a:string; const m:mas; n:word); var i:word; f:text; begin Assign (f, a); rewrite (f); for i := 1 to n do writeln (f, m[i], ' '); close(f); end; {Виведення файлу} procedure outf(const a:string); var st:string; f:text; begin Assign(f, a); reset(f); writeln ('This is ',a); while not Eof(f) do begin readln(f, st); writeln(st); end; close(f); end; procedure swap (var a,b:str); var k:string; begin k:=a; a:=b; b:=k; end; {Сортування масиву} procedure sort (var m:mas; i:word); var k,j,l:word; begin For k:=1 to i-1 do for j := 1 to i-k do if (length(m[j]) > length(m[j+1])) or ((length(m[j]) = length(m[j+1])) and (m[j] > m[j+1])) then swap(m[j],m[j+1]); end; {Створення масиву слів, що задовольняють умові} procedure filter (const m:mas; n:word; var r:mas; var v:word); var i, k:word; begin i := 1; k := 1; v := 1; for i := 1 to n do if m[i+1] = m[i] then k := k + 1 else if k >= _N then begin r[v] := m[i]; v := v + 1; k := 1; end; v := v - 1; end; begin TextColor(0); TextBackGround(7); clrscr; a := '9_2in.txt'; b := '9_2out.txt'; create(a); outf(a); Write ('Vvedite N: '); Readln(_N); readf(a, m, n); sort(m, n); filter(m,n,r,v); writef(b, r, v); outf(b); readkey; end. Результати виконання програми / Висновок Під час виконання лабораторної роботи я вивчив особливості створення і обробки текстових файлів. Програма працює правильно: записує в файл ті слова, що зустрічаються в даному файлі більше N раз.