Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 3_2
з дисципліни
“Основи програмування та алгоритмічні мови”
Тема: ітераційні цикли
Постановка задачі
З точністю 0.00001 знайти значення змінної:
Аналітичні викладки
Текст програми з коментарями
uses crt;
const e=0.00001; {tochnostb}
x=0.56; {po usloviy}
var y:real; {iskomaya}
y0:real; {promegutochnaya peremennaya}
n:longint; {schetchik}
BEGIN
clrscr;
writeln('Result of laboratory work 3_2');
writeln('variant 4');
writeln('Executed student of group IP-02 Bondur Vladislav');
repeat
n:=n+1;
y0:=y;
y:=1/sqr(n)+y;
writeln('y(',n:2,')=',y:9:8);
until abs(y-y0)<e;
y:=sin(x)*y;
write('Dlya x = ',x:4:2);
writeln(' znachenie funkcii y = ',y:0:7);
readln;
END.
Блок-схема алгоритму
Результат виконання програми у вигляді відеокопії екрана
/
Висновки
Отже, перевіримо, чи правильно працює моя програма:
Між 315 та 316 елементами суми, різниця складає 0.00001001
Це число більше точності e=0.00001, тому цикл програми не завершується.
Між 316 та 317 елементами суми, різниця складає 0.00000995
Це число менше точності e=0.00001, тому на цій ітерації цикл програми завершується.
Дійсно, сума
Тоді
Результати співпадають, тому моя програма працює як треба.