Работа с текстом в паскале

I. Основные сведения о символьных величинах

С помощью компьютера можно решать весьма разнообразные задачи обработки текстов: от составления платежных ведомостей до автоматической верстки газет. Для того, чтобы компьютер мог обрабатывать тексты, он должна уметь оперировать не только с числами, но и со словами.

Познакомимся с основными приемами обработки текста на компьютере.

Будем полагать, что текст- это произвольная последовательность символов некоторого алфавита. Алфавитом может служить любое множество символов, например (0, 1,2, . ), (А, Б, В. ), (А, В, С. ).

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

Строка символов может состоять из одного или нескольких символов, а также не содержать ни одного символа (пустая строка, или строка нулевой длины). Максимальная длина текстовой строки 255 символов.

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

В Turbo Pascal 7.0 для работы с символами используются два типа переменных:

• символьный тип данных;
• строковый тип данных.

1. Символьный тип данных (Char).

Описание: идентификатор char, ( var x: char).

Диапазон значений: значением переменной этого типа может быть любой символ – это буквы, цифры, знаки препинания и специальные символы. Каждому символу алфавита соответствует индивидуальный числовой код от 0 до 255.

В Turbo Pascal 7.0 значения для переменных типа char задаются в апострофах: sh := ‘*’; а := ‘3’; summa :=’G’.

2. Строковый тип данных (string).

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

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

var s1: string[30]; s2: string.

Число 30 означает максимально возможное количество символов строки s1.

II. Стандартные функции для работы с символьными величинами

1. Операция сложения символьных величин.

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

Описываем строковые переменные.

var s1, s2, s3: string;

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

Строка s3 имеет значение ‘Тише воды, ниже травы’.

2. Длина строки

Под длиной строки понимается количество введенных символов, но она не может превышать максимально возможной длины (в описательной части). Это значение можно определить при помощи функции, результат которой целое число, равное количеству символов.

В результате значения целых переменных будут равны: kl=5, k2=21.

3. Копирование

Функция copy(str,n,m) в Turbo Pascal 7.0 – копируют т символов строки str, начиная с n-го символа, при этом исходная строка не меняется. Можно результат этой функции присваивать другой строке или сразу выводить его на экран.

Значения переменной s1=’воз’. А на экране будут выведены следующие строки: воз и 34.

4. Удаление

В Turbo Pascal 7.0 для этого используется процедура Delete(str, n,m), которая вырезает из строки str m символов, начиная с n-го. таким образом сама строка изменяется.

Дан фрагмент программы:

s:=’123456′;
delete(s, 3, 2);
writeln(s);

После выполнения этих операторов из строки будут удалены два символа, начиная с третьего, то есть строка будет такой: s = ‘1256’.

5. Замена (Вставка)

В Turbo Pascal 7.0 это можно сделать, применяя процедуру Insert(s1,s2,n) – вставка строки s1 в строку s2, начиная с п-го символа, при этом первая строка остается такой же, как и была, а вторая получает новое значение.

В результате выполнения данной процедуры строка будет такой s2=’123456′.

6. Числа и строки

Надо заметить, что число 25 и строка 25 – это не одно и то же. Для работы с числами и строками в Turbo Pascal 7.0 применяются две процедуры.

Str(n,s1) – переводит числовое значение n в строковое и присваивает результат строке s1, причем можно переводить как целые числа, так и вещественные.

Существует обратная операция, переводящая строковое значение в числовое.

Функция val(s, n, k) – переводит строковое значение в числовое, если данная строка действительно является записью числа (целого или вещественного), то значение k=0, а n – это число, иначе k будет равно номеру символа, в котором встречается первое нарушение записи числа n.

val(‘1234′,n,k) п=1234, k=0;

7. Функции преобразования типов

Иногда в программах возникает необходимость по коду определить символ и, наоборот, по символу определить его код. Для этого используют функцию: CHR(x).

Эта функция возвращает символ, соответствующий ASCII-коду числа x.

for i = 0 to 255 do
writeln( i,’ ‘, chr(i));

Для определения кода по символу используют функцию ORD.

Составить программу, определяющую по введенному с клавиатуры символу его код.

Programm prim1;
Var s: char;
Begin
Writeln(‘введите символ с клавиатуры’);
Readln(s);
Writeln(‘код символа ‘,s,’=’,ord(s));
Readln;
End.

