- •Оглавление
- •Введение
- •Общие сведения. Пакет программ Turbo Pascal
- •Программная среда Turbo Pascal
- •Меню среды Turbo Pascal
- •Сохранение программы на диске
- •Запуск и отладка программы
- •Лабораторная работа № 1. Программирование алгоритмов линейной структуры
- •Теоретические сведения
- •Основные операторы языка Turbo Pascal
- •Математические операции языка Turbo Pascal
- •Операции отношения
- •Основные математические функции
- •Содержание лабораторной работы
- •Варианты заданий
- •Пример программы на языке Turbo Pascal
- •Контрольные вопросы
- •Лабораторная работа № 2. Программирование алгоритмов разветвленной структуры
- •Теоретические сведения
- •Составной оператор
- •Условный оператор
- •Оператор выбора
- •Метка и оператор безусловного перехода
- •Содержание лабораторной работы
- •Варианты заданий
- •Пример программы на языке Pascal
- •Контрольные вопросы
- •Лабораторная работа № 3. Организация циклов
- •Теоретические сведения
- •Цикл с параметром
- •Цикл с предусловием
- •Цикл с постусловием
- •Содержание лабораторной работы
- •Варианты заданий
- •Пример программы на языке Turbo Pascal
- •Контрольные вопросы
- •Лабораторная работа № 4. Работа с одномерными массивами
- •Теоретические сведения
- •Содержание лабораторной работы
- •Варианты заданий
- •Пример программы на языке Turbo Pascal
- •Контрольные вопросы
- •Лабораторная работа № 5. Работа с двухмерными массивами
- •Теоретические сведения
- •Содержание лабораторной работы
- •Варианты заданий
- •Пример программы на языке Turbo Pascal
- •Контрольные вопросы
- •Лабораторная работа № 6. Процедуры и функции
- •Теоретические сведения
- •Содержание лабораторной работы
- •Варианты заданий
- •Пример программы на языке Turbo Pascal
- •Контрольные вопросы
- •Лабораторная работа № 7. Файлы и их применение в Turbo Pascal
- •Теоретические сведения
- •Типизированные файлы
- •Текстовые файлы
- •Нетипизированные файлы
- •Содержание лабораторной работы
- •Варианты заданий
- •Пример программы на языке Turbo Pascal
- •Контрольные вопросы
- •Рекомендованная литература
Пример программы на языке Turbo Pascal
Создать файл, содержащий 50 случайных целых чисел в диапазоне [10..30], вывести числа на экран в обратном порядке.
Program Primer7;
const
N=50;
var
F: file of integer; {Объявление файла с целыми числами}
i, m : integer;
begin
Assign(F,'c:\bp\test1.dat');
{Связь файловой переменной с файлом}
ReWrite(F); {Открыть файл для записи}
for i:=1 to N do
begin
m := Random(20)+10; {Получение случайных чисел}
Write(F, m); {Запись числа в файл}
end;
Close(F); {Закрытие файла}
ReSet(F); {Открыть тот же файл для чтения}
for i:=50 downto 1 do
begin
Seek(F,i-1); {Установка указателя файла}
Read(F,m); {Считывание числа из файла}
Write(m:4); {Вывод числа на экран}
end;
Close(F); {Закрытие файла}
WriteLn;
end.
Рис. 14 – Cхема алгоритма работы программы
Контрольные вопросы
Что такое «файл» и «файловая переменная»?
Что такое «типизированный файл»?
Что такое «текстовый файл»?
Что такое «нетипизированный файл»?
Что такое «указатель файла»?
Как установить указатель файла в требуемую позицию?
Для каких типов файлов можно устанавливать позицию указателя файла?
Какие процедуры предназначены для открытия типизированного файла?
Какие процедуры предназначены для открытия текстового файла?
Какие процедуры и в какой последовательности надо вызывать для чтения данных из типизированного файла?
Какими процедурами выполняется чтение и запись для нетипизированных файлов?
Какими процедурами выполняется чтение и запись для текстовых файлов?
Как задать размер блока для нетипизированного файла?
Какие функции позволяют узнать текущее положение указателя в файле?
Как определить возникновение какой-либо ошибки при работе с файлами?
Рекомендованная литература
Рапаков, Г. Г. Программирование на языке Pascal / Г. Г. Рапаков, С. Ю. Ржеуцкая. – СПб. : БХВ-Петербург, 2005. – 470 с.
Потопахин, В. В. Turbo Pascal. Освой на примерах / В. В. Потопахин. – СПб. : BHV, 2005. – 240 с.
Малыхина, М. П. Программирование на языке высокого уровня Turbo Pascal / М. П. Малыхина. – СПб. : БХВ-Петербург, 2006. – 523 с.
Потопахин, В. В. Turbo Pascal. Решение сложных задач / В. В. Потопахин. – СПб. : BHV, 2006. – 208 с.
Марченко, А. И. Программирование в среде Turbo Pascal 7.0 / А. И. Марченко, Л. А. Марченко. – М. : Век, 2007. – 464 с.
Фаронов, В. В. Turbo Pascal 7.0. Начальный курс. / В. В. Фаронов. – М. : КноРус, 2007. – 576 с.
Немнюгин, С. А. Turbo Pascal: практикум / С. А. Немнюгин. – СПб. : Питер, 2007. – 267 с.
Фаронов, В. В. Turbo Pascal / В. В. Фаронов. – СПб. : БХВ-Петербург, 2007. – 1037 с.
Вольский, С. В. Turbo Pascal 7.0 для студентов и школьников / С. В. Вольский, П. А. Дмитриев. – М. : Наука и техника, 2007. – 214 с.
Культин, Н. Б. Turbo Pascal в задачах и примерах / Н. Б. Культин. – СПб. : БХВ-Петербург, 2008. – 256 с.
Фаронов, В. В. Turbo Pascal 7.0. Практика программирования / В. В. Фаронов. – М. : КноРус, 2008. – 576 с.
Немнюгин, С. А. Изучаем Turbo Pascal / С. А. Немнюгин, Л. В. Перколаб. – СПб. : Питер, 2008. – 312 с.
Шпак, Ю. А. Turbo Pascal. Просто как дважды два / Ю. А. Шпак. – М. : ЭКСМО, 2008. – 396 с.
Меженный, О. А. Turbo Pascal: самоучитель / О. А. Меженный. – М. : Диалектика, 2008. – 335 с.
Немнюгин, С. А. Программирование на языке высокого уровня / С. А. Немнюгин. – СПб. : Питер, 2008. – 543 с.
Культин, Н. Б. Программирование в Turbo Pascal 7.0 и Delphi / Н. Б. Культин. – СПб. : БХВ-Петербург, 2008. – 380 с.
Ковтанюк, Ю. С Программирование на Turbo Pascal: шаг за шагом / Ю. С. Ковтанюк. – М. : ЭКСМО, 2008. – 587 с.