Материалы сайта
Это интересно
Лабараторная работа №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)))) Вывод х Конец