Програма для обчислення суми на Turbo Pascal

Еще одна задача на украинском языке, только теперь мы будем вычислять значение функции с помощью Турбо Паскаля и, конечно же, мучаться с никому не нужной системой «Алгоритм», в которой по условию необходимо построить блок-схему. Файлы с листингом программы и блок-схемой находятся по ссылке в конце этой статьи.

Завдання

Скласти структурну схему алгоритму обчислення значення функції Y для будь-яких значень X та n і реалізувати її в системі АЛГОРИТМ

Вхідні дані:

1. n – число значень, які приймає змінна к (к є (1 . .n)).
2. х – число, яке використовується для обчислення заданої формули.

Вихідні дані — задана формулою сума.

Обчислення задачі

Поперше обчислюємо елемент ак, підставляючи до формули значення х та к=1. Отримане значення ак присвоюємо змінній У. Потім обчислюємо значення ак, підставивши вже к=2. Результат додаємо до попереднього результату У. Так робимо, доки к<=n.

Побудуємо блок-схему для нашої задачи:

На основі побудованої блок-схеми розробимо програму та отримаємо результат її роботи.

Результат роботи програми:

n=6   x=4   y=43504713032960

Здесь можно скачать исходники обоих файлов, содержащих блок-схему формата системы «Алгоритм» и листинг программы, разработанной на Turbo Pascal:

Вы можете посмотреть еще примеры с нахождением суммы с помощью Турбо Паскаля: пример 2, пример 3.