Программирование на языке Pascal

10. Как задать цвет для построения линий, прямоугольников и дуг?

11. Какой оператор позволяет построить отрезок, используя только одну пару координат?

12. Как переместить рисующий луч по экрану так, чтобы не было следа?

13. Как построить график функции, которая резко возрастает или убывает?

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

15. Какие операторы позволяют построить контурный и закрашенный прямоугольники?

16. Как построить линейную диаграмму?

17. Как подписать рисунок?

18. Как построить дугу окружности? Как с помощью оператора построения дуги построить окружность?

19. Как изобразить закрашенный сектор?

20. Для чего используется функция trunc?

21. Что такое круговая диаграмма?

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

• 
• 10. Записи. Обработка записей
• Цель работы: научиться работать с записями; записывать инструкции присваивания; особое внимание уделить понятию переменной поля записи, очень важного в программировании.
• Краткие теоретические сведения.
• Запись - это последовательность байтов на носителе, ограниченная с двух сторон специальными признаками. Такое определение дает представление о записи как о единице обмена между внешней и оперативной памятью компьютера. Однако сама запись бывает сложной структурой, содержащей разные данные. Запись может, например, соответствовать строке ведомости заработной платы, в которой указаны фамилия и несколько чисел, или строке классного журнала, где также содержатся фамилия и оценки. Таким образом, запись понимается как сложная конструкция. Поэтому в Паскале и других программных системах слово "запись" имеет двойной смысл: это и сложная структура, и единица данных на носителе (например, диске).

Запись -- совокупность разнородных данных, описываемых и обрабатываемых как единое целое.

Данные, из которых состоит запись, называются ее полями. Поля могут быть простыми данными или составными, например массивами или записями. С помощью записей удобно описывать свойства объектов, хранить их совместно. Из записей состоят базы данных, включающие описание нескольких объектов. Описание записи состоит из ключевого слова record, после которого указываются имена полей и тип каждого поля. Тип поля отделяется от имени двоеточием. Описание записи заканчивается словом end и точкой с запятой. Записи описываются в разделе типов данных type, В этом разделе указывается имя класса объектов (имя типа) и описание этого класса. Для каждого объекта класса имеется свое имя в разделе переменных var с описанием данного типа. Это имя используется в дальнейшем в программе.

Пример. Объект -- физическое тело с измерениями а, b, с (длина, ширина и высота). Описание может иметь вид а), когда для каждого поля указан тип данного, или б), когда подряд идущие однотипные поля описаны совместно:

a) type z = record б) type z = record

a: integer; a, b, c: integer

b: integer; end;

c: integer var x: z;

end;

var x: z;

Пример. Объект -- товар, характеризуется названием и ценой:

type tovar = record

sign: string [ 20];

price: real

end;

Пример. Объект -- дата рождения: день, месяц, год. День можно указать как диапазон значении, такой тип данных называется интервальным. Этот тип используется для целочисленных и символьных данных в описаниях, а также как метка оператора варианта. Интервальным типом задаются значения констант в разделе const.

type date_of_birth = record

day: 1 ..31;

month: string [10];

year: integer

end;

var date: date_of_birth;

Записи могут объединяться в массивы. Массив записей описывается в разделе type или var. Раздел переменных при объекте товар может иметь вид:

var x: array [ 1.. 100 ] of tovar; y: tovar;

x -- массив записей, к каждому элементу которого используется обычное обращение, например х[ i ]; у -- простая переменная.

Для обращения к полю записи применяется сложное имя, состоящее из двух имен, разделенных точкой. Первое из них -- имя переменной типа "запись" из раздела var, второе -- имя поля этой записи из раздела type. Так, для товаров имена полей в программе имеют вид:

у. sign, у. price, x [ 1 ]. sign, x [ i ]. Price

Содержание сведений	Ф. И. 0.	Должность	Дата рождения	Зарплата
Имя поля записи	name	position	date	salary
Тип данных поля	String [20]	string [10]	date_of_birth	real

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

структуру типа "запись" (в виде поля даты рождения), которую также требуется уточнить и описать в разделе типов раньше, чем запись о работнике.

В описании данной записи используется тип "день рождения" (date_oi_birth) из примера 3. Общее описание записи имеет вид:

type date_of_birth = record

day: 1 ..31;

month: string [10];

year: integer

end;

worker = record

name : string [ 20 ];

position: string [ 10 ];

date : date_of_birth;

