Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 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 Bondur Vladislav');
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, тоді
Результати співпадають, тому моя програма працює як треба.