В три символьные переменные F, I, O ввести свои фамилию, имя, отчество. Сформировать из этих данных строку S, содержащую ваши фамилию и инициалы.

Program prim2;
Var F, I, O, S : string;
Begin
Writeln(‘введите вашу фамилию’);
Readln(F);
Writeln(‘введите ваше имя’);
Readln(I);
Writeln(‘введите ваше отчество’);
Readln(O);
S:=F+’ ‘+copy(I,1,1)+’.’+copy(O,1,1)+’.’;
Writeln(‘ваши реквизиты: ‘, S);
Readln;
End.

Определить сколько цифр содержится в записи произвольного натурального числа.

Program prim3;
Var s: string;
x, k: integer;
Begin
Writeln(‘введите число’);
Readln(x);
Str( x, s);
k:=length(s);
Writeln(‘в числе ‘,k,’ цифр’);
Readln;
End.

Переменные A и B содержат строки цифр. Найти сумму соответствующих чисел.

Program prim4;
Var A, B: string;
S, x, y, n, k: integer;
Begin
Writeln(‘введите первое число’);
Readln(A);
Writeln(‘введите второе число’);
Readln(B);
Val(A, x, n);
Val(B, y, k);
S:=x+y;
Writeln(‘сумма чисел равна ‘,S);
Readln;
End.

Распечатать заданное слово в одной строке с разрядкой (пробел после каждой буквы).

Program prim5;
Var s, x: string;
i: integer;
Begin
Writeln(‘введите слово’);
Readln(s);
x:=’’;
For i:=1 to length(s) do begin
x;=x+copy(s,i,1)+’ ‘
End;
Writeln(‘получилось слово ‘, x);
Readln;
End.

Составить программу подсчета количества вхождений буквы “а” в заданном тексте.

Program prim6;
Var s: string;
i, k: integer;
Begin
Writeln(‘введите текст’);
Readln(s);
k:=0;
for i:=1 to length(s) do begin
if copy(s, i, 1)=’a’ then k:=k+1
end;
Writeln(‘количество букв “а” в тексте равно ’, k);
Readln;
End.

Определить, какое из двух исходных слов длиннее и насколько.

Var s1, s2: string;
L1, l2: integer;
Begin
Writeln(‘введите первое слово’);
Readln(s1);
Writeln(‘введите второе слово’);
Readln(s2);
l1:=length(s1);
l2:=length(s2);
if l1>l2 then writeln(‘первое слово длиннее второго на ‘,l1-l2,’ символов’)
else
if l1=l2 then writeln(‘слова одинаковой длины’)
else writeln(‘первое слово длиннее второго на ‘,l2-l1,’ символов’);
Readln;
End.

Используемая литература:

1. Turbo Pascal. С. А. Немногин.- СПб: Издательство “Питер”, 2000.
2. Turbo Pascal: практикум/ С. А. Немногин.- СПб: Издательство “Питер”, 2001.
3. Практикум по программированию/ А. А. Чернов.- Волгоград: Учитель, 2006.
4. Приложение к журналу “Информатика и образование” № 1, 2001, № 3, 2001.

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

Когда связь с внешним файлом установлена, для подготовки ее к операции ввода или вывода файловая переменная должна быть “открыта”. Существующий файл можно открыть с помощью процедуры Reset, а новый файл можно создать и открыть с помощью процедуры Rewrite. Текстовые файлы, открытые с помощью процедуры Reset доступны только по чтению, а текстовые файлы, открытые с помощью процедуры Rewrite, доступны только по записи. Типизированные и нетипизированные файлы всегда допускают как чтение, так и запись,независимо от того были они открыты с помощью процедуры Reset или с помощью процедуры Rewrite.

Когда начинается выполнение программы, всегда автоматически открываются стандартные текстовые файловые переменные Input и Оutput (ввод и вывод). Input — это доступный только по чтению файл, связанный с клавиатурой, а Оutput — это доступный только по записи файл, связанный с дисплеем.

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

Обычно доступ к файлам организуется последовательно, то есть, когда элемент считывается с помощью стандартной процедуры Read или записывается с помощью стандартной процедуры Write, текущая позиция файла перемещается к следующему по порядку элементу файла. Однако к типизированным и нетипизированным файлам можно организовать прямой доступ с помощью стандартной процедуры Sееk, которая перемещает текущую позицию файла к заданному элементу. Для определения текущей позиции в файле и текущего размера файла можно использовать стандартные функции FileРоs и Filesize.

