Алгоритмические языки и программирование. Игошина Л.В. - 26 стр.

  Var x,F: real;
{ Раздел операторов}
Begin
Writeln(' Введите x'); {Запрос на ввод x}
Readln(x);         {Ввод значения x}
if x>2 then F:= (x-2)*(х-2)*(х-2)* Sin(Pi *х/2);
if x=2 then F:= (a*a-b*b)* Cos (Pi);
if x<2 then if Cos (x) <> 0 then
       F:= a*Sin(x)/Cos(x)+Sqrt (Abs(x-2))
        else begin Writeln(' Знаменатель равен 0');
           exit { Выход из программы } end;
  {Вывод результатов}
Writeln(' При x = ',x:6:2,' F = ',F:8:3); readln;
End.

            Текст программы
с использованием структуры if ... then ... else ...;
         {Лабораторная работа 2}
       {Студенты гр. ..... Фамилии …}
{ Пример программы с разветвляющейся структурой}
{ Раздел описаний данных}
   Const a=2.0; b=3.0;
   Var x,F: real;
 { Раздел операторов}
  Begin
Writeln(' Введите x'); {Запрос на ввод x}
Readln(x);          {Ввод значения x}
if 0 x>2 then F:= (x-2)*(х-2)*(х-2)* Sin(Pi/2*x)
else if x=2 then F:= (a*a-b*b)* Cos (Pi)
    else if Cos(x) <> 0 then
         F:= a* Sin(x)/Cos(x)+ Sqrt(Abs(x-2))
        else begin Writeln(' Знаменатель равен 0');
           exit { Выход из программы } end;
   {Вывод результатов}
Writeln(' При x= ',x:6:2,' F= ',F:8:3); readln;
End.

               Варианты самостоятельных заданий