Экзаменационный вопрос № 26. Программирование с использованием цикла с параметрами

Задание. Составить программу для вычисления функции двух аргументов z = f (x, y), в которой x изменяется от x_н до x_к с шагом ∆x. Значение y изменяется от y_н до y_к с шагом ∆y. Используя заданные коэффициенты, построить двумерную таблицу.

Исходные данные.

Функция y = f(x)	1-й аргумент		2-й аргумент		Коэффициент
	интервал	шаг	интервал	шаг
		0,2		0,5	a = 2

Код программы

PROGRAM primer2;

USES CRT;

CONST {Блок описания констант}

a = 2; {Коэффициент}

x1 = 0; {Начальное значение переменной x}

x2 = Pi/2; {Конечное значение переменной x}

t1 = 1; {Начальное значение переменной t}

t2 = Pi; {Конечное значение переменной t}

Hx = 0.2; {Шаг по x}

Ht = 0.5; {Шаг по t}

VAR {Блок описания переменных}

X,T,Y : real;

I,J,Imax,Jmax : integer;

BEGIN {Блок вычислений}

ClrScr;

Imax:=trunc((x2–x1)/Hx); {Максимальное число итераций по x}

Jmax:=trunc((t2–t1)/Ht); {Максимальное число итераций по t}

x:=x1; {Устанавка начального значения переменной x}

for I:=0 to Imax do {Цикл с параметрами For для изменения по x}

begin

t:=t1; {Устанавка начального значения переменной t}

for J:=0 to Jmax do {Цикл с параметрами For для изменения по t}

begin

y:=cos(a*x+sin(a*t)); {Вычисление значения функции в точке}

write(y:5:3,' ');

t:=t+Ht; {Изменение значения переменной t с заданным шагом}

end;

x:=x+Hx; {Изменение значения переменной x с заданным шагом}

writeln;

end;

readln

END.

Экзаменационный вопрос № 27. Программирование циклов с постусловием

Задание. Составить программу для вычисления ряда для каждого значения х с точностью ε . Значение х изменяется в указанном диапазоне с шагом h, который определяется так:

,

где n — заданное число.

Сумма	Диапазон изменения x	n	Функция y
	0,1 ≤ x ≤ 1	10

Для перехода от предыдущего члена ряда к последующему использовать рекуррентные формулы, указанные в скобках. Результат

напечатать в виде таблицы:

первый столбец — значение x , второй — вычисленное значение суммы S, третий — y.

Исходные данные

При n = 1 T = ln3x;

В программе используем выражение Т = ТTln(3)x/(N+1).

Код программы.

PROGRAM primer3;

const

epsilon=0.000001;

x0=0.1;

x1=1;

h=(x1–x0)/10;

var

Summ,X,T:real;

N,i: integer;

begin

X:=x0;

Summ:=0;

N:=0;

for i := 0 to 10 do

begin

N:=0;

X:=x0+h*i;

T:=ln(3)*X;

summ:=0;

repeat

N:=N+1;

{writeln('Iteratsiya: ',N,' Chlen ryada: ',T:7:4);}

Summ:=Summ+T;

T:=T*ln(3)*x/(N+1);

until abs(T)<epsilon;

writeln('x= ', X:3:1,' Summa ryada: ',Summ+1:7:5, ' 3^x=', exp(X*ln(3)):3:5);

end;

readln;

end.