Лабораторная работа
ЛР3. Вариант 11. 1) Описать функцию poz(s), подсчитывающую количество положительных чисел в файле s. 2) Напишите рекурсивную программу для вычисления суммы (i=1)^n1/i^2
в среде программирования Turbo Pascal 7.0 (DOS) (Паскаль)
Программа

Среда программирования: Turbo Pascal 7.0 (DOS)
Название работы: ЛР3. Вариант 11. 1) Описать функцию poz(s), подсчитывающую количество положительных чисел в файле s. 2) Напишите рекурсивную программу для вычисления суммы (i=1)^n1/i^2
Вид работы: Лабораторная работа
Тематика работы: Алгоритмы, Математика
Объем программы: 5 (по десятибалльной шкале)
Уровень сложности: 5 (по десятибалльной шкале)
Разработчик (автор): Программист сайта kursovik.com (письмо автору)
Данная работа написана ЧЕЛОВЕКОМ без использования ИИ
Ключевые слова: Работа с файлами, рекурсия, количество положительных чисел в файле, значение функции poz, значение счётчика возвращается функцией, рекурсивная программа для вычисления суммы, вычисляться значение ряда, вызвать рекурсивную функцию, значение суммы членов ряда
Функции программы:
Текстовая лабораторная работа №3.
Вариант 11. Файлы и рекурсия.
Разработать две программы на Pascal в соответствии с заданиями:
Задание 1.
type seria = file of integer;
var s:seria;
Описать функцию poz(s), подсчитывающую количество положительных чисел в файле s.
Указание: введите файл s (последний элемент равен 0) и напечатайте значение функции poz(s).
Связывание файловой переменной с именем осуществляется с помощью процедуры Assign. Создание файла выполняется с помощью процедуры Rewrite, открытие существующего файла – с помощью процедуры Reset. Процедура Close закрывает файл. Для чтения и записи данных в файл используются стандартные процедуры Read и Write.
Для формирования файла необходимо его создать и организовать цикл ввода элементов файла – целых чисел – до ввода нуля. В теле цикла элемент должен считываться с клавиатуры и записываться в файл. После записи данных файл необходимо закрыть.
В теле функции необходимо открыть файл для того, чтобы начать считывать данные с начала файла. Перед чтением элементов производится сброс счётчика положительных элементов. Чтение данных должно осуществляться с помощью цикла, условием останова которого является достижение конца файла. При чтении очередного элемента файла, он проверяется на положительность. При удовлетворении этому условию увеличивается значение счётчик. По окончании значение счётчика возвращается функцией.
Задание 2.
Напишите рекурсивную программу для вычисления суммы
Сумма (i=1)^n1/i^2
Указания.
Пусть функция f(k) вычисляет сумму a[1]+a[2]+…+a[k].
Нам надо вычислить f(n).
Определим f(k) рекурсивно:
1) если k=1, то f(k)=a[1];
2) если k>1, то значение функции равно сумме a[k] и f(k–1).
Необходимо организовать ввод целого положительного числа n для которого будет вычисляться значение ряда. Затем необходимо вызвать рекурсивную функцию подсчёта суммы, условием останова которой будет достижение аргументом значения 1. При других значениях аргумента должен осуществляться рекурсивный спуск. При рекурсивном подъёме будет вычисляться значение суммы членов ряда от первого до значения аргумента.
Формула по заданию 2 представлена в папке exe.
+ 0 руб
+ 0 руб
+ 0.00 Бел.руб
+ 0.00 Бел.руб
+ 0.00 тенге
+ 0.00 тенге
Описание (отчет): Есть на 15 страниц, посмотреть оглавление![]()
Пояснения к компиляции и запуску программы:
Для работы с программой по заданию 1 нужно запустить файл "SERIA.EXE".
Для работы с программой по заданию 2 нужно запустить файл "REKURSIA.EXE".
Пояснения к запуску программы:
Для работы с программой по заданию 1 нужно запустить файл "SERIA.EXE".
Для работы с программой по заданию 2 нужно запустить файл "REKURSIA.EXE".
На данный момент (7 ноября 2025) на выполнении находится 23 заказа.
Количество программистов, занятых выполнением текущих заказов: 10.
В текущем месяце (ноябрь 2025) нами уже выполнено 7 заказов.
В текущем году (2025) нами уже выполнено 512 заказов.
В прошлом году (2024) нами было выполнено 763 заказа.
В позапрошлом году (2023) нами было выполнено 777 заказов.
Количество активных программистов на сайте: 55.
Загруженность отдела заказами: 29%.
Размер архива 20 Кб, все фaйлы прoверены aнтивирусом Кaсперского. Скачать
исходники
FILE_INT
REKURSIA
REKURSIA
SERIA
SERIAК программе прилагается:
- 1) отчет - 15 стр.
- 2) скриншоты программы - 1 стр.
Перед покупкой готовой работы не забудьте проверить её оригинальность. Запросить у администратора проверку текущей оригинальности работы по версии системы Антиплагиат.РУ
ВНИМАНИЕ ! Если данный отчет Вам не подходит, то Вы можете заказать написание нового отчета (согласно Вашему оглавлению) автору данной программы. Чтобы узнать цену, нажмите на эту ссылку.
Отчет к программе. Содержание1 Введение. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .3 2 Анализ задачи №1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .4 3 Решение задачи . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .5 3 .1 Описание переменных . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Напишите нам
Написать письмо









