Понятно, что тут нужен цикл для суммирования четырех членов вида
A²ˣ⁺¹ / [(2*х+1)*B²ˣ], х = 1, 2, 3, 4 и тут есть два варианта. Первый - считать, как написано. И на сегодня это правильный вариант, поскольку видна исходная формула. Второй - завести две добавочные переменные, в одну поместить A³, во вторую В². А затем получать следующие степени, домножая каждый раз на А² и В соответственно. Но это растянет программу и скроет исходную формулу от восприятия, что затруднит поиск ошибок. К счастью, современная версия языка Pascal - PascalABC.NET - обзавелась операцией возведения в степень и на ней прграмма будет выглядеть очень просто.
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите А и В:');
var y := SeqGen(4, x -> A ** (2 * x + 1) /
((2 * x + 1) * B ** (2 * x)), 1).Sum;
y.Println
end.
Мне уже проверили так что:
Ученные: Математическая программа программа - Mathematica, SciLab, MATLAB.
Дизайнер: SketchUP, Photoshop 3D, AutoDesk - Homestyler.
Веб-программист: Eclipse, Brackets
Методист: Онлайн: Eclipse/etc. / оффлайн (т.е не нужно кликать на сайте чтобы давать ответы): Конструктор тестов (так и называется)
Дизайнер: Photoshop
Ученные - прикладная программа, т.к это не внутренний интерфейс, он не встроен в винду
Дизайнер: тоже прикладная
Веб-программист: Система программирования
Методист: Системная программа тк. встроена в винду
Дизайнер: Приклад т.к photoshop нужно скачивать с других ресурсов
program summa;
var c, a, b: real;
begin
write ('Вычисление суммы двух чисел');
write ('Введите А ');
read (a);
write ('Введите Б ');
read (b);
c:=a+b;
write (a, ' + ',b, ' = ', c);
end.
Объяснение:
Название программы
Описание переменных
Тело программы