salary : real

end;

var x: array [ 1. .7] of worker; w: worker;

Поле записи date содержит запись из трех полей. При формировании имени поля этой внутренней записи необходимо использовать тройное имя: имя переменной раздела var, имя поля записи worker и имя поля записи date_of_birth. Например, для переменной w обращение к месяцу рождения работника в программе будет иметь вид: w.date.month

В программе ввод и вывод записи производится по полям, но можно присвоить одной записи значение другой, при этом происходит копирование области памяти: х [ 1 ]: = w;

Оператор присоединения. Для обработки записи используется оператор with, который позволяет указать один раз имя записи из раздела переменных, а затем во всей области действия оператора указывать только имена полей этой записи из раздела type. После слова with можно написать несколько имен полей из раздела переменных.

Оператор присоединения имеет вид:

with список имен записей do оператор;

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

Пример. Дан массив записей, содержащий сведения о работниках предприятия (пример предыдущий). Напечатать:

1) список бухгалтеров;

2) список работников от 30 до 50 лет;

3) среднюю заработную плату по предприятию.

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

program Р37;

const n =10;

type date_of_birth = record

day: 1 .. 31;

month:string [ 10 ];

year: integer

end;

worker = record

name : string [ 20 ];

position: string [ 10 ];

date : date_of_birth;

salary : real

end;

var x: array [ 1..n] of worker; w: worker; i, j, g integer; S: real;

p: string [ 10 ];

begin

{формирование массива записей}

for i: = 1 to n do

with x [ i ] do

begin

