ПРОГРАМУВАННЯ АЛГОРИТМІВ З РОЗГАЛУЖЕННЯМ Мета роботи: засвоїти методику програмування однієї з базових структур алгоритмів ( розгалуженої; засвоїти запис констант, змінних та операторів. Варіант 13 Задано вирази: Z =
; W=
. Умова Р: x<0 і 2(y+1(0. Скласти блок-схему алгоритму та програму, яка б обчислювала задані вирази для довільних x, y та виводила б повідомлення про виконання умови. ПОСТАНОВКА ЗАДАЧІ. Проаналізуємо дані. Вхідні дані: змінні x,y( дійсні. Вихідні дані: змінні Z, W( дійсні; повідомлення: “Умова Р виконується” та “Умова Р не виконується”. РОЗРОБКА СТРУКТУРИ ДАНИХ. Згідно проведеного аналізу здійснюється розробка структури даних, яка враховує вхідні, вихідні та проміжні змінні. № з/п Позначення Ім’я ідентифікатора Тип Призначення, опис  1. x х Дійсна Аргумент функції вхідна змінна  2. y у Дійсна Аргумент функції вхідна змінна  3. z z Дійсна Функція  4. t1 t1 Символьна Повідомлення: “виконується”  5. a a Дійсна (1+exp(x))  6. b d Дійсна 2*y+1  7. c c Дійсна a*a   РОЗРОБКА БЛОК-СХЕМИ АЛГОРИТМУ. Ні Так ЗАПИС ТЕКСТУ ПРОГРАМИ. program labrob2; const t1:string='ymova'; t2:string='vukonuetsa'; var x,y,z,a,b,c:real; begin write ('vvedit znachenna x,y'); readln(x,y); a:=(1+exp(x)); b:=a*a; c:=2*y+1; if (x<0) and (y>=-0.5) then begin z:=b*sin(c)/exp(ln(abs(c))/5); writeln(t1,t2); end else begin z:=exp(ln(abs(a)*b)/5)*abs(cos(c))/(ln(abs(c))/ln(3)); writeln(t1,'ne',t2); end; writeln('z=',z:7:2); readln; end. В результаті виконання програми отримано наступні результати: Введіть значення x=-12, y=6 <Enter>; х=12, у=45 <Enter>; Z=0.25 умова виконується . Z=324.38 умова не виконується. Висновок: на лабораторній роботі я засвоїв методику програмування однієї з базових структур алгоритмів ( розгалуженої; засвоїти запис констант, змінних та операторів. Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут телекомунікацій, радіоелектроніки та електронної техніки Кафедра теоретичної радіотехніки та радіовимірювань Звіт з лабораторної роботи №2 Тема: «Програмування алгоритмів з розгалуженням» з дисципліни «Інформатика та обчислювальна техніка» Прийняв: Львів-2008