МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра „ЗАХИСТ ІНФОРМАЦІЇ” ЗВІТ до лабораторної роботи №2 а) З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ” на тему: „Програми з розгалуженими та циклічними алгоритмами” Варіант № 12 2. ПОВНИЙ ТЕКС ЗАВДАННЯ Скласти блок-схемy алгоритмy та програмy мовою Турбо-Паскаль для табулювання функції, що вибирається залежно від значення аргументу:
на відрізку [0.5, 2] з кроком 0.2. Забезпечити ввід значень інтервалу та кроку табулювання з клавіатури і вивід результатів на дисплей. 3. ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ 4. СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР І ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ a, b, h, y – змінні типу real для зберігання введених даних та результату роботи; clrscr – процедура очистки екрана яка об’явлена в модулі crt; writeln – процедура виведення текстових повідомлень і значень змінних на екран; readln – процедура яка зчитує дані з клавіатури та присвоює відповідне значення змінній або очікує натискання клавіші Enter; exp(x) – функція яка обчислює експоненту числа; ln(x) – функція для обчислення натурального логарифму числа x; sin(x) – функція знаходження синуса кута x заданого в радіанах; cos(x) – функція знаходження косинуса кута x заданого в радіанах; arctan(x) – функція знаходження арктангенса від змінної х; 5. ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ program lab2; uses crt; var a,b,h,y:real; begin clrscr; Writeln('Vvedit interval [a,b], ta krok h:'); write('a = '); readln(a); write('b = '); readln(b); write('h = '); readln(h); writeln; while (a<=b+h/2) do begin if (a<1) then y:=cos(exp((3/2)*ln(a))); if ((1<=a) and (a<1.5)) then y:=arctan(exp(a)); if (a>=1.5) then y:=exp(5*ln(sin(ln(a)))); writeln('a = ',a:3:1,'; y = ',y:1:3); a:=a+h; end; readln; end. 6. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ Vvedit interval [a,b], ta krok h: a = 0.5 b = 2 h = 0.2 a = 0.5; y = 0.938 a = 0.7; y = 0.833 a = 0.9; y = 0.657 a = 1.1; y = 1.249 a = 1.3; y = 1.305 a = 1.5; y = 0.010 a = 1.7; y = 0.033 a = 1.9; y = 0.077