Примеры выполнения задания 9

Дан текстовый файл abc.txt. Удалить из каждой строки файла abc.txt все пробелы и расположить символы строки в обратном порядке.

Результат записать в файл def.txt.

Примечание. Формирование текстового файла с исходными данными abc.txt можно выполнить в любом текстовом редакторе, в том числе и в редакторе Турбо Паскаля.

Порядок создания файла:

• войти в редактор Турбо Паскаля;

• набрать несколько строк текста (в конце последней строки обязательно нажать Enter);

• сохранить под именем: abc.txt.

program lab6;

uses crt;

var s : string;

f, g: text;

n,k,i:integer;

begin clrscr;

assign (f, abc.txt);

assign (g, def.txt);

reset (f); {открыть файл abc.txt на чтение}

rewrite (g); {открыть файл def.txt на запись}

while not eof (f) do

begin readln (f, s); {текущая строка файла запишется в ОЗУ в ячейку, отведенную под переменную s}

п := pos( ); {позиция первого по порядку пробела}

while n > 0 do

begin

delete(s, n, 1); {удаление пробела в позиции п}

п := pos( );

end;

{формирование новой строки s1 из символов строки s,

расположенных в обратном порядке}

k:=length(s);

for i:= 1 to k do

s1[i]:=s[k+1-i];

{запись строки s1 в файл g }

writeln(g, s1);

end; close(f); close(g);

end.

Тема 10

Работа с комбинированными типами данных

(Записями)

Общие сведения

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

Фамилия	Имя	Отчество	Год рождения	Гражданство	Телефон	Факультет
Иванов	Сергей	Петрович	1990	Россия	1234567	ФАВТ

Для описания подобных объектов в Турбо Паскале используется специальный тип данных – запись.

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

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

Описание записи начинается со служебного слова record, затем следует список полей с указанием их типов. Заканчивается описание записи словом end:

Record имя поля 1 : тип поля 1;

имя поля 2 : тип поля 2;

. . . . . . . . . . . . . . . . . . .

имя поля N : тип поля N

end;

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

Рассмотрим примеры.

Представить комплексные числа А и В в виде записей (re + im*i), где re, im – вещественные числа, а также описать дату (число, месяц, год).

type comp = record

re, im: real

 end;

data = record

day: 1..31;

month: 1..12;

year: integer

end;

var a, b: comp; dt: data;