11.07.2015 Views

TURBO BASIC

TURBO BASIC

TURBO BASIC

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

б) метки (номера строк) в процедуре и в главной программе не должнысовпадать.На экран после его очистки в первую очередь должно быть выведеноназвание программы, затем главное меню, например• ---------------------------- гл ав н ое м е н ю -----------------------------------l o c a t e 3 , 3 0 : p r i n t "Операции с матрицами"l o c a t e 5 , 2 0 : p r i n t "Выберите ном ер операции"l o c a t e ,3 0 : p r i n t "1 - Транспонирование матрицы"l o c a t e ,3 0 : p r i n t "2 - Сложение матриц"l o c a t e ,3 0 : p r i n t "3 - Умножение матриц"l o c a t e ,3 5 : p r i n t "E sc - выход"gosu b o p r o ss e l e c t c a s e i c sc a s e 4 9 :g o su b tr a n sc a s e 5 0 :g o su b summc a s e 5 1 :g o su b m u ltc a s e 2 7 : e l s : e n dend s e l e c tl o c a t e 2 2 ,3 0 : p r i n t " E n ter-продолж ить р а боту"gosu b o p r o si f ic s = 1 3 th e n s t a r te ls : e n di -------------------------- подпрограммы -------------------------------а после оператора END, завершающего главный модуль программы,располагают подпрограммы и процедуры, напримерs o r t : 1— выбор наибольш его элем ен та матрицы —e l s : p r i n t , , "Выбор максимального элем ен та"p r i n t : gosu b w o d ae l s : p r i n t , , "Выбор максимального элем ен та"p r i n t : p r i n t , "Исходная матрица"c a l l v y v o d ( n ,m ,a ( ) )a n a x - a ( 1 ,1 )f o r i = l t o nf o r j = l t o mi f a ( i,j ) > a m a x th e n a m a x = a (i,j)n e x tn e x tp r i n t : p r i n t , "Наибольший элем ент равен"p r i n t u s in g " # # # # # # # .# # # " ;amaxr e tu r nРекомендуется называть первую матрицу А, вторую - В, результирующуюматрицу - С, размер матриц не должен превышать 6 (проверятьпри вводе). После завершения ввода на экране должны заново26

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!