Пример 6.1.

Вычислить

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

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

Программирование на языке паскаль