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

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

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

Блок-схема.

ПрограмманаTurbo Pascal

{*********************************************}

{программа:Lab_9}

{цель:выводграфика функции}

{переменные:x0,xn-начальноеи конечноезначения}

{hx-шаг}

{q-искомоезначениевыражения}

{i-параметрцикла}

{z-искомоезначение}

{x,a-переменные}

{методрешения:вычеслениепо формулам}

{подпрограммы:отсуствуют}

{програмист:студентгр. 316 ПозднышевА.А.}

{проверил:НовичковВ.С.}

{дата:20.04.2004г.}

{*********************************************}

programlab_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:=1to 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;

untilx>xn;

end;

writeln(t,s);

for i:=1to 5 do

begin

writeln(t:abs(i-6),abs(i-6):i);

end;

end.

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

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

Кафедра ВПМ

Отчет о

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

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

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

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

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

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

Рязань 2004