Завдання з розв'язками до тематичного оцінювання з теми "Вказівка розгалуження та її опис мовою програмування."
1. Який логічний вираз відповідає твердженню, що точка А(х) належить відрізку [5;10]?
Відповідь: (х>=5) and (x<=10)
2. Якого значення набуватиме логічний вираз(х>5) and (x<10) , якщо х=2? Відповідь: хибне.
3. Записати умову того, що число A недодатнє.
Відповідь: A<=0
4. Записати умову кратності числа А числам 34 та 67.
Відповідь: (A mod 34=0 ) and (A mod 67=0)
5. Записати умову кратності числа А числу 5.
Відповідь: A mod 5=0
6. Записати на мові Паскаль наведені нижче команди:
Присвоїти змінній А число 0 у тому випадку, якщо значення змінної В дорівнює 11
Відповідь: If B=11 then A:=0;
7. Присвоїти змінній Х число 230, якщо сума значень змінних А і В менше їхнього добутку, і присвоїти змінній Х число 1, якщо це не так.
Відповідь: If A+B<A*B then X:=230;
If A+B>=A*B then X:=1;
Або 2 спосіб If A+B<A*B then X:=230 else X:=1;
8. Присвоїти змінній B число 3, якщо значення змінної С менше 121.
Відповідь: If С<121 then В:=3;
9. Присвоїти змінній R число 20, якщо різниця значень змінних К і А менше їхньої частки, і присвоїти змінній R число 0, якщо це не так.
Відповідь: If K-A<K/A then R:=20;
If K-A>=K/A then R:=0;
Або 2 спосіб If K-A<K/A then R:=20 else R:=0;
10. Присвоїти змінній N число 100 в тому випадку, якщо значення змінної А в 2 рази більше значення змінної С.
Відповідь: If A/C=2 then N:=100;
11. Присвоїти змінній Х суму чисел А і В у тому випадку, якщо значення змінної Х не менше значення змінної А, і присвоїти тій же змінній різницю зазначених чисел, якщо це не так.
Відповідь: If X>=A then X:=A+B;
If X<A then X:=A-B;
Або 2 спосіб If X>=A then X:=A+B else X:=A-B;
12. Присвоїти змінній F число 22 у тому випадку, якщо значення змінної F=11.
Відповідь: If F=11 then F:=22;
НАПИСАТИ ТЕКСТИ ПРОГРАМ ДО ЗАДАЧ
13. Обчислити значення виразу
Обчислення цього виразу неможливе, якщо в знаменнику 0 (ділити на 0 не можна) , тому перед обчисленням необхідно перевірити, чи не дорівнює нулю знаменник. Знаменник – це вираз, що стоїть під рискою дробу
Текст програми:
Program drib;
Var a,b,y:real;
Begin
Writeln(‘введіть а і b’);
Readln(a,b);
If a+b=0 then writeln(‘ділення неможливе’);
If a+b <> 0 then begin
Y: = (5*a-b)/(a+b);
Writeln(‘y=’, y:8:2);
End;
Readln;
End.
14. Дані три дійсних числа a, b і с. Подвоїти їх, якщо а на менше b і b не менше с, якщо це не так, то замінити їх абсолютними значеннями.
Текст програми:
Program abc;
Var a,b,c:real;
Begin
Writeln(‘Введіть три числа’);
Readln(a,b,c);
If (a>=b) and (b>=c) then begin
A:=a*2;
B:=B*2;
C:=C*2;
End
else begin
A:=ABS(A);
B:=ABS(B);
C:=ABS(C);
End;
Writeln(‘A=’,A);
Writeln(‘B=’,B);
Writeln(‘C=’,C);
Readln;
END.
15. Дані два цілих числа M і N. Для додатних із них знайти залишок від ділення на 5.
Текст програми:
Program MN;
Var m,n,a,b:integer;
Begin
Writeln(‘Введіть два числа’);
Readln(m,n);
If m>0 then writeln(‘залишок від ділення ’, m, ‘на 5 = ’, m mod 5);
If n>0 then writeln(‘залишок від ділення ’, n, ‘на 5 = ’, n mod 5);
Readln;
End.
16. Обчислити значення функції
У= якщо x<=-5
в іншому випадку (x>-5)
Текст програми:
Program xxx;
Var x,y:real;
Begin
Writeln(‘введіть x’);
Readln(x);
If x<=-5 then y:=(5*x – 9) / ( abs(x)+13) else
Y:= (sqr(x)- x+2) / ( x+1);
Writeln(‘x=’, x :8:2);
Writeln(‘y=’, y :8:2);
Readln;
End.
17. Обчислити значення функції
Y= якщо x <-2
якщо -2 x 2
12 якщо x >2
Текст програми:
Спосіб
Program xxx1;
Var x,y:real;
Begin
Writeln(‘введіть х’);
Readln(x);
If x < = -2 then y:= (2*x+3.5*sqr(x)-7) / x;
If (x > = 2) and (x < = 2) then y:= (x-9) / (x+9);
If x > 2 then Y:=12;
Writeln( ‘x=’, x:8:2);
Writeln( ‘y=’, y:8:2);
Readln;
End.
Спосіб
Program xxx2;
Var x,y:real;
Begin
Writeln(‘введіть х’);
Readln(x);
If x < = -2 then y:= (2*x+3.5*sqr(x)-7) / x else If x < = 2 then
y:= (x-9) / (x+9) else Y:=12;
Writeln( ‘x=’, x:8:2);
Writeln( ‘y=’, y:8:2);
Readln;
End.
18. Обчислити значення функції
якщо N min <5
Y=
якщо N min >=5
Текст програми:
Program NNN;
Var n1, n2 , n3 , min : real;
Begin
Writeln (‘введіть n1, n2 і n3’);
Readln(n1, n2, n3);
If (n1 < n2) and (n1 < n3) then min:=n1 else
If n2 < n3 then min:=n2 else min:=n3; пошук мінімального з трьох чисел
If min <5 then y:= n1+n2-n3 else y:= n2/(n3-n1);
Writeln(‘y=’,y:8:2);
Readln;
End.
Завдання для самостійної роботи з теми "Вказівка розгалуження та її опис мовою програмування."
1. Написати програму яка визначає парність введеного цілого числа N?
2. Написати програму яка визначає чи кратне 10 введене ціле число M?
3. Ввести три числа. Якщо два з них однакові то і третьому присвоїти те ж значення.
4. Обчислити значення виразу
якщо a<0 і b<0
Y= ab+9 в інших випадках
5. Обчислити значення виразу
X+5 , якщо х кратне 3
Y= х , якщо х при діленні на 3 дає залишок 2
15 в інших випадках
6. Дано два дійсних числа. Арифметичні дії над числами пронумеровані (1-додавання, 2—віднімання, 3—ділення, 4—множення). Скласти програму, яка по введеному номеру виконує ту чи іншу дію над числами.
7. Написати програму, яка б по введеному номеру одиниці виміру (1—кілограм, 2—міліграм, 3—грам, 4—тона, 5—центнер ) та масі M видавала б відповідне значення маси в кілограмах.
8. Обчислити значення виразу
C= , якщо а < 2
, якщо 2 < = a < = 10 та a2 +a+1 , якщо a > 10
6. Вказівка повторення.
Опис вказівки повторення мовою програмування
Вказівки повторення дозволяють багаторазово виконувати окремі вказівки або послідовність вказівок. Вказівки, які повторюються, називаються тілом циклу.
Якою б не була вказівка повторення, для її роботи необхідно:
· Задати початкове значення, тобто з якого значення почне свою роботу цикл;
· Задати кінцеве значення або умову виконання циклу;
· Задати прирощення значення або крок, з яким буде працювати цикл.
Вказівками циклу в Турбо Паскалі є цикл з передумовою, цикл з післяумовою і цикл з лічильником.
У= 
якщо x<=-5
в іншому випадку (x>-5)
якщо x <-2
якщо -2 
x 
якщо N min <5
якщо N min >=5
якщо a<0 і b<0
C= 
, якщо а < 2
, якщо 2 < = a < = 10 та a2 +a+1 , якщо a > 10