Вариант 13

Задание 1

Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Перевернуть элементы файла – сделать “поплавок”.

Задание 2

Создать текстовый файл, в который построчно записать прямоугольный массив massiv_nm, заполненный целыми случайными числами в диапазоне от v_min до v_max. Размеры массива n и m задать константами. Границы диапазона v_min и v_max задать с консоли. Определить первый положительный и последний отрицательный элементы в файле и поменять их местами. При чтении из файла считать размеры массива неизвестными. Определить их при чтении файла.

Вариант 14

Задание 1

Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Удалить из файла его максимальный и минимальный элементы.

Задание 2

Создать текстовый файл, в который построчно записать прямоугольный массив massiv_nm, заполненный целыми случайными числами в диапазоне от v_min до v_max. Размеры массива n и m задать константами. Границы диапазона v_min и v_max задать с консоли. Определить первый нечетный и последний четный элементы в файле и поменять их местами. При чтении из файла считать размеры массива неизвестными. Определить их при чтении файла.

Вариант 15

Задание 1

Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Удалить из файла вторые по величине максимальный и минимальный элементы.

Задание 2

Создать текстовый файл, в который построчно записать прямоугольный массив massiv_nm, заполненный целыми случайными числами в диапазоне от v_min до v_max. Размеры массива n и m задать константами. Границы диапазона v_min и v_max задать с консоли. Определить первый отрицательный и последний положительный элементы в файле и поменять их местами. При чтении из файла считать размеры массива неизвестными. Определить их при чтении файла.

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

Рекурсия

Тема: Программирование рекурсивных алгоритмов.

Цель работы: Освоить методику программирования рекурсивных алгоритмов.

Задание на лабораторную работу

1. Получить задание в соответствии с номером своего варианта.

2. Составить схему алгоритма решения задачи.

3. Написать код программы на языке Паскаль в среде Borland Pascal for Windows.

4. Осуществить компиляцию, отладку и тестирование программы.

5. Получить результат.

6. Оформить отчет по лабораторной работе.

Пример оформления работы

Задание 1.

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

1. Для вычисления n! можно воспользоваться следующими соотношениями:

1! = 1

2! = 1•2 = 2•1!

3! = 1•2•3 = 3•2!

. . .

n! = n•(n-1)!

3. Схема алгоритма решения задачи:

3. Код программы:

Program Variant_0;

Uses WinCrt;

Var n: Word;

fact: LongInt;

Function Factorial(k:Word):LongInt;

Begin

If (k=1) Or (k=0)

Then Factorial:=1 {терминальная ветвь}

Else Factorial:=k*Factorial(k-1); {рекурсивная ветвь}

End; {Factorial}

Begin {головная программа}

WriteLn('Лабораторная работа №9_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

Write('n=');

ReadLn(n);

fact:=Factorial(n);

WriteLn('factorial=', fact);

End.

4. Компиляция, отладка, тестирование и получение результата: