Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 3_1 з дисципліни “Основи програмування та алгоритмічні мови” Тема: арифметичні цикли Київ 2010 Постановка задачі Для заданого значення x обчислити суму перших n членів ряду
. Аналітичні викладки
, де ki-це ‘I’-тий член ряду.


Отже кожний наступний член ряду більше попереднього на число
Блок-схема алгоритму
Текст програми з коментарями program vichislenie_summi_ryada; uses crt; var s:real; {summa pervix n chlenov ryada s(x) } x:real; {peremennaya x } n:integer; {kolichestvo chlenov ryada s(x) } i:integer; {schetchik} k:real; {promegutochnoe znachenie} BEGIN repeat textbackground(3); clrscr; textcolor(black); writeln('Result of laboratory work 3'); writeln('variant 4'); writeln('Executed student of group IP-02 [ім’я автора приховано]'); textcolor(white); write('vvedite "x","n": '); textcolor(blue); read(x,n); textcolor(red); k:=1; s:=1; if n>=1 then begin for i:=1 to n-1 do s:=s+k*x/i; writeln('s=',s:0:5); end else writeln('vvedite pologitel`noe chislo n, ili n bol`she 0'); writeln('dlya vixoda iz programmi nagmite Esc') until ord(readkey)=27 END. Результат виконання програми у вигляді відеокопії екрана / Висновки Отже, перевіримо, чи правильно працює моя програма: Нехай х=5 та n=3, тоді
Результати співпадають, тому моя програма працює як треба.