Input "Введите число вкладчиков и процент ",n,p
DIM x(n,5)
FOR i=1 TO n
FOR j=1 TO 4
?"Введите остаток по вкладу номер" i "за" j "квартал ";
Input X(I,j)
NEXT j,i
s=0
?" Счет Остатки по кварталам ВСЕГО"
?" 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)
NEXT
? "Сумма всех вкладов =" s;
? "Средняя величина вклада =" s/n
Задача 12. Сортировка чисел в массиве. Пусть имеется вектор чисел Х длиной N. Напечатать массив в порядке убывания значений его элементов. Алгоритм реализуется при помощи двух вложенных циклов (рис. 15). В наружном цикле последовательно перебираются числа 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
Задачи для самостоятельного решения.
1). Напечатать число из массива Х(N), предшествующее минимальному.
2). Переместить
элементы массива Х в массив Y
таким образом, чтобы в нем сначала
оказалась вторая половина исходного
массива X, а затем первая.
3). Массив Х(N) содержит N произвольных чисел (N нечетное). Напечатать эти числа, начиная с центрального, затем число, стоящее рядом слева, затем справа и т.д. до достижения границ массива.
4). Имеются (рис. 16) массивы Х(N) и Y(N) с координатами X, Y точек на плоскости в порядке их обхода. Определить периметр замкнутой фигуры, с вершинами в этих координатах.
5). Построить вложенный цикл для печати таблицы умножения.