writeln (`сведения о', i, `работнике');

writeln (`фамилия, инициалы');

readln(name);

writeln (`должность');

readln(position);

writeln (`число, месяц и год рождения');

readln(date.day, date.month, date.year);

writeln (`зарплата');

readln(salary);

end;

{решение задачи 1) -- печатание списка бухгалтеров}

p: = `бухгалтер';

j: = 0; {счетчик строк списка -- количество бухгалтеров}

for i: = 1 to n do

with x [ i ] do

if p = position

then begin

j:=j+1;

writeln (j, `.', name); {после номера в списке печатается точка и фамилия}

end;

{решение подзадачи 2) -- список работников от 30 до 50 лет}

writeln (`список работников от 30 до 50 лет');

j: = 0;

write (`введите текущий год в виде четырехзначного числа');

readln(g);

for i: = 1 to n do

with x [ i ] do

if (g -- date.year < 50) and (g -- date.year > 30)

then begin

j:= j+1;

writeln (j, `.', name)

end;

{решение задачи 3) -- вычисление средней зарплаты}

S: = 0;

for i: = 1 to n do

S: = S + x[ i ].salary;

write (`средняя зарплата = `, S / n: 10: 2)

end.

Методические указания по работе и задания

№	Условие задачи
1	Опишите, используя структуру записи, сведения о книгах домашней библиотеке (автор, название, год издания, количество страниц). Составить программу, определяющую: авторов, название книг которых начинается на букву А.
2	Опишите, используя структуру записи, таблицу соревнований (название команды, количество набранных очков). Составьте программу, выводящую на экран упорядоченный список команд (в зависимости от занятого места).
3	Составьте программу, осуществляющую приведение подобных членов многочлена с использованием структуры данных "запись"
4	Опишите, используя структуру записи, книги (автор, название, год издания). Составить программу вывода на экран упорядоченного списка книг (по фамилии автора)
5	Опишите, используя структуру записи, таблицу соревнований (фамилия участника, количество набранных очков). Составьте программу, выводящую на экран упорядоченный список фамилий (в зависимости от занятого места).
6	Опишите, используя структуру записи, экзаменационную ведомость в которой проставлены оценки за четыре экзамена. Составить программу выводящую на экран количество студентов несдавших экзамены, сдавших на 5, сдавших на 4 и5.
7	Опишите, используя структуру записи, книги (автор, название, год издания, номер шкафа). Составить программу вывода на экран упорядоченного списка книг (по фамилии автора в каждом шкафу)
8	Запись содержит информацию о дневной температуре (число, месяц, температура). Составить программу вычисляющую среднемесячную температуру.
9	Опишите используя структуру записи, сведения о товаре ( наименование, цена, количество). Составить программу определяющую самый дорогой и самый дешевый товар.
10	Опишите объект "работник предприятия", используя запись
11	Опишите используя структуру записи, сведения о товаре ( наименование, цена, количество). Составить программу определяющую на какую сумму имеется товар.
12	Опишите, используя структуру записи, сведения о книгах домашней библиотеке (автор, название, год издания, количество страниц). Составить программу, определяющую: авторов, название книг изданных после 1995г.
13	Опишите, используя структуру записи, данные о владельце автомобиля (фамилия, марка автомобиля, гос. номер, цвет). Составьте программу, осуществляющую поиск владельца автомобиля "Жигули" белого цвета с фиксированным гос. номером.
14	Опишите объект "ученик 11 класса", используя запись
15	Создайте базу данных для своего класса и с ее помощью получите сведения о самом старшем ученике в классе; б) о самом младшем ученике; в) об оценках каждого ученика по изучаемым в классе предметам; г) об отличниках; д) о самом отстающем ученике; е) о среднем балле каждого ученика по оценкам последней четверти; ж) о средней успеваемости класса по всем предметам; з) о тех, кто пропускает уроки чаще, чем раз в неделю.
16	Опишите, используя структуру записи, книги (автор, название, год издания). Составить программу вывода на экран упорядоченного списка книг (по фамилии автора)
17	Опишите, используя структуру записи, таблицу соревнований (фамилия участника, количество набранных очков). Составьте программу, выводящую на экран упорядоченный список фамилий (в зависимости от занятого места).
18	Опишите, используя структуру записи, экзаменационную ведомость в которой проставлены оценки за четыре экзамена. Составить программу выводящую на экран количество студентов несдавших экзамены, сдавших на 5, сдавших на 4 и5.
19	Опишите, используя структуру записи, книги (автор, название, год издания, номер шкафа). Составить программу вывода на экран упорядоченного списка книг (по фамилии автора в каждом шкафу)
20	Запись содержит информацию о дневной температуре (число, месяц, температура). Составить программу вычисляющую среднемесячную температуру.
21	Опишите используя структуру записи, сведения о товаре ( наименование, цена, количество). Составить программу определяющую на какую сумму имеется товар.
22	Опишите, используя структуру записи, сведения о книгах домашней библиотеке (автор, название, год издания, количество страниц). Составить программу, определяющую: авторов, название книг изданных после 1995г.

ВОПРОСЫ К ЗАЩИТЕ ЛАБОРАТОРНОЙ РАБОТЫ

1. Как в информатике понимается слово "запись"?

2. Как обратиться в программе к полю записи?

3. Что необходимо сделать, чтобы описать в программе объект, характеристики которого -- разнотипные данные?

4. Что необходимо сделать, чтобы описать в программе объект, характеристики которого -- однотипные данные?

5. Объясните, что означают имена: х[ 2 ].position, x[ 5 ].date.month, w.name.

6. Для чего используется оператор with?

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

• 
• 11. Файлы. Работа с файлами в Паскале
• Цель работы: научиться читать данные из файла, выводить данные в файл, приобрести навыки работы со стандартными процедурами и функциями для всех файлов.
• Краткие теоретические сведения.
• С понятием файла пользователь компьютера сталкивается постоянно. Язык программирования Паскаль позволяет работать с компонентами файла -- записями, с полями записей.
• Файл в Паскале состоит из однотипных данных. С данными файла можно производить две операции: запись или чтение. В Паскале осуществляется обработка последовательных файлов, в которых данные записываются или считываются одно за другим. Запись можно прочесть, минуя предыдущие, если известен ее порядковый номер в файле. Чтобы выполнять действия с данными файла, файл надо открыть для соответствующей операции.
• Этапы, которые необходимы для каждой операции при работе с файлом:
• Операция записи. Запись в файл означает помещение в него новых данных. Файл размещается на носителе, как правило, на магнитном диске. Данное для занесения в файл формируется в оперативной памяти как значение некоторой переменной. Операцией записи в файл это данное копируется из оперативной памяти во внешнюю. Форма представления данного, его тип и структура должны быть одинаковы и для записей файла, и для переменной, из которой это данное копируется.
• 1. Описание файла. Описание файла может быть в разделе типов или в разделе переменных. Пусть файл f состоит из целых чисел. Его описание имеет вид: var f: file of integer; a: integer;
• где a -- компонента файла данного того же типа, что и записи файла. Тип данных файла указывается после слова of в описании, это может быть числовой или символьный тип, массив или запись. Сложный тип записи файла необходимо предварительно описать в разделе type.
• 2. Установление соответствия между логическим и физическим именами файла. Логическое имя -- имя переменной из раздела var, под которым файл присутствует в программе. Физическое имя -- имя из каталога оглавления диска. Оператор установления соответствия между именами файлов:

assign (логическое имя файла, физическое имя); например:

assign (f, `F.DAT');

Физическое имя заключено в апострофы, оно появится в том же оглавлении, где находится файл turbo.exe.

3. Открытие файла для операции запись это действие выполняется оператором: rewrite (f);

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

При занесении в файл данные будут размещаться между именем и признаком конца файла, причем каждое новое данное окажется перед признаком конца файла. Файл может содержать произвольное количество данных. Ограничение размера файла никак в программе не оговаривается. В оперативной памяти достаточно одной области, совпадающей по формату с записями файла, а на диске определяется размер файла свободным пространством на момент его создания. Запись данных в файл производит оператор: write (f, a);

Пример. Пусть требуется создать файл из 10 целых чисел.

Программа имеет вид:

program Р38;

var f: file of integer; a, i: integer;

begin

assign (f, `F.DAT');

rewrite (f);

writeln (`введите 10 целых чисел, после каждого нажимайте <Enter> `);

for i: = 1 to 10 do

begin

readln(a);

write (f, a)

end

end.

Если создать файл и никаких больше действий не производить, то возможности просмотреть данные файлы вне программы, практически нет. Поэтому большинство задач обработки файлов начинаются словами: "Дан файл". Очевидно, как и для других задач с подобным началом, файл необходимо сначала создать, т. е. выполнить описанные четыре этапа. Чтобы работать с данными файла, их надо прежде всего прочесть, открыть файл для чтения.

Операция чтения. Для чтения данных из файла его следует описать, установить соответствие между логическим и физическим именем, а затем открыть для чтения и считывать данные. Первые два шага -- описание и установление соответствия имен -- такие же, как и для операции записи. Если с файлом совершаются различные операции, то перед выполнением следующей его надо закрыть оператором: close (f);

Открытие файла для чтения производится оператором: reset (f);

Читать данные из файла позволяет оператор: read (f, a);

После создания файла и нескольких преобразований может быть неизвестно количество его записей. Поэтому при чтении данных из файла удобно использовать специальную функцию, контролирующую признак конца файла. Эта функция принимает значение истина, если встречен признак конца файла, и ложь, если прочитана другая запись. При открытии файла для чтения уже считывается первая его запись, содержащая имя файла, поэтому можно поставить контроль признака конца файла, даже не считав ни одной записи оператором read (f,a);

Функция обработка признака конца файла:

eof (f)

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

while not eof (f) do

надо понимать так: пока не встретился признак конца файла, выполнять цикл.

Пример. Дан файл целых чисел. Посчитать количество положительных, отрицательных и нулевых элементов файла.

program Р39;

const k= 15;

var f: file of integer; a, i, n, p, z: integer;

begin

assign (f, `F.DAT');

rewrite (f); {создание файла}

writeln (`введите', k, `целых чисел, после каждого нажимайте <Enter>`);

for i: = 1 to k do

begin

readln(a);

write (f, a)

end;

close (f); {закрытие файла для операции записи}

{решение задачи -- подсчет различных элементов}

n: = 0; p: = 0; z: = 0; {n-отрицательные, р-положительные, z -нули}

reset (f);

while not eof (f) do

begin

read (f, a);

if a = 0 then z: = z + 1;

if a < 0 then n: = n + 1;

if a > 0 then p: = p + 1

end;

write (` n = `, n, ` z = `, z, ` p = `, p)

end.

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

Решение задачи расширения файла складывается из следующих этапов:

1) открыть данный файл f для чтения, а вспомогательный g -- для записи;

2) читать данное из исходного файла f и записывать его тут же в файл g;

3) после окончания переписывания данных закрыть файл f;

4) вводить новые данные с клавиатуры и записывать их в файл g, добавляя к уже имеющимся там данным файла f;

5) закрыть файл g;

6) открыть файл f для записи, а файл g -- для чтения;

7) читать данные из файла g и записывать их в файл f.

Таким образом, в файле f к старым данным добавятся новые. Если необходимо вставить новые данные в середину файла, то надо во втором пункте решения контролировать считываемые данные и, дойдя до места вставки, приостановить чтение, записать требуемые данные в файл g, а затем дописать туда оставшиеся из исходного файла (пункты 3 и 4), далее выполнить пункты 5, 6, 7.

program Р40;

var f, g: file of integer; a: integer;

begin

assign (f, `F.DAT');

assign (g, `G.DAT'); .

{перезапись данных из исходного файла во вспомогательный}

reset (f); rewrite (g);

while not eof (f) do

begin

read (f, a);

write (g, a);

end;

close (f); {добавление данных во вспомогательный файл}

readln(a);

while а <> 0 do {признак окончания ввода новых данных - нуль}

begin

write (g, a);

readln (a)

end;

close (g);

reset (g); rewrite (f); {перезапись данных назад в исходный файл}

while not eof (g) do

begin

read (g, a);

write (f, a);

end

end.

Методические указания по работе и задания

№	Условие задачи
1	Вывести на экран содержимое файла a:\ num.txt.
2	Дан файл, элементами которого являются целые числа. Вычислить среднее арифметическое чисел, находящихся в файле.
3	Требуется создать файл целых чисел, в котором значение каждой i-й компоненты равно i2 и квадраты всех чисел не превосходят n.
4	Имеется два отсортированных файла целых чисел. Осуществить слияние файлов в отсортированный третий файл.
5	Для целочисленного файла найдите наибольший элемент данных.
6	Пусть внешний файл состоит из записей, содержащих фамилии владельцев и номера их телефонов. Необходимо по фамилии знакомого отыскать его телефон.
7	Написать программу, копирующую файл.
8	Составить программу подсчета количества элементов файла вещественных чисел, меньших среднего арифметического всех элементов этого файла.
9	Написать программу, меняющую местами первый и последний элементы файла.
10	Вывести текстовый файл на экран и подсчитать количество строк в данном текстовом файле.
11	Создать файл вещественных чисел и вычислите сумму компонент этого файла.
12	Считать файл, удвоив каждый его элемент через пробел.
13	Прочитать текстовый файл и найти сумму цифр, встречающихся в нем.
14	Для файла целых чисел перепишите положительные в один дополнительный файл, а отрицательные -- в другой.
15	Прочитать текстовый файл и вывести его задом наперед.
16	Для целочисленного файла найдите наибольший элемент данных.
17	Пусть внешний файл состоит из записей, содержащих фамилии владельцев и номера их телефонов. Необходимо по фамилии знакомого отыскать его телефон.
18	Написать программу, копирующую файл.
19	Составить программу подсчета количества элементов файла вещественных чисел, меньших среднего арифметического всех элементов этого файла.
20	Написать программу, меняющую местами первый и последний элементы файла.
21	Вывести текстовый файл на экран и подсчитать количество строк в данном текстовом файле.
22	Создать файл вещественных чисел и вычислите сумму компонент этого файла.

ВОПРОСЫ К ЗАЩИТЕ ЛАБОРАТОРНОЙ РАБОТЫ

1. Какие операции можно производить с данными файла?

2. Почему второй параметр а операторов write (f, а) и read (f, a)

должен быть такого же типа, что и данные файла?

3. Что такое физическое имя файла, чем оно отличается от логического имени?

4. Как открыть файл для записи?

5. Что будет, если ранее созданный файл с данными открыть для записи?

6. Чем ограничено количество данных в файле?

7. Чем отличается файл от массива?

8. Как прочесть данные из файла, не зная количества этих данных?

9. Как добавить данные в имеющийся файл?

10. Какой файл, созданный программой, можно просмотреть при помощи текстового редактора?

• 
• Литература
• Е. А. Зуев. Turbo Pasсal. Практическое программирование. - М.: "ПРИОР", 1997.336с.
• Емелина Е.И. Основы программирования на языке Паскаль.- М.: Финансы и статистика, 1997.-208с.: ил.
• Н. Культин. Turbo Pasсal 7.0. -СПб.: БХВ - Санкт-Петербург,1998.336с., ил.
• Гусева А.И. Учимся программировать Pasсal 7.0. Задачи и методы их решения. - М.: "Диалог-МИФИ", 1998. 272с.
• Рудаков П.И., Федотов М.А. Основы языка Pascal.-М.: Радио и связь, Горячая линия.- Телеком,1999,-208с.:ил.
• Информатика Задачник - практикум в 2т. / Под ред. И.Г. Семакина, Е.К. Хеннера: - М.: Лаборатория базовых знаний,2000г. -304с.:ил.
• Размещено на Allbest.ru