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

ПРОГРАМИ З РОЗГАЛУЖЕНИМИ ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ ЛАБОРАТОРНА РОБОТА № 2 : Частина А З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ” для студентів спеціальності 6.0914 “Комп’ютеризовані системи, автоматика і управління” Львів – 2001 ПОВНИЙ ТЕКСТ ЗАВДАННЯ 1. Вивчити синтаксис, призначення., принцип роботи і використання операторів мови Турбо-Паскаль та основних процедур введення-виведення. 2. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиць 1 і 2 за вказівкою викладача: а) табулювання функції (див. табл.1), що вибирається залежно від значення аргументу, на проміжку [а, b] з кроком табуляці h. Таблиця 1 № п/п Функції Умови для вибору функцій Крок, h Інтервал, [a,b]  3 

0.2 [4, 6]   ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ y:=1/sin(sqr(x)); i:=i+1;x1[i]:=x;y1[i]:=y; x:=x+h;   y:=x+ln(sqrt(exp(7*ln(x)))); i:=i+1; x1[i]:=x; y1[i]:=y; x:=x+h;   СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР ТА ФУНКЦІЙ, ВИКОРИСТАНИХ У БЛОК-СХЕМІ АЛГОРИТМУ ПРОГРАМИ СПИСОК : A B X Y I X1 Y1 ПОЯСНЕННЯ ІДЕНТИФІКАТОРІВ ЗМІННИХ : Y – значення функції X – значення аргументу A – ліва крайня межа табулювання B – права крайня межа табулювання I – лічильник X1 – масив для зберігання значень аргументу Y1 – масив для зберігання значень функції ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ Program Lab_2; uses crt; const h=0.2; a=4; b=6; type y1_1=array[1..10] of real; x1_1=array[1..10] of real; var x,y:real; i:integer; y1:y1_1; x1:x1_1; begin clrscr; x:=a; i:=0; writeln; while x<4.5 do begin y:=1/sin(sqr(x)); i:=i+1; x1[i]:=x; y1[i]:=y; x:=x+h;end; write(' Y Result : X Result : '); writeln; writeln; for I:=1 to i do writeln(' ',y1[i]:4:2,' ',x1[i]:4:2); i:=0; x:=4.6; while (x>=4.5) and (not(x>4.9)) do begin y:=x+ln(sqrt(exp(7*ln(x)))); i:=i+1; x1[i]:=x; y1[i]:=y; x:=x+h;end; for I:=1 to i do writeln(' ',y1[i]:4:2,' ',x1[i]:4:2); i:=0; x:=5; while (x>=5) and (x<b) do begin y:=ln(exp(x)+4)/ln(10); i:=i+1; x1[i]:=x; y1[i]:=y; x:=x+h;end; for I:=1 to i do writeln(' ',y1[i]:4:2,' ',x1[i]:4:2); end. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ Y Result : X Result : -3.47 4.00 -1.07 4.20 2.05 4.40 9.94 4.60 10.29 4.80 2.18 5.00 2.27 5.20 2.35 5.40 2.44 5.60 2.52 5.80 2.61 6.00