МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Звіт про виконання лабораторної роботи №2-б ПРОГРАМИ З РОЗГАЛУЖЕНИМИ ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ Мета роботи - вивчити оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчитися складати та відлагоджувати розрахункові програми з розгалуженими та циклічними алгоритмами. ЗАВДАННЯ 1. Домашня підготовка до роботи 1. Вивчити синтаксис, призначення., принцип роботи і використання операторів мови Турбо-Паскаль та основних процедур введення-виведення. 2. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиці за вказівкою викладача: б) табулювання функції, представленої рядом (див. табл.), на інтервалі [a, b] з кроком табуляції h та абсолютною похибкою d. Оцінку похибки здійснювати за значенням модуля чергового члена ряду. Таблиця № п/п Функція Інтервал, [a, b] Крок, h Похибка, d  17 
[1.05, 1.5] 0.05 10-5   2.2. Робота в лабораторії 1. Ввести в комп'ютер програми, написані мовою Турбо-Паскаль згідно з отриманим завданням. 2. Відлагодити програми. При необхідності скоригувати блок-схеми алгоритмів та програми у відповідності з виявленими логічними та синтаксичними помилками. 3. Остаточні версії блок-схем, програм та отримані результати занести у звіт з лабораторної роботи. 4. Здати звіт з лабораторної роботи. СПИСОК ІДЕНТИФІКАТОРІВ ЗМІННИХ: x – змінна; min – мінімальне значення х; max – максимальне значення х; k – крок; poh – похибка; rez – результат виразу; s – сума. БЛОК-СХЕМА ПРОГРАМА program lab2b; uses crt; var x, min, max, k, poh, rez, s: real; n: integer; begin clrscr; write(‘vveditb krok: k=’); read(k); write(‘vveditb min=’); read(min); write(‘vveditb max=’); read(max); poh:=0.00001; x:=min; while x<=max+0.0001 do begin n:=1; repeat begin if n mod 2=0 then rez:=-exp(n*ln(x-1))/n else rez:=exp(n*ln(x-1))/n; s:=s+rez; n:=n+1 end; until abs(rez)<=poh; writeln(‘x=’,x:2:2,’ suma=’,s:5:5); s:=0; x:=x+k end end. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ: x=1.05 suma=0.04879 x=1.10 suma=0.09531 x=1.15 suma=0.13976 x=1.20 suma=0.18232 x=1.25 suma=0.22315 x=1.30 suma=0.26236 x=1.35 suma=0.30011 x=1.40 suma=0.33647 x=1.45 suma=0.37156 x=1.50 suma=0.40547 Висновок: на цій лабораторній роботі я вивчив оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчився складати та відлагоджувати розрахункові програми з розгалуженими та циклічними алгоритмами.