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

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

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

Вариант 20

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

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

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

при >0

при <0

где c = 0.5, n = 10

i[1;10]

Δi = 1

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

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

i 1 2 3 4 5 6 7 8 9 10

z(i) 0.5 0.4 0.3 1.0 0.5 -0.5 0.1 0.5 0.9 -0.6

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

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

Program lab_31;

Const h=1;

c=0.5;

n=10;

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

m,j:byte;

Begin

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

Read(i0,ik);

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

Writeln(' i z(i)');

d:=(ik-i0)/h;

m:=round(d)+1;

i:=i0;

For j:= 1 to m do

begin

if cos((sqr(i)+1)/n)>0 Then z:=c*cos((sqr(i)+1)/n)

else if cos((sqr(i)+1)/n)<0 then z:=sin((sqr(i)+1)/n);

Writeln (i:5:0,' ',z:8:1);

i:=i+h;

end;

end.

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

данной задачи при использовании цикла с параметром, представлена на рис.1

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

Program lab_32;

Const h=1;

c=0.5;

n=10;

var i,z,i0,ik:real;

Begin

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

Read(i0,ik);

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

Writeln(' i x(i)');

i:=i0;

Repeat

if cos((sqr(i)+1)/n)>0 Then z:=c*cos((sqr(i)+1)/n)

else if cos((sqr(i)+1)/n)<0 then z:=sin((sqr(i)+1)/n);

Writeln (i:5:1, ' ',z:8:1);

i:=i+h;

Until i>ik;

End.

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

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

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

Program lab_33;

Const h=1;

c=0.5;

n=10;

var i,z,i0,ik:real;

Begin

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

Read(i0,ik);

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

Writeln(' i z(i)');

i:=i0;

While i<=ik do

begin

if cos((sqr(i)+1)/n)>0 Then z:=c*cos((sqr(i)+1)/n)

else if cos((sqr(i)+1)/n)<0 then z:=sin((sqr(i)+1)/n);

Writeln (i:5:1, ' ',z:8:1);

i:=i+h;

end;

End.

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

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