71051

Обработка двумерных массивов

Лабораторная работа

Информатика, кибернетика и программирование

Задание к лабораторной работе: Дана действительная квадратная матрица А размера n  n. Вычислить суммы элементов двух главных диагоналей матрицы. Схема алгоритма. Программа на языке Basic Расчет сумм элементов двух главных диагоналей матрицы.

Русский

2014-11-01

323.5 KB

1 чел.

Федеральное агентство связи

Сибирский Государственный Университет Телекоммуникаций и Информатики

Межрегиональный центр переподготовки специалистов

Лабораторная работа №5

По дисциплине: Информатика

                                  

Выполнил:

Группа:

Вариант: 10

    

Проверил: ___________________

Новосибирск, 2014 г

Лабораторная работа № 5

Обработка двумерных массивов

Задание к лабораторной работе:

Дана действительная квадратная матрица А размера n  n. Вычислить суммы  элементов двух главных диагоналей матрицы.

Схема алгоритма.

Программа на языке Basic

 

10 'Расчет сумм  элементов двух главных диагоналей матрицы.

20 CLS

30 INPUT “Введите размер матрицы n=», n

40 DIM a(n,n)

50 PRINT “Для генерации массива из случайных чисел нажмите 1“

60 PRINT “Для ввода собственных значений нажмите любую другую цифру“

70 INPUT k

80 IF k=1 THEN 90 ELSE170

90 ‘Создание массива из случайных чисел

100 FOR i=1 TO n STEP 1

110 FOR j=1 TO n STEP 1

120 RANDOMIZE TIMER

130 a(i,j) = INT(RND * 100)

140 NEXT j

150 NEXT i

160 GOTO 240

170 ‘Создание массива вручную

180 FOR i=1 TO n STEP 1

190 FOR j=1 TO n STEP 1

200 PRINT ”Введите a(”; i; j; ”)”

210 INPUT a(i, j)

220 NEXT j

230 NEXT i

240 ‘Вывод сформированного массива

250 FOR i=1 TO n STEP 1

260 FOR j=1 TO n STEP 1

270 PRINT a(i, j);

280 NEXT j

290 PRINT

300 NEXT i

310 s1=0: s2=0

320 ‘Расчет суммы чисел первой диагонали

330 FOR i=1 TO n STEP 1

340 FOR j=1 TO n STEP 1

350 IF i = j THEN 360 ELSE 370

360 s1 = s1 + a(i, j)

370 NEXT j

380 NEXT i

390 ‘Расчет суммы чисел второй диагонали

400 FOR i=1 TO n STEP 1

410 FOR j=1 TO n STEP 1

420 IF j = n – i +1 THEN 430 ELSE 440

430 NEXT j

440 NEXT i

450 PRINT

460 PRINT “Сумма чисел первой диагонали равна», s1

470 PRINT “Сумма чисел второй диагонали равна», s2

480 END

Результаты выполнения программы


 

А также другие работы, которые могут Вас заинтересовать

18068. Исследование частотных характеристик интегрирующей r-C цепи 31.58 KB
  Цель работы: Исследование частотных характеристик интегрирующей rC цепи Содержание отчета. 2.1 Экспериментальное определение амплитудночастотной и фазочастотной характеристик цепи. Схема исследуемой цепи: Параметры источника переменного напряжения V1: ...
18069. Изучение влияния параметров электрических цепей на форму их частотных характеристик 34.44 KB
  Цель работы: В лабораторной работе ставится целью изучение влияния параметров электрических цепей на форму их частотных характеристик. Содержание отчета. 2.1 Экспериментальное определение амплитудночастотной и фазочастотной характеристик цепи. Схема...
18070. РОЗРОБКА ТА ВПРОВАДЖЕННЯ СОЛОДКИХ СОУСІВ В ЗАКЛАДАХ РЕСТОРАННОГО ГОСПОДАРСТВА 483.5 KB
  Охарактеризувати в загальному солодкі соуси, їх асортимент та технології приготування солодких соусів; проаналізувати властивості сировини, яка входить до складу солодких соусів; проаналізувати технології приготування солодких соусів; розробити технології виробництва солодких соусів; проаналізувати використання біологічно активних речовин при приготуванні солодких соусів...
18071. Иследовать частотные характеристики последовательного колебательного контура 32.5 KB
  Цель работы: Иследовать частотные характеристики последовательного колебательного контура Содержание отчета. 2.1 Экспериментальное определение амплитудночастотной и фазочастотной характеристик цепи Схема исследуемой электрической цепи Параметры элементов...
18072. Исследовать частотные характеристики параллельного колебательного контура 60.5 KB
  Цель работы: Исследовать частотные характеристики параллельного колебательного контура Содержание отчета. 2.1 Экспериментальное определение амплитудночастотной и фазочастотной характеристик цепи Схема исследуемой электрической цепи: Параметры элементов цеп...
18073. АНТЕНИ РТС ПЕРЕДАЧІ ІНФОРМАЦІЇ 389 KB
  Основні принципи навчання: науковість, послідовність, систематичність, практична спрямованість, активність студентів, диференціальний підхід, що врахований в тематиці дисциплін, формах та методах проведення занять.
18074. Екологічна оцінка технологічного процесу обробки граніту на виробничому підприємстві «Укр-Інтер-Граніт» 712 KB
  Підприємство займається обробкою та реалізацією виробів з граніту. Головними технологічними процесами є розпилювання блоків граніту, переробка їх на вироби за кресленнями замовника, включаючи процеси шліфування і полірування.
18075. АНТЕНИ СИСТЕМ СУПУТНИКОВОГО РАДІОЗВ’ЯЗКУ 1.3 MB
  ЛЕКЦІЯ №2 з навчальної дисципліни ПРИКЛАДНІ ПИТАННЯ АНТЕННИХ ПРИСТРОЇВ ТЕМА 1: АНТЕНИ РТС ПЕРЕДАЧІ ІНФОРМАЦІЇ. ЗАНЯТТЯ 2: антенИ систем супутникового радіозвязку 1. НАВЧАЛЬНІ ПИТАННЯ Вимоги до антен системи супутникового ра
18076. АНТЕНИ РАДІОРЕЛЕЙНИХ ЛІНІЙ 284 KB
  ЛЕКЦІЯ №3 з навчальної дисципліни ПРИКЛАДНІ ПИТАННЯ АНТЕННИХ ПРИСТРОЇВ ТЕМА 1: АНТЕНИ РТС ПЕРЕДАЧІ ІНФОРМАЦІЇ. ЗАНЯТТЯ 4: антенИ радіоРЕЛЕЙНИХ ЛІНІЙ 1. НАВЧАЛЬНІ ПИТАННЯ Вимоги до антен радіорелейних ліній. 2. Особли