Расположение слов по алфавиту

Ввести предложение. Упорядочить его слова по алфавиту и вывести их в столбик.

Текст программы, реализующей эту задачу, приведен ниже.

Program Sl;

Const m = 50;

Var Predl, Rsl : string;

Slovo : array [1..m] of string;

n,k,i,j,kol : integer;

BEGIN

WriteLn('Введите предложение');

ReadLn(Predl);

n := Length(Predl);

k := 1;

Slovo[k] := '';

i := 1;

While i<=n do

If predl[i] <> ' ' then {символ – не пробел}

begin

Slovo[k] := slovo[k] + predl[i];

i := i + 1;

end

Еlse {символ – пробел}

begin

k := k + 1;

slovo[k] := '';

While (predl[i]=' ') and (i <= n) do

i := i + 1;

end;

For j := 1 to k-1 do

For i := 1 to k-j do

If slovo[i]> slovo[i+1] then

Begin

RSl:= slovo[i];

slovo[i]:= slovo[i+1];

slovo[i+1]:=Rsl;

End;

WriteLn('Упорядоченные слова из предложения');

For i := 1 to k do

WriteLn(slovo[i]);

End.

Файлы

Набор данных (физический файл) – это совокупность данных, имеющих общее имя и назначение, и существующая на некотором носителе.

В Turbo Pascal наборам данных соответствуют файлы.

Файл – это логическое понятие, связанное с физически существующим набором данных. Связь обеспечивается операционной системой при выполнении программы пользователя.

Любой файл и соответствующий ему набор данных представляют собой линейную последовательность элементов. Число элементов не устанавливается описанием файлового типа. Каждый элемент файла имеет номер. Первый элемент файла имеет номер 0.

В Паскале определены три типа файлов:

1) текстовые; состоят из строк символов. Конец записи определяется концом строки. Чтение и запись в файл осуществляется посимвольно.

2) типизированные могут состоять из записей любого типа.

3) нетипизированные файлы фактически представляют собой каналы ввода/вывода нижнего уровня, используемые в основном для прямого доступа к любому файлу на диске, независимо от его типа и структуры.

Обработка файла может производиться двумя способами:

1) с использованием последовательного доступа;

2) с использованием прямого (произвольного) доступа.

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

Когда программа завершает обработку файла, его нужно закрыть. Только после этого связанный с ним внешний набор данных будет обновлен. Затем файловая переменная может быть связана с другим набором данных, или обновленный набор данных может быть связан с другой файловой переменной.

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

Текстовые файлы определяются в разделе Var следующим образом:

Var Имя_текстового_файла : Text;

Var Input, Output : Text;

Для чтения и записи в текстовые файлы используются стандартные операторы Read (Readln) и Write (Writeln). Общий вид операторов ввода-вывода для текстовых файлов следующий:

Readln(имя файла, запись);

Writeln(имя файла, запись);

где запись – имя данного, которое читается (записывается) из файла. Это может быть символ, строка или число.

Работа с существующим файлом обычно включает в себя операции открытия его для чтения, и затем считывания из него записей, пока не появится признак "Конец файла" – Eof(Файл). Поэтому соответствующие программы содержат циклы вида

While Not Eof (Файл) do readln(Файл, Запись);

Процедуры и функции для работы с файлами приведены в таблице 6.1.

Таблица 6.1 – Процедуры и функции для работы с файлами

Продолжение таблицы 6.1

Продолжение таблицы 6.1

Продолжение таблицы 6.1