Коледж електронних приладів
Івано-Франківського національного технічного університету нафти і газу
МЕТОДИЧНА РОЗРОБКА ПОКАЗОВОГО ПРАКТИЧНОГО ЗАНЯТТЯ
з дисципліни
"Основи програмування"
на тему: Програмування обчислювальних процесів розгалуженої структури
зі студентами групи ТК-12-01
Підготувала викладач
О.І.Кучеренко
Івано-Франківськ
2014
Архітектура заняття
№ з/п |
Час (хв.) |
Структура заняття |
Примітка |
||
Кількість |
Початок |
Завершення |
|||
1 |
1 |
11:10 |
11:11 |
Організаційна частина |
|
2 |
2 |
11:11 |
11:113 |
Оголошення теми та мети практичного заняття |
|
3 |
10 |
11:13 |
11:23 |
Повторення та закріплення теоретичних знань |
|
4 |
10 |
11:23 |
11:33 |
Виконання тестових завдань |
|
5 |
15 |
11:33 |
11:45 |
Пояснення методики і порядку виконання завдання 1 |
|
6 |
20 |
11:45 |
12:05 |
Пояснення методики і порядку виконання завдання 2 |
|
5 |
20 |
12:00 |
12:20 |
Виконання практичних завдань. Визначення команди переможниці. |
|
6 |
5 |
12:20 |
12:25 |
Робота з блок-схемами. |
|
7 |
3 |
12:25 |
12:28 |
Підведення підсумків заняття. Мотивація оцінок |
|
8 |
2 |
12:28 |
12:30 |
Оголошення домашнього завдання |
|
Практичне заняття №2
Тема: Програмування обчислювальних процесів розгалуженої структури
Мета:
- навчити студентів складати програми з використанням команд розгалуження;
- виховувати пізнавальний інтерес, мотивацію студентів до навчання шляхом розв’язання нестандартних завдань;
- розвивати логічне мислення, пам'ять і увагу, уміння працювати самостійно і в групі.
Навчально-методичне забезпечення, ТЗН: методичні вказівки до виконання практичного завдання, матеріали лекції та самостійної роботи студентів, комп'ютерний клас з мультимедійним проектором, слайди.
План
Використання оператора розгалуження if, при роботі у середовищі.
Використання оператора вибору Case. Структура заняття
І. Організаційний момент.
ІІ. Оголошення теми та мотивація навчальної діяльності.
ІІІ. Повторення та закріплення теоретичних знань.
1)Запитання до студентів:
Щ
о
розуміють під розгалуженням?Які типи розгалужень вам відомі?
Що розуміють під короткою формою розгалуження (формат команди)?
Що розуміють під повною формою розгалуження (формат команди)?
Що розуміють під оператором вибору (формат команди)?
В яких випадках і для чого використовують оператор вибору?
Як на мові Turbo Pascal записати ціле число x кратне 5(X mod 5=0)?
Як на мові Turbo Pascal записати ціле число x непарне (X mod 2<>0)?
9. Як на мові Turbo Pascal записати число x від’ємне (X<0)?
10. Які логічні операції використовуються в Turbo Pascal?
2) Виконання тестових завдань:
1. Дано: if
P then S1 else S2; S3;
При
хибній умові Р виконаються команди:
|
2. Лише прості умови вказано: x<5; 17-x=29*y; 15-9*z>0; x and y; not(x) and y; x+y=6; 36*a+b<=3; a or b. |
3. Логічний тип даних може набувати значень: true, 'no', 'yes'; false, true, 'yes', 'no'; false, true, 1 ,0; true, false. |
4. Складена умова - це: два математичні вирази, між якими стоїть знак порівняння; дві і більше простих умови, з'єднаних знаком логічних операцій. |
5. Складена умова P1 and P2 істинна, коли: вірні обидві умови P1 і P2; істинна умова P1; обидві умови хибні; вірна умова P2. |
6. Операцію and називають: логічним додаванням; логічним множенням; заперечуваним "або"; логічним об'єднанням. |
7. Складена умова P1 or P2 невірна: невірна умова P1; невірна умова P2; вірні обидві умови P1 і P2; невірні обидві умови P1 і P2. |
8. Операцію or називають: запереченням "і"; логічним додаванням; логічним множенням; логічним об'єднанням. |
9. x:= 5; y:= -7. Істинною буде складена умова: (x+5<>7+y) xor (x>y); (x>2*y) xor (-3*y>x); (x+y=2) xor (x<y); (2*x-10=y+6) or (x-12=y). |
10. Операція not(P) буде істинною, якщо умова P: істинна; хибна. |
11. Пріоритет виконання операцій у логічних виразах: у дужках, логічні операції, * і /, операції порівняння, + і -; у дужках, операції / і *, операції + і -, операції порівняння, логічні операції; логічні операції, * і /, у дужках, операції порівняння, операції - і +; операції / і *, у дужках, операції порівняння, + і -, логічні операції. |
12 У результаті виконання програми Const x=71; y= -19; Var t1, t2: boolean; begin t1:= (x+6=2*y) and ((x=5) xor (y>0)); t2:= (not(x>0) xor (x+y=5)); Write(t1, ' ', t2) end. буде виведено: false false; true false; false true ; true true. |
S1,
S2, S3;
S1,
S2;
S2,
S3;
S1,
S3.
ІV. Виконання практичних завдань:
З
авдання
1. (колективне
розв’язування)
Користувач вводить число. Якщо воно додатнє, то ПК розрахує корінь числа, якщо ж від’ємне – піднесе до квадрату.
Скласти короткий опис задачі, блок-схему і програмний код.
Короткий опис програми:
а - деяке число цілого типу;
у
- результат дійсного типу, виконуваної
умови, якщо деяке число «а» буде більше
«0», то виконається вираз у=
,
в іншому випадку у=а2
.
Блок-схема програми:
Програмний код:
Program matem-1;
Uses CRT;
Var a:integer;
Y:real;
Begin
Writeln (‘Введіть число a’);
Readln(a); -------людина вводить своє число.
If a>0 then y:=Sqrt(a) else y:=a*a; ----вибір дії комп’ютером.
Writeln('y=',y:3:1);; -----виведення результату.
End.
Результати виконання:
З авдання 2. (колективне розв’язування)
Задача визначення категорії оцінювання за введеним числом.
Користувач вводить цифру, а ПК визначає до якої категорії оцінювання відноситься така оцінка.
Якщо:
від 1 до 3 – погано,
від 4 до 6 – посередньо,
від 7 до 9 – добре,
від 10 до 12 – відмінно.
Врахувати введення чисел, що не являються оцінкою.
Скласти короткий опис задачі, блок-схему і програмний код.
Короткий опис програми:
а - деяка змінна цілого типу, величина оцінки по якій буде здійснюватися вибір.
Перевіряємо значення цієї змінної:
Якщо змінна вибору а співпадає з сталими від 1..3 вивести на екран «погано» Writeln(‘Погано’).
Якщо змінна вибору а співпадає з сталими від 4..6 вивести на екран «посередньо» Writeln(‘Посередньо’).
Якщо змінна вибору а співпадає з сталими від 7..9 вивести на екран «добре» Writeln(‘Добре’).
Якщо змінна вибору а співпадає з сталими від 10..12 вивести на екран «відмінно» Writeln(‘Відмінно’).
при інших значеннях змінної вибору потрібно надрукувати слово «такої оцінки немає» Writeln(‘Такої оцінки немає’).
Блок-схема програми:
Вибір
а
Програмний код:
Program OCINKA;
Uses crt;
Var a:integer; -----------(величина для вибору цілого типу)
Begin
Writeln(‘Введіть Вашу оцінку’);
Readln(a); -------(величина-оцінка, по якій буде вибір дій)
Case a of
1..3 : Writeln(‘Погано’);
4..6 : Writeln(‘Посередньо’); Вибір варіанту
7..9 : Writeln(‘Добре’);
10..12 : Writeln(‘Відмінно’);
Else Writeln(‘Такої оцінки немає’); ----(якщо ні одне значення
End; не підійшло)
End.
Результати виконання:
З
авдання
3
(індивідуально-колективне
розв’язування, робота в групах).
Команда «Альфа»;
Умова: Обчислити
Програмний код:
Рrogram lab3;
Uses crt;
var
y,b,c,x:real;
begin
write ('Введіть значення b,c,x;');
readln (b,c,x);
if x<=4 then y:=b*x+c
else if (x<4) and (x>-4) then y:=2*b*x
else if (c<>0) and (x>=4) then y:=b*x/c
else y:=1;
writeln (‘b=’,b:4:2,'c=',c:4:2, ‘x=’,x:4:2);
writeln;
writeln ('результат:y=',y:4:2);
end.
Зразок результату виконання:
Тестуємо першу вітку:
Тестуємо другу вітку:
Тестуємо третю вітку:
Тестуємо четверту вітку:
Команда «Бета»;
Умова: Обчислити
Програмний код:
Program ddt;
uses crt;
var
y,b,a:real;
begin
write ('Введіть значення b,a;');
readln (b,a);
if b=0 then y:=0
else if (a>b) and (a<>1) then y:=sqr(a)/sqr(b)
else if (a<b) then y:=sqr(b)-sqr(a)
else y:=1;
writeln ('b=',b:4:2, 'a=',a:4:2);
writeln;
writeln ('Результат :y=',y:4:2);
end.
Зразок результату виконання:
Тестуємо першу вітку:
Тестуємо другу вітку:
Тестуємо третю вітку:
Тестуємо четверту вітку:
Команда «Гама»;
Умова: Обчислити
Програмний код:
Program ddt;
uses crt;
var
y,x:real;
begin
write ('Введіть значення x;');
readln (x);
if (x>1) and (x<=6) then y:=3.45*x/(1-sqr(x))
else if x>6 then y:=exp(3*ln(x))-7.5
else if (x<0) and (x<=1) then y:=1/x
else y:=sqr(x);
writeln ('x=',x:4:2);
writeln;
writeln ('Результат :y=',y:4:2);
end.
Зразок результату виконання:
Тестуємо першу вітку:
Тестуємо другу вітку:
Тестуємо третю вітку:
Тестуємо четверту вітку:
