Количество литров в галлонах, геометрическая прогрессия. - Turbo Pascal
Формулировка задачи:
#1. Составить программу для нахождение количества литров L, которые содержится в Х галлонах (1 галлон = 4,54609 литра). Исходное количество галлонов задается с клавиатуры.
#2. Напишите программу вычисления общего члена Вn и суммы Sn первых n членов геометрической прогрессии. Первый член прогрессии b1, знаменатель прогрессии q и число членов задается с клавиатуры.
Решение задачи: «Количество литров в галлонах, геометрическая прогрессия.»
textual
Листинг программы
program progressia; uses crt; var b1, q, n:integer; begin write('Vvedite b1: '); readln(b1); write('Vvedite q: '); readln(q); write('Vvedite n: '); readln(n); writeln('Bn=', b1*power(q, n-1)); writeln('Sn=', (b1*power(q, n-1)*q-b1)/(q-1)); end.
Объяснение кода листинга программы
Этот код на Turbo Pascal запрашивает у пользователя три числа: b1, q и n. Затем он вычисляет Bn (количество литров в галлонах) и Sn (геометрическая прогрессия). Вот как это работает:
write('Vvedite b1: ');
- программа просит пользователя ввести значение переменной b1.readln(b1);
- программа читает введенное пользователем значение и сохраняет его в переменной b1.write('Vvedite q: ');
- программа просит пользователя ввести значение переменной q.readln(q);
- программа читает введенное пользователем значение и сохраняет его в переменной q.write('Vvedite n: ');
- программа просит пользователя ввести значение переменной n.readln(n);
- программа читает введенное пользователем значение и сохраняет его в переменной n.writeln('Bn=', b1*power(q, n-1));
- программа выводит Bn, результат умножения b1 на power(q, n-1).writeln('Sn=', (b1*power(q, n-1)*q-b1)/(q-1));
- программа выводит Sn, результат вычисления ((b1power(q, n-1)q-b1)/(q-1)).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д