Курсовая работа: Программирование на алгоритмическом языке Бейсик

Блок 15 - блок передачи управлений по условию. Если условие верно то выполняется 16 блок, если нет то программа продолжает работу игнорируя записанное условие в 16 блоке.

Блок 16 - Задание условия. После выполнения которого, происходит переход к следующему значению параметра J из цикла. После завершения цикла J происходит переход к следующему значению I.

Блоки 13, 14, 15 и 16 предназначены для распределения значений вектора В в порядке возрастания (метод всплывающих пузырьков).

Блок 17 - Начало цикла I, с помощью которого выведем все значения В на печать.

Блок 18 - Вывод значений вектора В по возрастанию на печать.

Блок 19 - Блок передачи управлений по условию для нахождения суммы логарифмов квадратов элементов вектора В.

Блок 20 - Вычисление S(суммы), после происходит возврат к началу цикла, где меняется значение параметра I и так до конца завершения цикла.

Блок 21 - Вывод значение S на печать (распечатка).

Блок 22 - Конец программы.

3. Распечатка программы

10 REMDZIK

20 DIM A(9), B(10)

30 S=O:X=O

40 FOR I=1 TO 9

50 PRINT " A(";I;")",

60 INPUT A(I)

70 B(I)=A(I)

80 NEXT I

90 INPUT "R="; R

100 LPRINT USING "R=##.##"; R

110 FOR I=1 TO 9

120 LPRINT USING "A(I)=##.##"; A(I)

130 NEXT I

140 B(10)=R

150 FOR I=2 TO 10

160 FOR J=10 TO I STEP -1

170 IF B(J-1)>B(J) THEN X=B(J): B(J)=B(J-1): B(J-1)=X

180 NEXT J

160 NEXT I