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

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

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

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

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

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

при 1 ≤ t ≤ 2

при t < 1

при t > 2,

где a = - 0,5; b = 2.

x[0.2;2.8] Δx = 0.2

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

Таблица функции Y(X)

X 0,2 0,4 0,6 0,8 1,0 1,2 1,4 1,6 1,8 2,0 2,2 2,4 2,6 2,8

Y 1,0 1,0 1,0 1,0 0,0 -0,1 -0,3 -0,6 -1,0 -0,2 -0,1 0,0 0,1 0,2

Обозначим t0=0.2 ; tk=2.8 ; h=0.2.

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

Program lab_31;

Const h=0.2;a=-0.5;b=2;

var t,y,t0,tk,d:real;

n,i:byte;

label pi;

B

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

egin

pi :Writeln('Введите’);

R

d=(tk-t0)/ h

ead(t0,tk );

Writeln('Таблица функции y(t)');

Writeln(' t y(t)');

d

n=round(d)+1

:=(tk-t0)/h;

n:=round(d)+1;

t

t=t0

:=t0;

For i:= 1 to n do

begin

i

i =1, n

f (t>=1) and (t<=2) Then y:=a*sqr(t)*ln(t)

else if (t<1) Then

y

нет

нет

:=1

E

1 ≤ t ≤ 2

t < 1

lse

y

да

да

:=Exp(a*t)*cos(b*t);

Writeln (t:6:1, ' ',y:6:1);

t:=t+h;

end;

goto pi;

E

t, y(t)

nd.

Б

t = t + h

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

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

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

Program lab_32;

Const h=0.2;a=-0.5;b=2;

var t,y,t0,tk:real;

label pi;

Begin

pi :Writeln('Введите’);

Read(t0,tk );

Writeln('Таблица функции y(t)');

Writeln(' t y(t)');

t:=t0;

Repeat

if (t>=1) and (t<=2) Then y:=a*sqr(t)*ln(t)

else if (t<1) Then

y:=1

Else

y:=Exp(a*t)*cos(b*t);

Writeln (t:6:1, ' ',y:6:1);

t:=t+h;

Until t>tk;

goto pi;

End.

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

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

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

Program lab_33;

Const h=0.2;a=-0.5;b=2;

var t,y,t0,tk:real;

label pi;

Begin

pi :Writeln('Введите’);

Read(t0,tk );

Writeln('Таблица функции y(t)');

Writeln(' t y(t)');

t:=t0;

While t<=tk do

begin

if (t>=1) and (t<=2) Then y:=a*sqr(t)*ln(t)

else if (t<1) Then

y:=1

Else

y:=Exp(a*t)*cos(b*t);

Writeln (t:6:1, ' ',y:6:1);

t:=t+h;

end;

goto pi

End.

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

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