Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 6)

При размещении в динамической памяти объекта размещается в качестве второго параметра обращения к New указывать имя конструктора.

Release(Ptr) – освобождает участок кучи. Здесь Ptr – указатель, любого типа, в котором предварительно было сохранено процедурой Mark значение указателя кучи. Освобождается участок кучи от адрес, хранящегося в Ptr, до конца кучи. Одновременно уничтожается список всех свободных фрагментов, которые, возможно, были созданы процедурами DisPose или FreeMem.

2. Демонстрационные примеры

Пример 5.1. Создать программу для поиска цифровых символов в некоторой строке. Написать на языке ТР 7.1 модуль stsearch.tpu, выполняющий поиск цифровых символов. Программа должна обладать одноуровневым меню, иметь опцию импорта строки из текстового файла (файл должен существовать по указанному адресу и не использоваться другими приложениями). Выход из программы возможен по выбору определенного пункта меню, нажатии клавиши Esc, либо комбинации клавиш “Ctrl + C”.

Program StSearch1;

Uses crt, stsearch;

Type win = record

x1,y1,x2,y2: word;

text: string[20];

end;

var npos,i,n,j :integer;

ch1,ch2 :char;

nstr,path,autstr :string;

f1 :text;

const menu: array[1..4] of win =

((x1:5; y2:4; x2:21; y2:4; text: ‘Ввести строку’ )

(x1:5; y2:5; x2:21; y2:5; text: ‘Импорт из файла’ )

(x1:5; y2:6; x2:21; y2:6; text: ‘Просмотр цифр’ )

(x1:5; y2:7; x2:21; y2:7; text: ‘Выход’ ));

Procedure DrawWin(w: win; attr: byte); {изображение пункта меню}

begin

with w do

begin

textattr := attr; {устанавливает атрибуты текста}

window (x1,y1,x2,y2); {создает окно с указанными координатами}

clrscr;

gotoXY(2,1);

write(text);

end;

end;

Procedure DrawMenu(npos: integer); {последовательное изображение пунктов меню}

begin

clrcsr;

for i:=1 to 4 do

if i=npos then drawwin(menu[i], 255{94}) else drawwin (menu[i],29{30});

end;

begin {основная программа}

npos :=1; {исходная позиция выделенного пункта меню}

drawmenu (npos);

repeat

ch1 := readkey;

if ch = #0 then ch2 := readkey;

case ch1 of

#0: case ch2 of

#72 : begin {если нажата клавиша «вверх»}

if npos >1 then {если не верхний пункт меню}

begin

drawwin(menu[npos],30); {перерисовка текущего пункта- снятие выделения}

npos := npos - 1;

drawwin (menu [npos],94); {выделение следующего пункта меню}

end;

end;

#80: begin {если нажата клавиша «вниз»}

if npos < 4 then {если не нижний пункт меню}

begin

drаwwin(menu[npos],30);

npos := npos + 1;

drawwin (menu [npos],94);

end;

end;

end;

#13: begin {если нажата клавиша «Enter»}

window (1,1,80,25);

textattr := 7;

clrscr;

textcolor (cyan);

case npos of

1: begin {выбран первый пункт меню}

writeln (menu[npos]. text);

write (‘>>’);

readln (instr);

end;

2: begin {выбран второй пункт меню}

textcolor (red);

writeln (menu[npos].text);

textcolor (white);

write (‘Введите путь >> ’);

readln (path);

assign (f1, path);

reset (f1); {rewrite (f1);}

readln (f1,instr);

end;

3: begin

textcolor (red);

writeln(‘Execute…’);

sound (660);

delay (1500);

nosound;

textcolor (white);

writeln (‘В строке содержатся цифры: ’);

searchString (instr,outstr);

textcolor (white);

writeln (outstr);

outstr : = ‘’;

readln;

end;

end;

drawmenu (npos);

end;

end;

