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

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


 

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

10890. Технологія обробітку та захисту ґрунтів 63.5 KB
  Тема уроку: Технологія обробітку та захисту ґрунтів. Мета уроку. Засвоєння знань про типи структуру та родючість ґрунтів; ручні знаряддя праці; прийоми і послідовність ручного обробітку ґрунту; види механізованого обробітку ґрунту; правила безпечної праці та особист
10891. Благоустрій і озеленення приміщень і території 36 KB
  Тема: Благоустрій і озеленення приміщень і території. Мета уроку: Засвоєння знань про роль і місце зелених насаджень у житті людини умови використання у насадженнях різних порід породи декоративних і захисних рослин. Об’єкт навчальної праці: проектування зелених нас...
10892. Практична (проектна) робота. Процес випилювання з фанери та ДВП 33.5 KB
  Тема уроку: Практична проектна робота. Процес випилювання з фанери та ДВП. Мета уроку. Формування вмінь виконувати пиляння фанери лобзиком; закріплення знань про пиляння деревини. Розвивати точність окомір. Виховувати акуратність виконавчу дисципліну творче ставл
10893. Планирование ресурсного потенциала предприятия 118 KB
  Под потенциалом предприятия принято понимать совокупность показателей или факторов, характеризующих его силу, источники, возможности, средства, запасы, способности, ресурсы и многие другие производственные резервы
10894. Процес обробки матеріалів різанням 29 KB
  Тема: Процес обробки матеріалів різанням. Мета: 1 ознайомити учнів з основними способами різання деревини елементами і назвами інструментів. Забезпечити засвоєння правил ТБ; 2 виховувати в учнів уважність відповідальне ставлення до обладнання майстерні бережливі...
10895. Прийоми розмічання за шаблонами та інструментами 36.5 KB
  Тема: Прийоми розмічання за шаблонами та інструментами. Мета: 1 вдосконалювати в учнів знання про процес розмічання дати основні поняття про розмічальний інструмент навчити правильно використовувати цей інструмент; 2 виховувати естетичний смак культуру праці; ...
10896. Розмічання: за шаблоном, копіюванням. Підготовка заготовки до роботи 40.5 KB
  Тема уроку: Розмічання: за шаблоном копіюванням. Підготовка заготовки до роботи. Мета: навчальна: сформувати уявлення про призначення та будову вимірювальних інструментів. Прийоми розмічання за шаблоном. Відомості про припуски на обробку. Виховна: виховувати стара...
10897. Сутність поняття естетика. Основні естетичні категорії 110.5 KB
  Історія виникнення поняття естетика у давньогрецькій культурі та країнах давнього сходу. Виділення естетики у самостійну науку. Естетична діяльність та її форми. Структура естетичної свідомості. Основні естетичні категорії. Мистецтво як складова частина предмета естетики.
10898. Методи проектування (фантазування, елементи біоніки). Вибір обєкту проектування на основі зібраної інформації 123.5 KB
  Тема уроку: Методи проектування фантазування елементи біоніки. Вибір об’єкту проектування на основі зібраної інформації. Складання ескізу майбутнього виробу. Мета уроку. Засвоєння знань про етапи проектування ескіз технічний опис макет креслення шаблони; форм