Пример 6.1.

Вычислить

paskal43

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

paskal44

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

program prg_6_1;

{$mode objfpc}{$H+}

uses

Classes, SysUtils, RusTrans;

var

x,z: real;

i: integer;

begin

writeln(Rus(‘Введите x’));           // Ввод x

write(‘x=’);

readln(x);

z:=0;                                                     // Обнуление суммы

for i:=1 to 20 do z:=z+(sqr(x)/i);    // Накопление суммы

writeln;

writeln(Rus(‘Результат’));

writeln(‘x=’, x:8:3, ‘ z=’, z);            // Вывод результата

readln;

end.

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

paskal45

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 Программирование на паскале.