Задание: вычислить вектор y, каждая компонента которого определяется по формуле:

Задание:вычислить вектор y, каждая компонента которого определяется по формуле:

где ; i= , n .

Вычисленный массив вывести на печать.

A	B	C	D
	i=	x(i)=	y=
	1	1,428571	0,127273
	2	1,454545	0,126437
	3	1,733333	0,11811
	4	2,105263	0,108571
	5	2,521739	0,099567
	6	2,962963	0,091525
	7	3,419355	0,084469
	8	3,885714	0,0783
	9	4,358974	0,072897
	10	4,837209	0,068146
	11	5,319149	0,063946
	12	5,803922	0,060213
	13	6,290909	0,056877
	14	6,779661	0,053881
	15	7,269841	0,051178
	16	7,761194	0,048727
	17	8,253521	0,046496
	18	8,746667	0,044458
	19	9,240506	0,042588
	20	9,73494	0,040867
	21	10,22989	0,039278
	22	10,72527	0,037806
	23	11,22105	0,03644
	24	11,71717	0,035169
	25	12,21359	0,033982

C2: x(i)= ((2*(B2)^2)+8)/(4*(B2)+3)

D2: y= ЕСЛИ(C2<=-4;2*C2+5;1/(2*C2+5))

VBA

Private Sub Command1_Click()

Dim i As Byte

Dim x, y1 As Single

Print "| i | x | y1 "

For i = 1 To 25

x = (2 * i ^ 2 + 8) / (4 * i + 3)

If x > -4 Then

y1 = 1 / (2 * x + 5)

Else

y1 = 2 * x + 5

End If

Print "|", i, "|", x, "|", y1

Next i

End Sub

Псевдокод

Начало massiv (i, n\ x, y)

i,n натуральные

x,y вещественное

Цикл для i=1, 25

если

то

иначе

все если

вывод x, y

все цикл

конец massiv

Блок-схема

начало

i= 1,n

Ввод n

да

нет

Вывод y

конец

Вывод x

Дата добавления: 2015-11-05