1. Усне опитування. 2. Повтор стандартних арифметичних функцій. ( Робота з таблицею.) 3. Пригадати загальну структуру лінійної програми ( Структура на. - презентация

1

2

3

4 1. Усне опитування. 2. Повтор стандартних арифметичних функцій. ( Робота з таблицею.) 3. Пригадати загальну структуру лінійної програми ( Структура на слайді ) 4. Закріпити знання по вивчених службових словах і операторах мови Паскаль ( кросворд ) ( кросворд )

5 СТРУКТУРА ЛІНІЙНОЇ ПРОГРАМИ PROGRAM ; CONST = ; VAR : ; BEGIN ; WRITELN ; END.

6 ОПИТУВАННЯ З МЕТОЮ ОЦІНЮВАННЯ Роздатковий матеріал ( задачі на картках ) Альтернативний метод порівняння ( тести на картках ) Робота з контролюючою програмою ( тест - програма на ПК ) Розв язок задачі на повторення ( робота біля дошки )

7 Блез Паскаль Народився 19 червня червня1623 Помер 19 серпня серпня1662 Громадянство Франція Франція Галузь наукових інтересів математика, фізика, філософія математика, фізика, філософія Відомий у зв ' язку з : трикутник Паскаля, закон Паскаля трикутник Паскаля закон Паскаля Ніклаус Вірт Народився 15 лютого лютого 1934 Громадянство Швейцарія Швейцарія Галузь наукових інтересів інформатика, програмування інформатика, програмування Відомий у зв ' язку з : розробкою концепції об єкто - орієнтовних мов програмування (Modula(2), Oberon, Pascal) розробкою концепції об єкто - орієнтовних мов програмування (Modula(2), Oberon, Pascal)

8 Cкласти програму для обчислення періоду математичного маятника довжиною l. T=2 l/g, g=9.81 м/с 2. PROGRAM МАЯТНИК; CONST PI=3.14; G=9.8; VAR T,L:REAL; BEGIN READ(L); T:=2*PI*SQRT(L/G); WRITELN(T=,T); END.

9 Розгалужений – алгоритм, в якому перевіряється певна умова, від виконання якої залежать усі подальші дії. Умовний оператор IF If If then then ; else ; УВАГА ! Оператор 1, 2 – будь - який оператор мови Pascal; може бути складеним. Складений оператор обмежують операторними дужками begin…end Перед then та else не можна ставити ;. Повне розгалуженняСкорочене розгалуження

10 ЗАГАЛЬНА СТРУКТУРА ПРОГРАМИ З РОЗГАЛУЖЕННЯМ PROGRAM ( ); CONST = ; VAR : ; BEGIN ; IF THEN ELSE ; WRITELN ; END.

11 ПОЧАТОК КІНЕЦЬ ВВІД ДАНИХ ВИВІД ДАНИХ БЛОК ОБЧИСЛЕНЬ БЛОК ОБЧИСЛЕНЬ ПРИ ВИКОНАННІ УМОВИ БЛОК ОБЧИСЛЕНЬ ПРИ НЕ ВИКОНАННІ УМОВИ ТАК УМОВА НІ

12 Дано три нерівних числа a,b,c. Обчислити і надрукувати значення Z, рівне квадрату більшого із них. Текст програми на мові Паскаль: PROGRAM KB; VAR A, B, C,Z: REAL; BEGIN READ (A, B, C); IF A>B THEN Z:=A ELSE Z:=B; IF C>Z THEN Z:=C; Z:=SQR(Z); WRITELN (Квадрат більшого числа, Z ); END.

13 Program F1; Var a, b, c, x1, x2, d : real; Begin readln (a, b, c); d:=b*b-4*a*c; if d<0 then writeln (Коренів немає) else begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln (корені є:, x1, x2); end; End. Задача: Скласти програму розв'язання квадратного рівняння Де а=0

14 Домашнє завдання: Вивчити теоретичний матеріал уроку; (на 7 балів) Скласти програму та блок-схему для обчислення функції: (на 9 балів) Скласти програму та блок-схему для обчислення функції: (на 12 балів) Скласти програму та блок-схему для обчислення функції:

15