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

0.02 [0.5, 0.9]   Остаточна версія блок-схеми алгоритму. a)
 Список ідентифікаторів констант, змінних, процедур і функцій, використаних у блок-схемі алгоритму і програмі, та їх пояснення. a,b – змінні типу real, яким присвоюються значення кінців проміжку; H - змінні типу real, якій присвоюються значення кроку табуляції; X - змінна типу real, яка змінюється в діапазоні [a,b] з кроком h; Y - змінна типу real, яка використовується для присвоєння значень виразуя; Clrscr – процедура очищення екрану; Write – процедура виводу тексту на дисплей; Writeln - процедура виводу тексту на дисплей (курсор переходить на новий рядок); Read – процедура вводу змінних з клавіатури; Readln – процедура вводу змінних з клавіатури(курсор переходить на новий рядок); Readkey – процедураочікування натискання клавіші з клавіатури; Cos(x) – функція знаходження косинуса х; Sin(x) - функція знаходження синуса x; Arctan(x) - функція знаходження Arctan(x) Остаточна версія програми. PROGRAM lab2A; USES crt; Var x,y,a,b,h:real; BEGIN clrscr; writeln('Vvedit chislo a='); read(a); writeln('Vvedit chislo b='); read(b); writeln('Vvedit chislo h='); read(h); X:=a; While x<b+h do Begin If X<0.6 then y:=cos(sqrt(x)); If (x>0.6) and (x<0.7) then Y:=cos(x*x)/sin(x*x); If x>=0.7 then y:=arctan(x*x*x); Writeln(‘X=’,x:4:3,’y=’,y:4:2); end; readkey; end. Результати роботи програми 'Vvedit chislo a=0.5 'Vvedit chislo b=0.9 'Vvedit chislo h=0.02 x=0.5 y= 0.76 x= 0.82 y=0.5 x=0.52 y=0.75 x= 0.84 y=0.54 x= 0.54 y=0.74 x= 0.86 y=0.57 x= 0.56 y=0.73 x= 0.88 y=0.6 x=0.58 y=0.72 x= 0.9 y=0.63 x= 0.6 y=2.66 x=0.62 y=2.47 x=0.64 y=2.3 x=0.66 y=2.15 x=0.68 y=2.01 x=0.7 y=0.33 x=0.72 y=0.36 x=0.74 y=0.39 x=0.76 y=0.41 x=0.78 y=0.44 x= 0.8 y=0.47