1 Спосіб
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.
2 Спосіб
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.
Обчислити значення функції
якщо 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.
Завдання для самостійної роботи з теми "Вказівка розгалуження та її опис мовою програмування."
Написати програму яка визначає парність введеного цілого числа N?
Написати програму яка визначає чи кратне 10 введене ціле число M?
Ввести три числа. Якщо два з них однакові то і третьому присвоїти те ж значення.
Обчислити значення виразу
якщо
a<0 і b<0
Y= ab+9 в інших випадках
О бчислити значення виразу
X+5 , якщо х кратне 3
Y= х , якщо х при діленні на 3 дає залишок 2
15 в інших випадках
Дано два дійсних числа. Арифметичні дії над числами пронумеровані (1-додавання, 2—віднімання, 3—ділення, 4—множення). Скласти програму, яка по введеному номеру виконує ту чи іншу дію над числами.
Написати програму, яка б по введеному номеру одиниці виміру (1—кілограм, 2—міліграм, 3—грам, 4—тона, 5—центнер ) та масі M видавала б відповідне значення маси в кілограмах.
Обчислити значення виразу
C
=
, якщо а < 2
, якщо
2 < = a < = 10 та
a2
+a+1 , якщо a > 10
6. Вказівка повторення. Опис вказівки повторення мовою програмування
Вказівки повторення дозволяють багаторазово виконувати окремі вказівки або послідовність вказівок. Вказівки, які повторюються, називаються тілом циклу.
Якою б не була вказівка повторення, для її роботи необхідно:
Задати початкове значення, тобто з якого значення почне свою роботу цикл;
Задати кінцеве значення або умову виконання циклу;
Задати прирощення значення або крок, з яким буде працювати цикл.
Вказівками циклу в Турбо Паскалі є цикл з передумовою, цикл з післяумовою і цикл з лічильником.
Вказівка циклу з передумовою
Ця вказівка має вид: WHILE вираз DO вказівка;
або WHILE вираз DO
begin
вказівка1;
вказівка2;
вказівка3; . . .
end;
Вказівка цикла з передумовою дозволяє багаторазово виконувати одні і ті ж дії в залежності від деякої умови, яка записується між словами WHILE і DO і повинно бути виразом бульового типу.
Цей цикл працює так: спочатку, задавши початкове значення, при вході в цикл обчислюється умова. Якщо вона дорівнює False тобто – Неправда, то входження в цикл не виконується і управління передається вказівці, що стоїть безпосередньо за вказівкою тіла циклу. Якщо ж умова дорівнює True – тобто Істина, то виконується входження в цикл і одноразове виконання його тіла. Як тільки досягнуто кінця циклу і зроблено прирощення значення, управління знову передається на заголовок циклу, де знову обчислюється умова. Якщо значення умови все ще істинно, то тіло циклу виконується ще раз, і так далі. Якщо значення умови дорівнює False, робота циклу завершується.
Запишемо текст попередньо розглянутої програми, використовуючи вказівку циклу з передумовою :
PROGRAM SUMMA1;
VAR n,s,i: integer;
BEGIN
WRITE (‘Введіть кількість чисел ’);
READLN(N);
S:=0;
I:=1;
WHILE I<=N DO BEGIN
IF I MOD 2=0 THEN S:=S+I;
I:=I+1;
END;
WRITELN (‘Сума парних чисел від 1 до ’ , N, ’ дорівнює ’, S);
END.