ЗадачаПрограммированиеГод: 2025
👁 14💼 0

Готовая задача: Pascal — окружность, проценты, сумма чётных

Загружена: 18.02.2026 15:12

Набор практических задач по программированию на Pascal. Рассмотрены вычисление точек пересечения окружности с осью OX, определение процентов положительных/отрицательных/нулевых элементов и подсчёт суммы чётных чисел из файла. Полезно для закрепления работы с циклами, условными операторами и файловым вводом.

Содержание

Задача 1

Задана окружность с центром в точке О(x₀, y₀) и радиусом R₀, найти точки пересечения линии с осью абсцисс.

Задача 2

Вводится последовательность из N произвольных чисел. Определить процент положительных, отрицательных и нулевых элементов.

Задача 3

В файле хранятся целые числа. Найдите (без использования массивов) сумму четных чисел.

Подробное описание

📘 О чем эта работа

Сборник из трёх задач по дисциплине «Информатика», выполненных на языке Pascal. Рассмотрены: вычисление точек пересечения окружности с осью абсцисс по формуле x = x0 ± sqrt(R^2 - y0^2), подсчёт процентов положительных, отрицательных и нулевых элементов для последовательности чисел, и суммирование чётных чисел из текстового файла.

📚 Что внутри

В работе приведены пошаговые алгоритмы и полнофункциональные программы на Pascal с комментариями:

  • Задача по геометрии: выводится уравнение окружности, проводится подстановка y=0, вычисляется выражение R0*R0 - y0*y0 и в зависимости от его знака программа (CircleIntersection) сообщает 0, 1 или 2 точки пересечения и вычисляет x1, x2 с использованием sqrt.
  • Задача на работу с последовательностью: три варианта реализации подсчёта процентов (FOR, WHILE, REPEAT) в программах PercentageOfNumbers, PercentageOfNumbersWhile и PercentageOfNumbersRepeat. Используются счётчики positive/negative/zero, операции inc, форматированный вывод (например, ':0:2' для процентов).
  • Задача на файловый ввод: программа SumOfEvenNumbers читает целые числа из текстового файла '1.txt', проверяет через оператор mod чётность и аккумулирует сумму, затем закрывает файл и выводит результат.
  • Включён список использованных источников по Turbo Pascal и алгоритмам (Вирт, Острейковский, и др.).

📊 Для кого подходит

Студенты начальных курсов и преподаватели по направлениям информатики, прикладной математики и программирования. Полезно для отработки навыков: циклы (FOR/WHILE/REPEAT), условные операторы, математические функции, работа с файлами и форматированный вывод.

✨ Особенности

Готовые программы с реальными проверками на граничные случаи (например, условие R^2 - y^2 < 0), примеры ввода/вывода через readln/writeln, использование inc для счётчиков и явное закрытие файлов. Набор демонстрирует практическое применение математических выражений, модульной логики и трёх типов циклов на одном примере подсчёта процентов.

❓ Частые вопросы

Подойдет ли для моего ВУЗа?
Структура программ и комментарии соответствуют типовым требованиям контрольных и лабораторных работ: ввод данных, проверка условий, вывод результатов и список литературы.

Можно адаптировать?
Да. Код легко изменить: заменить ввод с консоли на работу с файлами, добавить обработку ошибок, расширить проверку входных данных или перевести формулы в плавающую арифметику.