Когда программа завершает обработку файла, он должен закрываться с помощью стандартной процедуры Сlose. После полного закрытия файла связанный с ним внешний файл обновляется. Затем файловая переменная может быть связана с другим внешним файлом.

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

Общий вид описания файлов:

Стандартные процедуры и функции для текстовых файлов

В Турбо-Паскале текстовый тип отличается от символьного типа файла. При открытии текстового файла внешний файл интерпретируется особым образом: считается, что он представляет собой последовательность символов, сгруппированных в строки, где каждая строка заканчивается символом конца строки (end-of-line), который представляет собой символ перевода каретки, за которым возможно следует символ перевода строки.

Для текстовых файлов существует специальный вид операций чтения и записи (read и write), который позволяют вам считывать и записывать значения, тип которых отличается от символьного типа. Такие значения автоматически переводятся в символьное представление и обратно. Например, Read(f,i), где i — переменная целого типа, приведет к считыванию последовательности цифр, интерпретации этой последовательности, как десятичного числа, и сохранению его в i.

Имеются две стандартных переменных текстового типа — это Input и Оutput. Стандартная файловая переменная Input — это доступный только по чтению файл, связанный со стандартным файлом ввода операционной системы (обычно это клавиатура), а стандартная файловая переменная Оutput — это доступный только по записи файл, связанный со стандартным файлом вывода операционной системы (обычно это дисплей). Перед началом выполнения программы файлы Input и Оutput автоматически открываются, как если бы были выполнены следующие операторы:

Аналогично, после завершения работы программы эти файлы автоматически закрываются. Примечание: если программа использует стандартный модуль Сrt, то файлы Input и Оutput не будут по умолчанию относиться к стандартным файлам ввода и вывода.

Для некоторых из стандартных процедур, список которых приведен в данном разделе, не требуется явно указывать в качестве параметра файловую переменную. Если этот параметр опущен, то по умолчанию будут рассматриваться Input или Output, в зависимости от того, будет ли процедура или функция ориентирована на ввод или на вывод. Например, Read(х) соответствует Read(Input,х) и Write(х) соответствует Write(Output,х).

Если при вызове одной из процедур или функций из этого раздела вы задаете файл, этот файл должен быть связан с внешним файлов с помощью процедуры Assign и открыт с помощью процедуры Reset, Rewritе или Append. Если для ориентированной на вывод процедуры или функции вы указываете файл, который был открыт с помощью процедуры Reset, то выведется сообщение об ошибке. Аналогично, будет ошибкой задавать для ориентированной на ввод процедуры или функции файл, открытый с помощью процедур Rewrite или Append.

Процедуры

Функции

Процедура Seek

Haзнaчeниe: перемещает текущую позицию в файле к заданному элементу.

Примечания: Параметр f является любой файловой переменно, кроме текстовой, а n представляет собой выражение целого типа.

Текущая позиция в файле f перемещается к элементу с номером n. Номер первого элемента файла равен 0. Для того, чтобы расширить файл, можно выполнить поиск элемента файла, расположенного за последним элементом. Ограничения: Процедуру нельзя использовать для текстовых файлов. Файл должен быть открыт.

Стандартные процедуры и функции для нетипизированных файлов

Нетипизированные файлы представляют собой каналы ввода-вывода нижнего уровня, используемые в основном для прямого доступа к любому файлу на диске, независимо от его типа и структуры. Любой нетипизированный файл описывается словом file без атрибутов.

Для нетипизированных файлов в процедурах Reset и Rewrite допускается указывать дополнительный параметр, чтобы задать размер записи, использующийся при передаче файла.

По историческим причинам принимаемая по умолчанию длина записи равна 128 байтам. Предпочтительной длиной записи является длина записи, равная 1, поскольку это единственное значение, которое позволяет точно отразить размер любого файла (когда длина записи равна 1, то в файле не могут присутствовать неполные записи, то есть записи с меньшей длиной).

За исключением процедур Read и Write для всех нетипизированных файлов допускается использование любой стандартной процедуры, которые допускается использовать с типизированными файлами. Вместо процедур Read и Write здесь используются соответственно процедуры Blockrеаd и BlockWrite позволяющие пересылать данные с высокой скоростью.

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

Процедура Аppеnd

