Перед вычислением четвертой степени значения целой (типа Word) переменной k ее значение присваивается вещественной переменной x. Это делается для того, чтобы избежать переполнения. Ведь диапазон значений вещественных переменных значительно больше, чем диапазон значений целых переменных типа Word.
Program Example_69;
uses Crt;
var x, summa, ammus: real;
k: word;
Begin
ClrScr;
Writeln('1/n^5, 1 to 1000');
{суммирование в прямом порядке}
Summa:=0.0;
for k:=1 to 1000 do
Begin
x:=k;
summa:=summa+1.0/(x*Sqr(Sqr(x)));
end;
{суммирование в обратном порядке}
ammus:=0.0;
for k:=1000 downto 1 do
Begin
x:=k;
ammus:=ammus+1.0/(x*Sqr(Sqr(x)));
end;
Writeln('Прямая сумма=', summa);
Writeln('Обратная сумма', ammus);
Writeln('Разность=', summa-ammus);
Readln;
End.
ПРОЦЕДУРЫ
Нередко в программах встречаются повторяющиеся или похожие фрагменты. Имеется возможность оформлять такие фрагменты специальным образом – выделять их в подпрограммы. Подпрограмме дается имя, по которому к ней можно обращаться (вызывать подпрограмму). Использование подпрограмм не только улучшает структуру и внешний вид программы, но и уменьшает вероятность ошибок и облегчает отладку.
В Паскале имеются два вида подпрограмм − процедуры и функции. Их структура очень похожа на структуру основной программы.
