лабораторная работа / вар14 / Лаб3

Балаковский институт техники технологий и управления

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

Вариант 14

Выполнил студент УИТ-2в

Балаково 2007 год.

Задание: Вычислить и вывести на экран значение заданной функции

при ≥0

при <0

где a = 0.3

n = 10

i[1;10]

Δi = 1

Значение функции вычислять многократно при изменении аргумента в указанном диапазоне и с заданным шагом Δx. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы:

Таблица функции z(i)

X 1 2 3 4 5 6 7 8 9 10

Y 0.1 0.1 0.3 0.3 0.2 1.0 0.7 Начало 0.1 0.3 -0.8 Введите i0,ik

i0, ik

Обозначим i0=1; ik=10 ; h=1.

Текст программы:

Загол. таблицы

Program lab_31;

Const h=1; a = 0.3; n = 10;

d=(ik-i0)/ h

var i,z,i0,ik,d:real;

m,j:byte;

m=round(d)+1

Begin

Writeln(‘Введите i0,ik');

Read(i0,ik);

i=i0

Writeln('Таблица функции z(i)');

Writeln(' i z(i)');

d:=(ik-i0)/h;

j =1, m

m:=round(d)+1;

i:=i0;

нет

For j:= 1 to m do

begin

да

if sin((sqr(i)+1)/n)>=0 Then

z:=a*sin((sqr(i)+1)/n)

else

z:=cos(i+1/n);

Writeln (i:6:1, ' ',z:6:1);

i, z(i)

i:=i+h;

end;

End.

i = i + h

Блок-схема алгоритма решения данной задачи при использовании цикла с параметром, представлена на рис.1

Конец

Рис. 1 Блок-схема алгоритма решения задачи

Пример использования оператора цикла repeat…until.

Program lab_31;

Const h=1; a = 0.3; n = 10;

var i,z,i0,ik:real;

m,j:byte;

Begin

Writeln(‘Введите i0,ik');

Read(i0,ik);

Writeln('Таблица функции z(i)');

Writeln(' i z(i)');

i:=i0;

Repeat

if sin((sqr(i)+1)/n)>=0 Then

z:=a*sin((sqr(i)+1)/n)

else

z:=cos(i+1/n);

Writeln (i:6:1, ' ',z:6:1);

i:=i+h;

Until i>ik;

End..

Блок-схема алгоритма решения данной задачи при использовании цикла с постусловием, представлена на рис.2.

Рис.2. Блок-схема алгоритма решения задачи с постусловием

Пример использования оператора цикла While…do.

Program lab_31;

Const h=1; a = 0.3; n = 10;

var i,z,i0,ik:real;

m,j:byte;

Begin

Writeln(‘Введите i0,ik');

Read(i0,ik);

Writeln('Таблица функции z(i)');

Writeln(' i z(i)');

i:=i0;

While i<=ik do

begin

if sin((sqr(i)+1)/n)>=0 Then

z:=a*sin((sqr(i)+1)/n)

else

z:=cos(i+1/n);

Writeln (i:6:1, ' ',z:6:1);

i:=i+h;

end;

End.

Блок-схема алгоритма решения данной задачи при использовании цикла с предусловием, представлена на рис.3.

Рис.3. Блок-схема алгоритма решения задачи с предусловием