Haзнaчeниe: Открывает текущий файл для присоединения.

Тип результата: Параметр f — текстовая файловая переменная, которая должна быть связана с внешним файлом с помощью процедуры Аssign. Процедура Аppеnd открывает существующий внешний файл с именем, назначенным переменной f. Если внешнего файла с указанным именем не существует, то это является ошибкой. Если файл f уже открыт, то он сначала закрывается, а затем открывается заново. Текущая позиция устанавливается на конец файла. Если в последнем блоке файла размером 128 байтов присутствует Сtrl-Z (26 в коде АSСII), то текущая позиция устанавливается в файле таким образом, что при записи первым будет перекрываться символ Сtrl-Z в блоке. Если переменной f было присвоено пустое имя (например, Аssign(f,’’), то после обращения к процедуре Аppеnd f будет указывать на стандартный выходной файл (стандартный канал номер 1). После обращения к Аppеnd f становится доступным только по записи и Еоf(f) всегда принимает значение Тruе.

Процедура Аssign

Haзнaчeниe: присваивает имя внешнего файла файловой переменной.

Примечания: f является файловой переменой любого файлового типа, а “имя” должно представлять собой выражение строкового типа. Дaльнейшие операции с f будут выполняться с внешним файлом с именем, заданным параметром “имя”. После обращения к процедуре Аssign связь, установленная между переменной f и внешним файлом будет существовать до тех пор, пока не будет выполнена другая процедура Аssign для переменной f. Имя состоит из маршрута (пути доступа), определяющего доступ к 0 или более каталогов, имена которых отделены друг от друга с помощью обратной косой черты и за которыми следует действительное имя файла:

Если путь доступа начинается с обратной косой черты, то поиск начинается в корневом каталоге, в противном сучае он начинается в текущем каталоге. “Диск” представляет собой идентификатор диска (А -Z). Если “Диск” и двоеточие будут опущены, то используется назначенный по умолчанию дисковод. “имя-катимя-кат-. имя-кат” является корневым каталогом и путем доступа к подкаталогу, в котором содержится имя файла. “имя-файла” может содержать до восьми символов, за которыми могут следовать точка и расширение имени файла, длиной до трех символов. Максимально допустимая длина всего имени файла составляет 79 символов.

Ограничения: Процедура Аssign не должна использоваться для открытого файла. Когда “имя” представляет собой пустую строку, возникает особый случай, то есть Length(имя) равно нулю. В этом случае параметр f становится связанным со стандартным файлом ввода или стандартным файлом вывода. Эти специальные файлы позволяют инициализировать средство изменения направления ввода-вывода операционной системы ДОС. Если присвоено пустое имя, то после обращения к Rеset(f) f будет указывать на стандартный файл ввода, а после обращения к Rеwritе(f) f будет указывать на стандартный файл вывода.

Пример: (Делается попытка назначить для вывода программы вместо ДОС устройство РRN, диск и т.д.)

Функция Еоf (типизированные и нетипизованные файлы)

Haзнaчeниe: Для типизированных или нетипизированных файлов возвращает состояние “конец файла”.

Тип результата: Булевский (boolean).

Примечания: Параметр f представляет собой файловую переменную. Если текущая позиция в файле находится за последним элементом файла или если файл не содержит никаких элементов, то функция Еоf(f) возвращает значение Тruе. В противном случае она возвращает значение False.

Функция Еоf (текстовые файлы)

Haзнaчeниe: Возвращает состояние “конец файла” для текстовых файлов.

Тип результата: Булевский.

Примечания: Параметр f представляет собой файловую переменную, определяющую текстовый файл. Если этот параметр опущен, то используется стандартная файловая переменная Input. Если текущая позиция в файле находится за последним элементом файла или если файл не содержит никаких элементов, то функция Еоf(f) возвращает значение Тruе. В противном случае она возвращает значение False.

Функция Eoln

Haзнaчeниe: Пpoвepяeт, дocтигнут ли конец строки в файле.

Tип результата: логический (boolean).

Зaмeчaния: f, если указана, является файловой переменной типа text. Если f опущена, то подразумевается cтaндapтнaя файловая переменная Input. Eoln(f) возвращает True, если текущая позиция в файле совпадает с маркером конца строки или если истинна функция Eof(f); в противном случае Eoln(f) возвращает False.

Пpи применении Eoln к стандартному входному устройству (Input), которое не было переопределено , нижеописанная программа будет ожидать ввода, возврата каретки (CR),прежде чем вернуться из вызова функции Eoln:

Процедура Еrase

Haзнaчeниe: Стирает внешний файл.

Примечания: Параметр f представляет собой файловую перемененную любого файлового типа. Внешний файл, связанный с переменной f, стирается.

Ограничения: Процедура Еrase не должна использоваться для открытого файла.

Функция FilePos

Haзнaчeниe: Возвращает текущую позицию в файле.

Тип результата: Длинный целый (longint).

Примечания: Параметр f представляет собой файловую переменную. Если текущей позицией является начало файла, то функция FilePos(f) возвращает значение 0. Если текущей позицией в файле является конец файла, то есть Еоf(f) возвращает значение Тruе, то значение, возвращаемое функцией FilePos(f), совпадает со значением, возвращаемым функцией FileSizе(f) (размером файла).

Функция FileSize

Haзнaчeниe: Возвращает текущий размер файла.

Тип результата: Длинный целый (longint).

Примечания: Параметр f представляет собой файловую переменную. Данная функция возвращает число элементов в f. Если файл пуст, функция возвращает значение 0.

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

Процедура FSplit

Haзнaчeниe: Разбивает имя фaйлa на три его компонента.

Зaмeчaния: Разбивает имя фaйлa, указанное пapaмeтpoм Path на три его компонента. Пapaмeтp Dir становится равен имени накопителя и маршруту с возможными предшествующими и последующими символами ‘’, Name—имени фaйлa, а Ext — pacшиpeнию фaйлa с предшествующей точкой.

Каждая из cтpoк — кoмпoнeнт может оказаться пустой, если Path не содержит соответствующего компонента. типы PathStr, DirStr, NameStr и ExtStr определены в стандартном модуле DOS следующим образом:

Процедура FSplit никогда не добавляет и не удаляет символы при разбиении имени фaйлa, и сцепление результирующих строк Dir, Name и Ext всегда окажется равным строке, указанной в параметре Path.

лабораторные работы и задачи по программированию и информатике, егэ по информатике

Работа с файлами в паскале

Виды файлов в зависимости от их описания и режимом работы

1. текстовые (тип text) файлы со строками неопределенной длины;
2. файлы с типом записей (двоичные или типизированные (file of) );
3. файлы без типа для передачи данных блоками записей нетипизированные (file).

Описание файловых переменных:

Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN :

где myfile — имя переменной (объявленной ранее в области var ), ассоциированной с файлом
c: ext.txt — путь к реальному файлу
Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

Текстовые файлы в паскале: процедуры работы

Текстовый файл в Паскале — это совокупность строк произвольной длины, которые разделены между собой метками конца строки, а весь файл заканчивается меткой конца файла.

Возможные расширения файлов:
*.txt, *.log,
*.htm, *.html

Метод работы с текстовым файлом в Паскале предусматривает лишь последовательный доступ к каждой строке файла. Это означает, что начинать всегда возможно только с первой строки, затем проходя по каждой строке, дойти постепенно до необходимой. Т.е. можно сказать, что чтение (или запись) из файла (в файл) ведутся байт за байтом от начала к концу.

Предусмотрены два режима работы: режим для записи в файл информации и для чтения ее из файла. Одновременная запись и чтение запрещены.

Открытие файла

Допустим, мы в программе описали переменную для работы с текстовым файлом:

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

процедура открытия существующего файла для чтения при последовательном доступе:

процедура открытия создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается:

процедура добавления в конец:

• При открытии курсор устанавливается в начало файла.

Чтение из файла

Read (f, список переменных); ReadLn (f, список переменных);

Отличие ReadLn от Read в том, что при использовании readln после прочтения данных пропускаются все оставшиеся символы в данной строке, включая метку конца строки.

• чтение осуществляется с той позиции, где в данный момент стоит курсор;
• после чтения курсор сдвигается к первому непрочитанному символу.

Для возврата в начало файла:

close ( f ); reset ( f );

Запись в текстовый файл

Write (f, список переменных); WriteLn (f, список переменных);

где f — файловая переменная, а второй параметр – выводимые из программы и вводимые в файл данные (в виде значений переменных или просто данные)

Процедуры работы с файлом и закрытие файла

Нахождение конца файла:

Логическая функция, возвращающая True, если достигнут конец файла.

Нахождение конца строки:

Логическая функция, возвращающая True, если достигнут конец строки.

Удалить файл в Паскале

Переименование файла в Паскале

rename(переменная_файла,’новое имя файла’);

Закрытие:

Рассмотрим пример работы с файлами в паскале:

var filetext: text; a,b,c:string; begin assign(filetext,’c: ext.txt’); reset(filetext); readln(filetext,a); readln(filetext,b); readln(filetext,c); close(filetext); writeln(a); writeln(c); end.

* Из задачника М. Э. Абрамян (Text4)

var F: Text; N,K:integer; Name:String; C:Char; begin Assign(F,’c: ext.txt’); Reset(F); N:=0; K:=0; While not eof(F) do begin inc(N); While not eoln(f) do begin inc(K); Read(F,C); end; Readln(F); end; Close(F); Writeln(N,’ ‘,K); end.

var p, x: integer; f: text; begin assign(f, ‘input.txt’); reset(f); p := 1; while not eof(f) do begin readln(f, x); p := p * x; end; close(f); assign(f, ‘output.txt’); rewrite(f); writeln(f, ‘Произведение чисел ‘, p); close(f); end.

var filetext: text; a:string; i:integer; begin assign(filetext,’c: ext.txt’); rewrite(filetext); for i:=1 to 10 do . reset(filetext); for i:=1 to 10 do begin . . end; close(filetext); end.

* Из задачника М. Э. Абрамян (Text1)

* Из задачника М. Э. Абрамян (Text5)

* Из задачника М. Э. Абрамян (Text7)

var F_in,F_out: Text; Name,S: String; begin Write(‘S: ‘); Readln(S); Assign(F_in,’c: ext.txt’); Reset(F_in); Assign(F_out,’c: ext1.txt’); Rewrite(F_out); Writeln(F_out,S); While not eof(F_in) do begin Readln(F_in,S); Writeln(F_out,S); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out,’c: ext.txt’); end.

