Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ПРОГРАМИ З РОЗГАЛУЖЕНИМИ ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ
ЛАБОРАТОРНА РОБОТА № 2 : Частина Б
З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ”
для студентів спеціальності 6.0914
“Комп’ютеризовані системи, автоматика і управління”
Львів – 2001
ПОВНИЙ ТЕКСТ ЗАВДАННЯ
1. Вивчити синтаксис, призначення., принцип роботи і використання операторів мови Турбо-Паскаль та основних процедур введення-виведення.
2. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиць 1 і 2 за вказівкою викладача:
б) табулювання функції, представленої рядом (див. табл.2), на інтервалі [a, b] з кроком табуляції h та абсолютною похибкою d. Оцінку похибки здійснювати за значенням модуля чергового члена ряду.
Таблиця 2
№ п/п
Функція
Інтервал, [a, b]
Крок, h
Похибка, d
3
[3, 4]
0.1
0.001
ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ
СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР ТА ФУНКЦІЙ, ВИКОРИСТАНИХ У БЛОК-СХЕМІ АЛГОРИТМУ ПРОГРАМИ
СПИСОК :
A
B
D
X
Y
Z
I
K
Y1
ПОЯСНЕННЯ ІДЕНТИФІКАТОРІВ ЗМІННИХ :
A – ліва крайня межа табулювання
B – права крайня межа табулювання
D – похибка
X – значення аргументу
Y – значення функції
Z – змінна для зберігання значення першого члена ряду
I – лічильник позиції масиву для зберігання значень функції
K – лічильник кроку значення для ряду
Y1 – масив для зберігання значень функції
ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ
Program Lab_2_B;
uses crt;
const h=0.1;
a=3;
b=4;
d=0.001;
type y1_1=array[1..100] of real;
var x,y,z:real;
i,k:integer;
y1:y1_1;
begin
clrscr;
x:=a;
i:=0;
k:=1;
writeln;
writeln('Function E((1/k)*sin(x/exp(k*ln(2)))/cos(x/exp(k*ln(2))))).k=1.suma=<..> :');
writeln;
write(' Y Result : X Result : ');
writeln;
writeln;
repeat repeat y:=1/k*sin(x/exp(k*ln(2)))/cos(x/exp(k*ln(2)));k:=k+1;i:=i+1;y1[i]:=y;until abs(y)<d;
z:=y1[1];for i:=1 to i do z:=y1[(i+1)] + z;
writeln(' ',(z-y1[i]):8:3,' ',x:1:1);
i:=0;k:=1;x:=x+h;until x>b;
end.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ
Function E((1/k)*sin(x/exp(k*ln(2)))/cos(x/exp(k*ln(2))))).k=1.suma=<..> :
Y Result : X Result :
14.777 3.0
48.786 3.1
-33.493 3.2
-11.825 3.3
-6.887 3.4
-4.673 3.5
-3.400 3.6
-2.561 3.7
-1.956 3.8
-1.492 3.9
-1.118 4.0