Задание 2 Это надо написать на языке фортран Тема: Ряды (циклы, итерации). Операторы DO используются для организации циклических расчетов. Цикл - это последовательность операторов, которая может автоматически выполняться более одного раза. Если количество повторов известно заранее (или может быть однозначно вычислено), используется оператор Цикл_с_параметром (DO «UNTIL»). Если количество повторов неизвестно, применяется оператор Цикл_с_Пред_условием (DO «WHILE»). Вычислить сумму ряда: a) с заданной точностью ξ и вывести количество итераций; b) для 20-ти членов ряда. Σ = 1/(3*3) + 1/(5*3)^2 - 1/(7*3)^3 + … ξ=0.0001 ответ: 0.90689
var
Res, Num : Extended;
begin
//Округление до сотых долей:
Res := RoundTo(Num, -2);
//Округление до десятых долей:
Res := RoundTo(Num, -1);
//Округление до единиц:
Res := RoundTo(Num, 0);
//Округление до десятков:
Res := RoundTo(Num, 1);
//Округление до сотен:
Res := RoundTo(Num, 2);
end;
Функция SimpleRoundTo() сходна с RoundTo() – различие лишь в округления последнего знака. SimpleRoundTo() округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному