Приклади програм з розгалуженням

Повне розгалуження

If <умова> then <команда 1>

          else <команда 2>

Задача 1. Вивести на екран більше з двох чисел.

Реалізація на Pascal (з коментарями):

program example1;

var x, y: real; {задаємо дві змінних, які будуть присутні в програмі, вони будуть дійсного типу}

begin    {початок}

   write('х='); {на екран виводиться повідомлення "x="}

   read(x); {зчитується значення змінної х, яке задав користувач}

   write ('y='); {на екран виводиться повідомлення "y="}

   read (y); {зчитується значення змінної y}

   if x>y  {перевіряється твердження: "x>y"}

     then write(x) {якщо це твердження істинне, то на екран виводиться значення змінної х}

    else write(y) {інакше, якщо твердження хибне, виводиться значення змінної у}

end.  {кінець програми}

Задача 2. Обчислити значення виразу y, якщо:

Реалізація на Pascal:

program example2;

var x, y: real;

begin

  write('x=');

  read(x);

  if x<0 then y:= 3 else y:= 2*x;

  write ('y=', y)

end.  

Неповне розгалуження

If <умова> then <команда>

Задача 3. Знайти модуль числа х.

Реалізація на Pascal (з коментарями):

program example3;

var x: real; {задаємо змінну дійсного типу}

begin    {початок}

   write('х='); {на екран виводиться повідомлення "x="}

   read(x); {зчитується значення змінної х, яке задав користувач}

   if x<о  {перевіряється твердження: "x<о"}

    then x:= - x; {якщо це твердження істинне, то змінній х присвоюється протилежне значення}

  write(x) {на екран виводиться значення змінної х}

end.  {кінець програми}

Приклади задач

Задача 4. Визначити, чи належить точка С відрізку АВ, якщо довжина відрізка AC = a, BC = b, AB = c. Значення a, b, c користувач вводить з клавіатури.

var a, b, c: real;
begin
  write('AC=');
  read(a);
  write('BC=');
  read(b);
  write('AB=');
  read(c);
  if (a+b=c) then writeln('точка С належить відрізку AB')
     else writeln ('точка С не належить відрізку AB')
end.

Задача 5. Дано значення дійсної величини х. Обчислити значення виразу:

var x, z: real;

begin

  write('x=');

  read(x);

  if (x*x*x+x-2=0) then writeln ('неможливо обчислити')

  else

   begin

     z:=(x-4)/(x*x*x+x-2);

     write(z)

   end;

end.  

Задача 6. Визначити, чи належить число х числовому проміжку  від -3 включно до 5 включно. 

program example1;

var x: real;

begin

 read (x);

 if (x>=-3) and (x<=5)

  then write('число належить проміжку')

  else write('число не належить проміжку')

end.