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

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

Цель работы: Изучение операторов ввода и вывода, управление формой вывода

данных, получение навыков организации печати в удобном для пользователя

виде.

Задание № 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;