27 лист. 2015 р.

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

Повне розгалуження
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.

Немає коментарів:

Дописати коментар