Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Звіт
про виконання лабораторної роботи №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
Висновок: на цій лабораторній роботі я вивчив оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчився складати та відлагоджувати розрахункові програми з розгалуженими та циклічними алгоритмами.