until (ch1=#27) or ((ch1=#13) and (npos = 4)) or (ch1 = #3)

{пока не нажаты Esc, Enter или четвертый пункт меню или Сtrl + С}

window (1,1,80,25);

textcolor :=7;

clrscr; {если выход – очистить экран}

End.

Код программы модуля StSearch.pas следующий:

Unit StSearch; {модуль обеспечивает поиск чисел в строке}

Interface

procedure SearchString (st: string; var sr: string);

implementation

procedure SearchString; {интеграл функции}

var i, k :integer;

begin

k := 1; sr: = ‘’;

for i:=1 to length(st) do

begin

if st[i] in [‘0’..’9’] then sr := sr + st[i];

end;

end;

end.

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

Ввести строку

- опция ручного ввода строки,

Импорт из файла

- опция импорта строки из текстового файла,

Просмотр цифр

Выход

- опция просмотра содержания числовых символов в строке, - выход из программы в среду ОС.

3. Задачи, для самостоятельного решения

Разработать модуль обработки двунаправленного линейного связного списка, интерфейсная секция которого содержит объявления не менее 5-ти процедур и функций из предложенного списка:

1. Построить список.

2. Уничтожить список.

3. Вывести список на экран.

4. Определить длину списка.

5. Определить номер узла, если задан указатель на него.

6. Определить указатель на узел по его номеру.

7. Добавить узел к "хвосту" списка.

8. Удалить последний узел списка.

9. Добавить узел к "голове" списка.

10. Удалить первый узел списка.

11. Добавить узел после указанного номера.

12. Удалить узел с указанным номером.

13. Определить вхождение в список заданного узла (номер узла или указатель на узел).

14. "Склеить" два списка.

15. Отсортировать список в порядке возрастания (убывания)

значений какого-либо поля записи.

Тип записи и файл записей взять в соответствии с вариантом к данной лабораторной работе.

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

type PNT=^B;

Bag = record багаж

Fio: String[20]; Ф.И.О. пассажира

Colch: Integer; количество вещей

Ves: Real; общий вес вещей [кг]

next: PNT;

end;

var rec, beg, endd, current: PNT;

Создать однонаправленный список записей.

1. Найти все записи, для которых средний вес одной вещи отличается не бо­лее чем на 0,3 кг от общего среднего веса вещи. Результаты записать в новый файл. Исходный и результирующий файлы распечатать.

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

3. Выяснить, имеются ли два пассажира, багажи которых совпадают по числу вещей и различаются по весу не более чем на 0,5 кг. Исходный файл и результа­ты распечатать.

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

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

Type PNT=^A;

Auto = record автомобиль

Fio: String [20]; Ф.И.О. владельца

Marka: String[10]; марка

Number: String[14]; номер автомобиля

next: PNT;

end;

var rec, beg, endd, current: PNT;

Создать однонаправленный список записей.

Найти количество автомобилей каждой марки. Исходный файл и результаты распечатать.

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

type PNT=^B;

Book = record книга

Fio: String[20]; Ф.И.О. автора

Name: String [60]; название

year: Integer год издания

next: PNT;

end;

var rec, beg, endd, current: PNT;

Создать однонаправленный список записей.

Найти авторов, издавших более одной книги, начиная с 1980 года. Исходный файл и результаты распечатать.

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

type PNT=^S;

LerBook = record ученик

Fam: String [20]; фамилия ученика

Year: 1..10; год обучения

Ch: Char; буква (от А до К)

next: PNT;

end;

var rec, beg, endd, current: PNT;

Создать однонаправленный список записей.

7. Выяснить, имеются ли однофамильцы в каких-либо параллельных классах. Ис­ходный файл и результаты распечатать.

8. Выяснить, имеются ли однофамильцы в каком-нибудь классе. Исходный файл и результаты распечатать.

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

type PNT=^S;

LerBook = record ученик

Fam: String [20]; фамилия ученика

Year: 1..10; год обучения

Ch: Char; буква (от А до К)

Ozenka: array[1..5] of integer; отметки, полученные учеником в последней четверти

next: PNT

end;

var rec, beg, endd, current: PNT;

Создать однонаправленный список записей.

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

Задача 10. Создать типизированный файл записей, содержащих сведения об экспортируе­мых товарах. Структура записи имеет следующий вид:

type PNT=^T;

Tovar = record товар

Name: String[20]; наименование товара

Land: String [10]; страна, импортирующая товар

Ob: Integer; объем поставляемой партии в штуках

next: PNT;

end;

var rec, beg, endd, current: PNT;

Создать однонаправленный список записей.

Составить список стран-экспортеров товаров с указанием числа наименова­ний товаров для каждой страны. Исходный файл и результаты распечатать.

Лабораторная работа №6

Рубежный контроль №1

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

1. Задачи, для самостоятельного решения

Задача 1. Cоставить подпрограмму-функцию TRAP для вычисления определенного интеграла по формуле трапеций.

В основной программе использовать процедуру TRAP для вычисления интегралов:

∫ (х² + cos(x)) dx и ∫ (tg(x+1))/(x+1) dx

от –1 до 4 от 0 до 2

Задача 2.Составить подпрограмму-процедуру NEIBR отыскивания ближайшей из 10 точек, заданных массивом их декартовых координат, кривой F(x) при одной координате x.

В основной программе использовать процедуру NEIBR для функций cos(x) и sin(x).

Задача 3. Составить подпрограмму - процедуру RT для отыскания наименьшего положительного корня уравнения F(x)=0 c точностью =0.00001 методом итераций.

В основном программе использовать процедуру для решения уравнения x - tg(x) = 0 , используя обратную функцию x₁ = arctg(x₀) + k .

Задача 4. Составить подпрограмму-процедуру ВR для отыскания ближайшей из 10 точек, заданных массивом их декартовых координат, к кривой F(x) при одной и той же координате х. В основном программе использовать процедуру ВR для функций cos(x) и sin(x).

Задача 5. Cоставить подпрограмму-функцию INTG для вычисления определенного интеграла по формуле прямоугольников

В основной программе использовать процедуру INTG для вычисления интегралов:

∫ (sin(х)/(x) dx и ∫ (tg(x+1))/(x+1) dx

от –0.1 до 4 от 0 до 2

Задача 6. Cоставить подпрограмму-функцию INTGR для вычисления определенного интеграла по формуле прямоугольников

Характеристики

Список файлов лекций