Категория
Информатика
Тип
реферат
Страницы
6 стр.
Дата
28.07.2014
Формат файла
.html — Html-документ
Архив
1039233.zip — 4.89 kb
  • programmirovanie-na-algoritmicheskom-jazyke-bejsik_1039233_1.html — 14.15 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

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

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

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

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

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

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

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

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

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

10REM DZIK

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

200 FOR I=1 TO 10

210 LPRINT USING «B(I)=##.##»; B(I)

220 IF I MOD 2=0 THEN S=S+LOG(B(I)^2)

230 NEXT I

240 LPRINT USING «S=##.##»; S

250END_

 

4. Распечатка исходныхданных

R= 2.30

A(I)= 9.60

A(I)= 7.40

A(I)= 4.10



Ваше мнение



CAPTCHA