Пример 6.2.

Вычислить

paskal46

Блок-схема алгоритма

В алгоритме для разнообразия один цикл реализован инструкцией for…to…do, а другой – инструкцией for…downto…do.

paskal47

Листинг программы

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.

Консоль перед закрытием программы:

paskal48

Выводы

Для организации циклов с известным числом повторений применяются инструкции:

  • Инкрементная: for i:=<начальное значение> to <конечное значение> do <инструкция>. В ней переменная индекса цикла I увеличивается с шагом 1.
  • Декрементная: for i:=<начальное значение> downto <конечное значение> do <инструкция>. В нем переменная индекса цикла I уменьшается с шагом 1.

Переменная индекса цикла должна быть порядкового типа (например, Integer).

Если в теле цикла используется много операций, то их нужно оформить, как составную инструкцию, с помощью скобок begin…end.

Twitter SEO Community Ваау! News2.ru Chipp Korica SMI2 Google Bookmarks Digg I.ua Закладки Yandex Linkstore Myscoop Communizm Ru-marks Webmarks Ruspace Linkomatic Kli.kz Web-zakladka Zakladok.net Reddit delicious Ma.gnolia Technorati Slashdot Yahoo My Web БобрДобр.ru Memori.ru rucity.com МоёМесто.ru Mister Wong



Copyright © 2009-2010 Программирование на паскале.