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

0.2 [2, 5]   Текст програми мовою Pascal Program Lab2; Uses crt; Var a, b, h, x, y : real; Begin Clrscr: Writeln(‘vvedit krok’); Readln(h); Writeln(‘vvedit minimalne x’); Readln(a); Writeln(‘vvedit maximalne x’); Readln(b); x:=a; while x<=b do begin if x<5 then y:= ln(ABS(ln(ABS(ln(x)))/ln(3)/ln(4))/ln(5); if (x>=5) and (x<7) then y:=1/(sqr(x)+16); if x>=7 then y:=ln(x)+cos(x); begin writeln (‘y=’,y:4:2, ‘ x=’,x:4:2 ); x:=x+h; end; end; readln; End. Результати виконання роботи: y=-1.73 x=3.00 y=-1.19 x=3.50 y=-0.96 x=4.00 y=-0.82 x=4.50 y=0.02 x=5.00 y=0.02 x=5.50 y=0.02 x=6.00 y=0.02 x=6.50 y=2.70 x=7.00 y=2.36 x=7.50 y=1.93 x=8.00 Таблиця ідентифікаторів, які використовуються а Початкова точка, в якій обчислити значення функції (тип REAL)  b Кінцева точка, в якій обчислити значення функції (тип REAL)  y Значення функції, яке обчислюється за допомогою стандартних функцій (тип REAL)  h Крок зміни аргументу x  x Змінна, в якій обчислюється значення функції (тип REAL)   Висновок: На цій лабораторній роботі я вивчав оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, вчився складати та відлагоджувати розрахункові пробами з розгалуженими та циклічними алгоритмами БЛОК-СХЕМА