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

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


 

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

72326. Терроризм и его проявления. Экстремальные ситуации социального характера 42.86 KB
  Терроризм - насилие в отношении физических лиц или организаций а также уничтожение повреждение или угроза уничтожения повреждения имущества и других материальных объектов создающие опасность гибели людей. Если вы находитесь в местах большого скопления агрессивно настроенных людей митинги...
72327. Табачный дым, влияние табачного дыма на человека 13.34 KB
  Из них наиболее известен никотин одно из самых ядовитых химических веществ из группы алкалоидов. Содержащийся в табаке никотин относится к ядам вызывающим сначала привыкание а затем болезненное влечение - токсикоманию.
72328. СПИД и его профилактика 13.54 KB
  Выявлены три пути передачи вируса СПИДа: половой; при переливании инфицированной крови или использовании нестерильных шприцев и игл; заражение плода или новорожденного ребенку от инфицированной матери.
72330. Последствия употребления наркотиков для здоровья человека 14.78 KB
  Нервные клетки под действием наркотиков теряют свою функцию резко снижаются защитные силы организма. Страдают буквально все органы и системы организма. Нарушается функция всех систем организма.
72331. Организация работы комиссии на ЧС объектах 53.17 KB
  Главной задачей военной службы является постоянная целенаправленная подготовка к вооруженной защите или вооруженная защита территории РФ. Одной из особенностей военной службы является обязательное принятие каждым гражданином военной присяги.
72332. Оказание первой доврачебной помощи 27.68 KB
  При наложении закрутки жгута необходимо соблюдать следующие правила: 1 конечности придать возвышенное положение; 2 накладывать жгут выше раны и как можно ближе к ней; 3 жгут накладывается на одежду или какую-нибудь прокладку платок косынку полотенце; 4 с помощью одного-двух туров...
72333. Наркомания и токсикомания 13 KB
  Наркомания - заболевание возникшее в результате злоупотребления наркотиками и наркотически действующими веществами. Наркомания проявляется постоянной потребностью в приеме наркотических веществ так как психическое и физическое состояние человека зависит от того принял он необходимый ему препарат или нет.
72334. Наиболее распространенные инфекционные болезни, причины их возникновения 14.9 KB
  Инфекционные болезни могут возникать при наличии трех компонентов: болезнетворного микроорганизма возбудителя восприимчивого макроорганизма человека факторов обеспечивающих передачу инфекции от зараженного организма к здоровому.