Дополнительное задание

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

2. Организуйте массив, содержащий 20 различных целых чисел. После этого 10 первых элементов массива упорядочиваются по возрастанию, а 10 последних элементов по убыванию. Содержимое отсортированного таким образом массива выводится на экран.

3. Дана квадратная матрица, повернуть ее на 90 градусов по часовой стрелке и вывести на экран.

11	12	13
21	22	23
31	32	33

31	21	11
32	22	12
33	23	13

4. Дана матрица целых чисел размером 10×12. Напечатать индексы всех её седловых точек ( седловой точкой называется элемент, который является наименьшим в своей строке и наибольшим в своем столбце или наоборот.)

Урок 7 Работа с файлами

Цель

Научиться подключать создавать файла взаимодействующие с программой , работая как в MS DOC так и в Windows.

Задачи

• Дать основное понятие принципам взаимодействия внешних файлов с файлом самой программы.

• Дать понятие инициализации и подключения внешних файлов к файлу программы.

• Научиться применять процедуры управления внешними файлами.

Основные понятия

Чтобы работать с внешними файлами, надо:

1. Объявить переменные в программе, связывающие через себя модули программы и внешнего файла.

2. Инициализировать путь (место нахождения фалов на диске) процедурой ASSIGN.

3. Открыть файлы как для считывания (RESET) , так и для записи (REWRITE).

4. Закрыть внешние файлы после завершения работы алгоритма (CLOSE).

Читать

Запись

2.dat

(файл результата)

F2

1.dat

(файл-исходник)

F1

<имя>.pas

var f1,f2:text

ASSIGN

(F1,(f2),’ путь- место положения файлов на диске ‘);

RESET(F1)

REWRITE(F2)

• seek(f,n) – устанавливает значение текущего указателя на элемент n;

• FilePos(f) – текущее положение указателя;

• FileSize(f) – количество элементов файла;

• eof(f) – признак того, что указатель находится в конце файла.

Задания

Задачи сложности А

1.Дан файл Input.txt, элементы которого являются целыми числами. Получите в файле Output.txt все элементы файла Input.txt, которые делятся на 3 и не делятся на 7.

Задачи сложности B

1. Файл содержит одну строку. Подсчитайте, сколько раз в этой строке встречается буква А..

Задачи сложности С

^{1.Даны два файла, содержащих по одной строке. Создайте третий файл, в который запишите строку, полученную соединением строк из первого и второго файлов.}

Контрольные вопросы

1.Отметьте, с помощью какого оператора файловую переменную связывают с конкретным файлом на диске:

• connect;

• rewrite;

• assign;

• reset.

2. В файл f последовательно были записаны числа 2, 4, 6, 8, 10. В каком порядке они будут выведены на экран в результате выполнения следующего фрагмента программы?

…

read(f, x);

writeln(x);

seek(f, 2);

read(f, x, y);

writeln(y, x);

read(f, x);

writeln(x);

seek(f, 1);

read(f, y);

writeln(y);

Ответ: __________________________.

Урок 8 Графика

Цель

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

Задачи

• Дать основное понятие принципам построения графических изображений.

• Дать понятие инициализации графического режима работы в Turbo Pascal.

• Научиться применять процедуры и функции графического модуля Graph.

• Дать понятие принципу “оживления “ графических объектов.

• Научиться анимировать графику в Turbo Pascal.

Основные понятия

Чтобы рисовать, надо:

1. подключить модуль GRAPH (в разделе Uses);

2. инициализировать графику (InitGraph);

3. что—нибудь нарисовать;

4. закрыть графический режим (CloseGraph)

Задания

Задачи сложности А

^{1. Нарисовать в цикле горизонтальные линии.}

^{2. Нарисовать фигуру (человека), используя различные цвета и маски заливки.}

^{3. Падение любой фигуры сверху вниз.}

Задачи сложности B

^{1.Нарисовать окружность в центре экрана и лучи исходящие из центра данной окружности разного цвета.}

^{2.Нарисуйте картинку "пейзаж" на любую тему, используя различные цвета и маски заливки.}

^{3.Движение двух фигур навстречу друг другу.}

Задачи сложности С

1.Нарисуйте египетскую "ступенчатую" пирамиду, вид сверху и сбоку. Грани "освещённые" одинаково заполните одинаковым цветом и орнаментом.

2. Нарисуйте разноцветную бабочку, используя различные цвета и маски заливки.

3.Движение трех разных фигур. Направление разное, время движение совместимо.

Контрольные вопросы

1. Как называется, и как подключается библиотека графических процедур и функций?

2. Как инициализируется графический режим?

3. Как выключается графический режим?

4.Нарисуйте изображение, которое будет получено в результате выполнения следующей последовательности действий:

setcolor(5); setfillstyle(1,13); fillellipse(320,240,100,100); fillellipse(320,240,60,60); fillellipse(320,240,10,10); putpixel(315,240,0); putpixel(325,240,0); setfillstyle(3,0); fillellipse(300,220,3,3); fillellipse(340,220,3,3); line(280,185,285,175); line(285,175,290,185); line(355,185,360,175); line(360,175,365,185).

5.Напишите алгоритм, рисующий вертушку за счет поворота прямоугольника вокруг одной из его вершин по часовой стрелке. В алгоритме используйте следующие действия: установить цвет, нарисовать прямоугольник № t (t=1, 2, 3, 4), вставить задержку, закрасить прямоугольник № t (t=1, 2, 3, 4) цветом фона.

_________________________________

_________________________________

_________________________________

_________________________________

_________________________________

_________________________________

_ ________________________________

_________________________________

_________________________________

_________________________________

_________________________________