End else. procedure stat_output

Begin

writeln('Файла еще нет');

test_file(f);

end;

end;

procedure stat_output;

var j:integer;

Begin

for j:=1 to x-1 do

if stt[j].i<>0 then

writeln('Количество слов=',stt[j].st,

' равно=',stt[j].i);

end;

var k,l:byte;

ch:char;

tf:text;

Begin

{Текст основной программы, обеспечивающий решение сформулированной задачи}

clrscr;

k:=50;

l:=18;

Repeat

gotoxy(k,l);

writeln('Выберите действие');

gotoxy(k,l+1);

writeln('1. Создание файла ключевых слов');

gotoxy(k,l+2);

writeln('2. Ввод текстового файла');

gotoxy(k,l+3);

writeln('3. Подсчет статистики');

gotoxy(k,l+4);

writeln('4. Вывод результатов');

gotoxy(k,l+5);

writeln('5. Конец работы');

gotoxy(1,1);

ch:=readkey;

Case ch of

'1': begin file_key; clrscr;end;

'2': begin file_create(tf);clrscr;end;

'3': begin

key_load;

key_word_stat;

end;

'4': stat_output;

end;

until ch='5';

End.

Динамические структуры данных. Списки.

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