Лабараторная работа №4

Цель работы: изучение правил записи констант, переменных, выражений,
операторов присваивания, раздела определения констант, раздела описания
переменных и общей структуры программы на языке Turbo-Pascal.

Задание № 17. Составить программу вычисления функции и  определить  характер
ее зависимости от значений исходных данных:
[pic][pic]



                                 Блок-схема.

                                    [pic]



                          Программа на Turbo Pascal


{****************************************************************}
{Программа: lab4, Лаб. раб. №4, Вар. 17
                        }
{Цель: изучение правил записи констант, переменных, выражений,
 }
{операторов присваивания, раздела определения констант, раздела
   }
описания переменных и общей структуры программы на языке Turbo-Pascal}
{Описание параметров и переменных:
                       }
{a,c -исходные значения, b -промежуточное значение, x -значение функции }
{Требуемые подпрограммы: нет.
                           }
{Метод: вычисление по формулам
                         }
{Программист: Позднышев А.А., гр. 316
                     }
{Проверил: Баринов В.В., каф. ВПМ
                        }
{Дата написания: 14 февраля 2004 г.
                          }
{****************************************************************}

Program lab4;
Var
      A,b,c,x:real;
Begin
      Write(‘Введите а=’); read(a);
      Write(‘Введите c=’); read(c);
      b:=a*a+c*c;
      x:=exp(b*ln(abs(cos(a+2.53*c))));
      Writeln(‘x=’,x)
End. {lab4}



Результаты вычисления программы:

a=1
c=2
x=8,81987864801886Е – 0001

Контрольный просчет:
a=1
c=2
b=1*1+2*2=5
x=cos5(1+2,53*2)=cos5(5,06)=0,8819878648



-----------------------
                                   Начало

Ввод a, c

                                 b:=a*a+c*c

                      x:=exp(b*ln(abs(cos(a+2,53*c))))

                                   Вывод х

                                    Конец