Тема: Побудова алгоритмів з послідовними розгалуженнями. Мета: Навчитися створювати найпростіші програми з розгалуженнями, відлагоджувати їх, запускати на виконання і зберігати на дисках в середовищі програмування. Рівень А Задача: Дано дійсне число х. Обчислити f(x), якщо: f(x)= ( )    +  +  5 2, 2 sin , 2 2 x х x x х Розв’язання: Програма Algo (для ПК) Програма Pascal (для мобільного додатку) program My_function; var x, y: real; begin writeln(‘Vvedit х:’); readln(x); if x<=2 then y:=sin(x)+abs(x) else y:=(sqr(x)+5)/2; writeln (‘Pry x=’, x :5:2); writeln (‘Znachennya funkcii у=’, y:5:2); end. program My_function; uses Crt; var x,y:Real; begin clrscr; writeln (‘Vvedit х:’); readln (x); if x<=2 then y:=sin(x)+abs(x) else y:=(sqr(x)+5)/2; writeln(‘Pry x=’, x :5:2); writeln (‘Znachennya funkcii у=’, y:5:2); repeat until keypressed end. Хід роботи: 1. Перепишіть у зошит умову задачі та програму до неї. 2. Запустіть програму Algo (або додаток Pascal на мобільному пристрої). 3. В робочому вікні програми наберіть програму, яка зображена вище. 4. Запустіть програму на виконання. Дані введіть на свій розсуд (не менше трьох різних наборів). Запишіть у зошит дані, які вводилися та результати обчислень. 5. Збережіть програму в своїй папці під іменем Prog_2_1.pas Рівень Б Задача: Скласти і виконати програму для слідуючої задачі: Обчислити значення функції = { ( + ) − ln| + 7| , < 10 √ 2 + 1,3. ≥ 10 де і – номер в журналі. 1_курс Література: Глинський Я.М., Анохін В.Є., Ряжська В.А. Паскаль. Turbo Pascal i Delphi. Караванова Т.П. Основи алгоритмізації та програмування. Глинський Я.М. Інформатика. Алгоритмізація і програмування. Мова Паскаль. Хід роботи: 1. Перепишіть у зошит умову задачі. Складіть дві програми для її розв’язування використовуючи: а) повну команду розгалуження if; б) коротку команду (неповну форму) розгалуження if. До кожної задачі ввести три набори змінних на власний розсуд та записати результати в зошит. 2. Збережіть першу програму в своїй папці під іменем Prog_2_2.pas, а другу – під іменем Prog_2_3.pas. Рівень В* Задача: Скласти програму для обчислення значення функції (№ оберіть за останньою цифрою порядкового номеру в журналі, 0 відповідає 10). Значення змінних ввести з таблиці. Збережіть програму в своїй папці під іменем Prog_2_4.pas. № з/п Функція № з/п Функція 1       =  = cos( ), 1 1, 1 ln( ), 1 2 e bt t t at t t y at a = −0,5; b = 2; t =1 6      −  = −  = ax ax x a x ax x a x x a x a y cos( ), sin( ), , a = 2,5; x = 6,5 2        +  + = −  = ln( 9 ), 1,3 7 , 1,3 , 1,3 7 2 2 x x x ax x x x x x y a =1,5; x =1 7      +  = −  = ln( ), 1 1, 1 ln( ), 1 bx bx x x bx bx x y b = 2,5; x = 4 3           + + + + = + +  = , 1,2 1 ( ) 1, 1,2 , 1,2 2 2 x x a bx x x x a ax bx c x y a = 2,8; b = −0,3; c = 4; x =1 8          +  + + =  + + = cos( ) , 0,5 , 0,5 1 , 0,5 5 1 2 2 x tx x x x x t x x t x y t = 2,2; x =1,2 4        +  − =  + + = ln( 2 ), 1,4 8 , 1,4 , 1,4 1 6 2 2 x b x bx x x x x x y b = 2; x =1 9       − −  = −  = ax x x a x ax x a e x a x a y x 5, cos( ), , 2 2 2 a = 7,5; x = 6 5      − +  + = +  = ( 2) 6, 2 1,8 , 2 1,5cos 5 , 2 2 2 x x ax tga x x a x y a = 2,3; x = 3 10      −  + =  = ( 8) , 1,7 1,8 cos( ), 1,7 1,5sin , 1,7 2 2 x x ax x x x x y a = 5; x = 5