Пример 6.2.
Вычислить
Блок-схема алгоритма
В алгоритме для разнообразия один цикл реализован инструкцией for…to…do, а другой – инструкцией for…downto…do.
Листинг программы
program prg_6_2;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, RusTrans;
var
s,t,x,z: real;
i,j: integer;
begin
writeln(Rus(‘Введите x’)); // Ввод x
write(‘x=’);
readln(x);
t:=1; // Инициализация произведения
for i:=1 to 10 do // Цикл произведения
begin
s:=0; // Обнуление суммы
for j:=10 downto 1 do s:=s+Cos(i*j*x); // Цикл суммы
t:=t*s
end;
writeln;
writeln(Rus(‘Результат’));
writeln(‘x=’, x:8:3, ‘ t=’, t); // Вывод результата
readln;
end.
Консоль перед закрытием программы:
Выводы
Для организации циклов с известным числом повторений применяются инструкции:
- Инкрементная: for i:=<начальное значение> to <конечное значение> do <инструкция>. В ней переменная индекса цикла I увеличивается с шагом 1.
- Декрементная: for i:=<начальное значение> downto <конечное значение> do <инструкция>. В нем переменная индекса цикла I уменьшается с шагом 1.
Переменная индекса цикла должна быть порядкового типа (например, Integer).
Если в теле цикла используется много операций, то их нужно оформить, как составную инструкцию, с помощью скобок begin…end.