Создание программ, отражающих приемы работы с файлами

Размещено на http://www.allbest.ru/

Кафедра компьютерных систем в управлении и проектировании (КСУП)

ОТЧЕТ

Лабораторная работа №3 по дисциплине «Программирование»



Содержание

1. Введение

2. Цель и задачи

2.1 Задача 1

2.2 Задача 2

3. Заключение

4. Список литературы



1. Введение

Сегодня практически все программы создаются с помощью языков программирования. Теоретически программу можно написать и на естественном языке (говорят: программирование на метаязыке), но из-за неоднозначности естественного языка автоматически перевести такую программу в машинный код пока невозможно.

Цель лабораторной работы -- научиться практическому программированию, поэтому и выбор языка программирования важен. В первую очередь язык программирования должен быть удобен для первоначального знакомства с программированием и хорош для обучения программированию. Именно для такой цели был выбран Паскаль.



2. Цель и задачи

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

2.1 Задача 1

type fr = file of real;

Описать процедуру predlast(f), значением которой является предпоследний элемент файла f, имеющего тип fr и содержащего не менее двух элементов. Указание: введите файл f (последний элемент = 0) и вычислите функцию predlast(f).

Решение:

Для описания процедуры predlast(f), которая возвращает предпоследний элемент файла f типа fr, можно использовать следующий подход на языке Pascal. Мы будем читать элементы файла, сохраняя два последних прочитанных значения, чтобы в конце получить предпоследний элемент.

Код для реализации процедуры predlast(f):

program PredlastElement;

type

fr = file of real;

function predlast(var f: fr): real;

var

current, previous: real;

endOfFile: boolean;

begin

previous:= 0; // Начальное значение, будет переписано

end0fFile:= false;

// Сначала перемещаемся в начало файла

reset(f);

// Читаем до конца файла, сохраняя два последних значения

while not eof(f) do

begin

read(f, current);

// Сохраняем предпоследний элемент

if not eof(f) then

begin

previous:= current;

end;

end;

// Если файл имеет по крайней мере два элемента, возвращаем предпоследний

if previous <> 0 then

predlast:= previous

else

writeln('Файл содержит меньше двух элементов');

end;

var

f: fr;

result: real;

begin

Assign(f, 'data.dat'); // Указываем файл, содержащий данные

Rewrite(f); // Создаем файл

// Заполняем файл (например)

write(f, 1.1);

write(f, 2.2);

write(f, 3.3);

write(f, 0.0); // Последний элемент = 0

Close(f);

// Теперь вызываем predlast для получения предпоследнего элемента

Assign(f, 'data.dat');

Reset(f);

result:= predlast(f);

writeln('Предпоследний элемент в файле: ', result:0:2);

Close(f);

end.

Вывод:

1. Мы создали тип fr для работы с файлами, содержащими числа с плавающей запятой.

2. Функция predlast принимает на вход файл и читает его до конца, запоминает текущий и предыдущий элементы.

3. В конце работы функции, возвращаем предпоследний элемент, если файл не пустой.

4. В основном блоке мы создаем файл, записываем туда несколько значений, а затем используем функцию predlast, чтобы вывести предпоследний элемент.

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



2.2 Задача 2

type

reals = file of real;

var f: reals;

Опишите рекурсивную функцию sum без параметров для нахождения суммы элементов файла f

Решение:

В языке программирования Pascal рекурсивная функция для нахождения суммы элементов файла f может быть написана следующим образом. Мы будем использовать файл типа reals, чтобы считать числа, и реализуем рекурсивный вызов для суммирования.

Пример кода:

program SumOfReals;

type

reals = file of real;

var

f: reals;

currentValue: real;

endOfFile: boolean;

function sum: real;

var

tempSum: real;

begin

// Проверяем, не достигли ли конца файла

if eof(f) then

begin

// Если конец файла, возвращаем 0

sum:= 0;

exit;

end;

// Считываем текущее значение из файла

read(f, currentValue);

// Рекурсивно вызываем sum для суммирования оставшихся элементов

tempSum:= sum;

// Возвращаем сумму текущего элемента и суммы оставшихся элементов

sum:= currentValue + tempSum;

end;

begin

// Пример открытия файла и вызова функции

assign(f, 'data.dat'); // файл с числовыми данными

reset(f);

// Вызываем функцию и выводим результат

writeln('Сумма элементов файла: ', sum:0:2);

// Закрываем файл

close(f);

end.

Вывод:

1. Тип файла: Мы определяем тип reals, который обозначает файл, содержащий вещественные числа.

2. Переменная для текущего значения: Переменная currentValue будет хранить текущее значение, считываемое из файла.

3. Рекурсивная функция sum: Проверяет, достигнут ли конец файла с помощью eof(f).

Если конец файла достигнут, функция возвращает 0. Если еще есть данные, считывает текущее значение с помощью read(f, currentValue) и вызывает саму себя для получения суммы оставшихся элементов. Возвращает сумму текущего значения и суммы оставшихся элементов.

Главная программа:

Открывает файл, считывает сумму и выводит её на экран.

Закрывает файл после завершения работы.

Этот пример предполагает, что файл data.dat уже существует и содержит вещественные числа.



3. Заключение

программа файл язык функция

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



4. Список литературы

1. Зюзьков В. М. Программирование: учеб. пособие / В. М. Зюзьков. омск: Эль Контент, 2013. 186 с.

2. Немнюгин С. А. Turbo Pascal. Программирование на языке высокого уровня: учебник для вузов / С. А. Немнюгин. 2-е изд. СПб.: Питер, 2005. 543 с.

3. Немнюгин С. А. Turbo Pascal: учеб. пособие для вузов / С. А. Немнюгин. СПб.: Питер, 2003. 491[5] с.

4. Фаронов В. В. Турбо Паскаль 7.0: Практика программирования / В. В. Фаронов. М. Нолидж, 2003. 415 с.

5. Немнюгин С. А. Turbo Pascal: Практикум / С. А. Немнюгин. 2-е изд. СПб.: Питер, 2003. 267 c.

6. Зюзьков В М. Основы алгоритмизации и программирование на языке Паскаль: учеб.-метод. пособие / В М. Зюзьков, Е. А. Потапова, Н. Ю. Хабибулина. Томск: ТУСУР, Кафедра КСУП, 2012. 203 с. URL: http://www.kcup.tusur.ru/index.php?module=mod_methodic&command=view&id=173

Размещено на Allbest.ru

...