Задания для самостоятельной работы

Вариант 1.

1.Создать БД своих друзей (5 записей), состоящую из полей Name (имя), Surname (фамилия), Old (возраст), ColorHair (цвет волос). Вывести тех из них, которые старше Вас.

2.Создать БД своих одногруппников (5 записей), содержащую поля Имя, Фамилия, Возраст, Город. Вывести тех из них:

a)которые Ваши тезки;

b)которые живут с Вами в одном городе.

Вариант 2.

1.Создать БД своих друзей (5 записей), состоящую из полей Name (имя), Surname (фамилия), Old (возраст), ColorHair (цвет волос). Вывести брюнетов.

2.Создать БД своих одногруппников (5 записей), содержащую поля Имя, Фамилия, Число, Месяц, Год рождения. Вывести тех из них:

a)которые родились в 1989 году;

b)которые родились в январе.

Вариант 3.

1.Создать БД своих друзей (5 записей), состоящую из полей Name (имя), Surname (фамилия), Old (возраст), ColorHair (цвет волос). Вывести имена Ивановых.

2.Создать БД своих родственников (5 записей), содержащую поля Имя, Фамилия, Возраст, Город. Вывести тех из них:

a)которые младше Вас;

b)которые живут на в Вашем городе.

Вариант 4.

1.Создать БД своих друзей (5 записей), состоящую из полей Name (имя), Surname (фамилия), Old (возраст), ColorHair (цвет волос). Вывести фамилии Владимиров.

2.Создать БД своих одногруппников (5 записей), содержащую поля Имя, Фамилия, Возраст, Сестры, Братья. Вывести тех из них:

a)у которых есть сестры;

b)у которых нет братьев.

Лабораторная работа 9. Работа с файлами

Файл – именованная область внешней памяти компьютера. В среде PascalABC.Net есть возможность работы с файлами, что имеет ряд преимуществ:

© ИМПИ ОГПУ

∙с помощью файлов можно ввести большой объем данных;

∙файл, созданный одной программой, может использоваться другой программой.

Рассмотрим алгоритм работы с файлами:

1. Связать имя файловой переменной с реальным именем файла. Для этого используется процедура Assign (f, ‘<имя файла>’); Далее в

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

2. Открыть файл. Если файл уже существует, то с помощью процедуры Reset(f), если файла еще нет и его надо создать, то с помощью процедуры

Rewrite(f). Если с помощью процедуры Rewrite(f) открыть уже существующий файл, то все его содержимое уничтожится!

3. Чтение и запись информации. Производится соответственно с помощью процедур Read (f, a, b,…) и Write (f, x, y,…).

4. Закрыть файл. После того, как выполнены необходимые действия с файлом, его необходимо закрыть процедурой Close (f).

Пример 1: Создать текстовый файл.

Program Primer;

Var f : file; name, s : string;

Begin

Readln (name); Assign (f, name); rewrite(f);

write(f,'привет!');

close(f);

reset(f);

read(f,s);

write(s);

close(f) end.

Пример 2. Написать программу, записывающую в файл PR.DAT квадраты чисел от 1 до 100.

Program Primer;

Var f : file of real;

Beginx, y, h, a : real;

Assign(f, 'sin.dat');

© ИМПИ ОГПУ

Rewrite(f);

x := 0; h := 0.05; while x<=pi do begin

y := sin(x); write(f, y); x := x+h; end;

close(f);

reset(f);

while not(eof(f)) do begin

read(f,a);

writeln(' ',a:2:2) end;

close(f) end.

Задания для самостоятельной работы

Вариант 1.

1.Создать файл INT.DAT, состоящий из целых чисел. Написать программу, находящую число элементов в файле.

2.Написать программу INP.PAS, осуществляющую ввод данных в файл. Причем, если файл данных не существует, то эта программа должна создать его, а если существует, то дописывать новые данные в конец файла.

Вариант 2.

1.Создать файл INT.DAT, состоящий из целых чисел. Написать программу, находящую наименьший элемент файла.

2.Записать в виде текстового файла таблицу синусов числа [0, π] с шагом h.

Вариант 3.

1.Создать файл INT.DAT, состоящий из целых чисел. Написать программу, находящую сумму его элементов.

2.Написать программу INP.PAS, осуществляющую ввод данных о ваших одногруппниках. Причем, если файл данных не существует, то эта программа должна создать его, а если существует, то дописывать новые данные в конец файла.

Вариант 4.

1.Создать файл INT.DAT, состоящий из целых чисел. Написать программу, находящую наименьший элемент файла.

2.Создать файл INP.PAS, содержащий текстовую информацию. Дописать файл данными о себе.

©ИМПИ ОГПУ

Лабораторная работа 10. Процедуры и функции модуля GraphABC

Модуль GraphABC представляет собой простую графическую библиотеку и

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

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

Графические примитивы

Графические примитивы представляют собой процедуры, осуществляющие рисование в графическом окне. Рисование осуществляется текущим пером (линии),

текущей кистью (заливка замкнутых областей) и текущим шрифтом (вывод строк). procedure SetPixel(x,y: integer; c: Color);

Закрашивает пиксел с координатами (x,y) цветом c procedure PutPixel(x,y: integer; c: Color);

Закрашивает пиксел с координатами (x,y) цветом c procedure MoveTo(x,y: integer);

Устанавливает текущую позицию рисования в точку (x,y) procedure LineTo(x,y: integer);

Рисует отрезок от текущей позиции до точки (x,y). Текущая позиция переносится в

точку (x,y)

procedure LineTo(x,y: integer; c: Color);

Рисует отрезок от текущей позиции до точки (x,y) цветом c. Текущая позиция

переносится в точку (x,y)

procedure Line(x1,y1,x2,y2: integer);

Рисует отрезок от точки (x1,y1) до точки (x2,y2) procedure FillCircle(x,y,r: integer);

Заполняет внутренность окружности с центром (x,y) и радиусом r procedure DrawCircle(x,y,r: integer);

Рисует окружность с центром (x,y) и радиусом r procedure FillEllipse(x1,y1,x2,y2: integer);

Заполняет внутренность эллипса, ограниченного прямоугольником, заданным

координатами противоположных вершин (x1,y1) и (x2,y2) procedure DrawEllipse(x1,y1,x2,y2: integer);

Рисует границу эллипса, ограниченного прямоугольником, заданным координатами

противоположных вершин (x1,y1) и (x2,y2)

procedure FillRectangle(x1,y1,x2,y2: integer);

Заполняет внутренность прямоугольника, заданного координатами противоположных

вершин (x1,y1) и (x2,y2)

procedure DrawRectangle(x1,y1,x2,y2: integer);

Рисует границу прямоугольника, заданного координатами противоположных вершин

(x1,y1) и (x2,y2)

procedure Circle(x,y,r: integer);

Рисует заполненную окружность с центром (x,y) и радиусом r

© ИМПИ ОГПУ