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