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

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

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

Вариант 4

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

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

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

x < 1.4 x = 1.4 x > 1.4

a = 1.65

x[0.7;2] Δx = 0.1

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

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

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

Program lab_31;

const h=0.1; a=1.65;

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

n,i:byte;

Begin

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

Read(x0,xk );

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

Writeln(' x Q(x)');

d:=(xk-x0)/h;

n:=round(d)+1;

x:=x0;

For i:= 1 to n do

b

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

egin

if x<=1.4 Then q:=pi*sqr(x)-7/sqr(x)

else if x=1.4 Then q:=a*exp(3*ln(x))+7*sqrt(x)

d:=(xk-x0)/h

Else q:=ln(x+7*sqrt(abs(x+a)));

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

x:=x+h;

e

n:=round(d)+1

nd;

End.

x:=x0

i =1, n

x, q(x)

x:=x+h

да

нет

нет

да

x<=1.4

x=1.4

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

Program lab_32;

const h=0.1; a=1.65;

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

Begin

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

Read(x0,xk );

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

Writeln(' x q(x)');

x:=x0;

Repeat

If x<=1.4 Then q:=pi*sqr(x)-7/sqr(x)

else I f x=1.4 Then q:=a*exp(3*ln(x))+7*sqrt(x)

Else q:=ln(x+7*sqrt(abs(x+a)));

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

x:=x+h;

Until x>xk;

End.

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

Program lab_33;

const h=0.1; a=1.65;

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

Begin

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

Read(x0,xk );

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

Writeln(' x q(x)');

x:=x0;

While x<=xk do

begin

if x<=1.4 Then q:=pi*sqr(x)-7/sqr(x)

else if x=1.4 Then q:=a*exp(3*ln(x))+7*sqrt(x)

Else q:=ln(x+7*sqrt(abs(x+a)));

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

x:=x+h;

end;

End.