* Из задачника М. Э. Абрамян (Text9)

* Из задачника М. Э. Абрамян (Text15)

var F_in,F_out: Text; Name,line: string; K,i:integer; begin Write(‘K: ‘); Readln(K); Assign(F_in,’c: ext.txt’); Assign(F_out,’c: ext1.txt’); Reset(F_in); Rewrite(F_out); i:=0; While not eof(F_in) do begin Readln(F_in,line); inc(i); if i<>K then Writeln(F_out,line); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out,’c: ext.txt’); end.

Работа с данными из файла как с массивом

• для сортировки необходим массив, для того чтобы одновременно работать со всеми числами;
• неизвестно общее количество чисел.

• объявляем массив для 100 элементов;
• открываем файл на чтение, просчитываем количество чисел, заполняя массив, сохраняем количество в N;
• сортируем N элементов массива;
• записываем результат в файл.

* Из задачника М. Э. Абрамян (Text16)

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

p.in	p.out
3 hello earth	khoor hduwk

* желательно создать файлы и записать данные в исходный файл «вручную»
* программа решена для k=3, выполните программу для любых k (не превышающих 20 по модулю)

var a:char; i,n,k:byte; s,s1:string; f_in,f_out:text; begin Assign(F_in,’z:p.in’); Assign(F_out,’z:p.out’); Reset(F_in); Rewrite(F_out); s1:=»; readln(f_in,k); readln(f_in,s); for i:=1 to length(s) do begin n:=ord(s[i]); if n<>32 then <32 — пробел>n:=n+3; if . then . ; if . then . ; if . then . ; a:=chr(. ); s1:=. ; end; writeln(s1); writeln(f_out,s1); close(f_in); close(f_out) end.

32 then <32 — пробел>n:=n+3; if n=123 then n:=97; <â ASCII 123 — x, 97 — a>if n=124 then n:=98; <â ASCII 124 — y, 98 — b>if n=125 then n:=99; <â ASCII 125 — z, 99 — c>a:=chr(n); s1:=s1+a; end; writeln(s1); writeln(f_out,s1); close(f_in); close(f_out) end.

Найти сумму всех чисел от 1 до n, имеющих ровно 5 делителей.
Единица и само число входят в число его делителей.
Входные данные
В единственной строке входного файла z3.in записано одно натуральное число n(1 Поделитесь уроком с коллегами и друзьями:

Зачем нужен c:char и name:string во втором примере?