МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”

ПРОГРАМИ З РОЗГАЛУЖЕНИМИ ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ ЛАБОРАТОРНА РОБОТА № 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