Программа к задаче 13 и 14

NEXT

NEXT j,i

INPUT x(i,j)

DIM x(n,5)

CLS

INPUT "Введите число вкладчиков и процент ",N,P

FOR i=1 TO n

FOR j=1 TO 4

PRINT"Введите остаток по вкладу номер" i "за" j "квартал ";

s=0

PRINT" Счет Остатки по кварталам ВСЕГО"

PRINT" I II III IV"

FOR i=1 TO n

x(i,5)=х(i,4)+(р/100)*(х(i,1)+х(i,2)+х(i,3)+х(i,4))/4

PRINT USING "########"; i,x(i,1),x(i,2),x(i,3),x(i,4),x(i,5)

s=s+x(i,5)

PRINT "Сумма всех вкладов =" s;

PRINT "Средняя величина вклада =" s/n

Задача 12. Сортировка чисел в массиве. Пусть имеется вектор чисел Х длиной N. Напечатать массив в порядке убывания значений его элементов.

Алгоритм реализуется при помощи двух вложенных циклов (рис. 2.5.1). В наружном цикле последовательно перебираются числа X(i) в массиве и во вложенном цикле сравниваются со всеми оставшимися числами справа от данного X(j). Если выясняется, что какое-то из Х(i) меньше сравниваемого, они меняются местами – большее число становится на место меньшего. В программе для упрощения в качестве элементов массива взяты их номера i. Если вектор имеет длину четыре (Х(4)), то будет выполнена следующая последовательность перестановок чисел массива: 1,2,3,4; 2,1,3,4; 3,1,2,4; 4,1,2,3; 4,3,2,1.

	Программа к задаче 12 INPUT n DIM x(n) 'формирование исходного вектора FOR i = 1 TO n: x(i) = i: NEXT FOR i = 1 TO n - 1 FOR j = i + 1 TO n 'если x(i)<x(j), числа меняются местами IF x(i)<x(j) THEN SWAP x(j), x(i) NEXT j NEXT i 'вывод результатов FOR i = 1 TO n: PRINT x(i): NEXT

Задача 13. Транспонирование матрицы. Операция транспонирования широко используется в линейной алгебре и заключается в перевороте элементов квадратной матрицы относительно главной диагонали (диагонали идущей сверху-вниз, слева-направо).

На рис. 2.5.2 приведены исходная и транспонированная матрица А размерности 6 на 6. Если внимательно приглядеться, можно заметить, что элементы массива с индексами I и J поменялись местами элементами с индексами J и I, т.е. A(I,J) « A(J,I).

Программа транспонирования изображена ниже. В качестве наполнения исходной матрицы используются ее индексы.

n=6: DIM a(n, n)

'ввод данных

FOR i=1 TO n: FOR j=1 TO n: a(i, j)=10*i+j: NEXT j: NEXT i

FOR i = 1 TO n 'прямое транспонирования

FOR j = 1 TO i: SWAP a(i, j), a(j, i): NEXT

Дата добавления: 2014-12-27