Реферат Лабараторная работа 4
Работа добавлена на сайт bukvasha.net: 2015-10-28Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.
Задание № 17. Составить программу вычисления функции и определить характер ее зависимости от значений исходных данных:
Блок-схема.
Программа на 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