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

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

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

Вариант 12

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

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

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

x > 1 x ≤ 1

a = 0.9

x[0.8;2] Δx = 0.1

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

Обозначим x0=0 ; xk=10 ; h=1.

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

P

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

rogram lab_31;

const h=1; a=0.9;

var x,y,x0,xk,d:real;

n

d:=(xk-x0)/h

,i:byte;

Begin

W

n:=round(d)+1

riteln('Введите x0 , xk');

Read(x0,xk );

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

W

x:=x0

riteln(' x y(x)');

d:=(xk-x0)/h;

n

i =1, n

:=round(d)+1;

x:=x0;

For i:= 1 to n do

b

нет

x>1

x<=1

egin

i

да

да

f x>1 Then y:=a*0.4343*Ln(x)+Exp(1/3*ln(abs(x)));

else if x<=1 Then y:=2*a*cos(x)+3*sqr(x);

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

x:=x+h;

end;

End.

x,y(x)

x:=x+h

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

Program lab_32;

Const h=1; a=0.9;

var x,y,x0,xk:real;

Begin

Writeln('Введите отрезок');

Read(x0,xk );

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

Writeln(' x y(x)');

x:=x0;

Repeat

if x>1 Then y:=a*0.4343*Ln(x)+Exp(1/3*ln(abs(x)))

else if x<=1 Then y:=2*a*cos(x)+3*sqr(x);

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

x:=x+h;

Until x>xk;

End.

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

Program lab_33;

const h=1; a=0.9;

var x,y,x0,xk,d:real;

Begin

Writeln('Введите отрезок');

Read(x0,xk );

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

Writeln(' y y(x)');

x:=x0;

While x<=xk do

begin

if x>1 Then y:=a*0.4343*Ln(x)+Exp(1/3*ln(abs(x)));

else if x<=1 Then y:=2*a*cos(x)+3*sqr(x);

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

x:=x+h;

end;

End.