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

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

Задание № 17. Вычислить функцию при заданных значениях аргумента

Блок-схема.

Программа на 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.

Министерство образования РФ

Рязанская государственная радиотехническая академия

Кафедра ВПМ

Отчет о

лабораторной работе № 8:

«Проектирование алгоритмов и программ

со структурой вложенных циклов»

Выполнил: ст. гр. 316

Позднышев А.А.

Проверил: Новичков В.С.

Рязань 2004