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

Блок-схема.
[pic]

Программа на Turbo Pascal
{*********************************************}
{программа:Lab_9 }
{цель:вывод графика функции }
{переменные:x0,xn-начальное и конечное значения }
{hx-шаг }
{q-искомое значение выражения }
{i-параметр цикла }
{z-искомое значение }
{x,a-переменные }
{метод решения:вычесление по формулам }
{подпрограммы:отсуствуют }
{програмист:студент гр. 316 Позднышев А.А. }
{проверил: Новичков В.С. }
{дата:20.04.2004г. }
{*********************************************} program lab_9; const p=' '; s='***********************'; t=' '; var x0,x,xn,hx,q,z:real; i,a:integer; begin writeln('введите x0,hx,xn'); readln(x0,hx,xn); writeln(' значение x * значение z'); writeln(t,s); for a:=1 to 3 do begin x:=x0; repeat q:=exp(-a*sin(x)*ln(exp(1))); writeln(t,'^',p,x:4:2,'^',p,z:4:1,p,'^'); x:=x+hx; z:=z+q ; until x>xn; end; writeln(t,s); for i:=1 to 5 do begin writeln(t:abs(i-6),abs(i-6):i); end; end.
----------------------- p=’ ’; s=’*******’; t=’ ’;

Ввод x0, hx, xn

Вывод t:abs(i-6), abs(i-6):i

q:=exp(-a*sin(x)*ln(exp(1)));

x:=x+hx; z:=z+q;

i=1(1)5

x>xn

Конец

Вывод t,p,x,z

Начало

x:=x0;

Поделитесь этой записью или добавьте в закладки