Студопедия
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Программа к задаче 11

Читайте также:
  1. D) программа
  2. I. Рабочая программа дисциплины
  3. II. Программа курса
  4. II. Программа по юридической психологии
  5. II. ПРОГРАММА УЧЕБНОЙ ПРАКТИКИ
  6. III. Программа ЗОЖ
  7. III. Учебная программа.
  8. IV. Рабочая учебная программа
  9. JavaScript тілдерінде программалау негізі.
  10. Microsoft Excel программасы. Кестелер. Автотолтыру. Функцияларды пайдаланып есептеулер.

CLS

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). Построить вложенный цикл для печати таблицы умножения.

 




Дата добавления: 2014-12-23; просмотров: 120 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2025 год. (0.007 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав