Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Основы программирования для студентов технологического профиля. Учебное пособие
.pdf
141
К моменту выполнения оператора DIM переменные,
'Программа для вычисления суммы одномерного массива
1
'Название файла программы: SUM~mas.bas
2
'Дата составления программы: 31.10.98
3
'Программист: студент гр. 6131-11 Хальфина А.А.
4
DIM s AS DOUBLE
5
DIM D(100) AS SINGLE
6 ′ 7
CLS
8
′ Защита N от дурака
9
DO
10
SLEEP 2 : CLS
11
INPUT " Введите число элементов массива"; n
12
IF n <= 0 OR n> 100 THEN
13
PRINT "Неверный ввод данных. Повторите ввод!"
14
END IF
15
LOOP WHILE n <= 0 OR n>100
16
FOR i = 1 TO n
17 142
определяющие значения индексов, должны быть определены
или вычислены. Если значение индекса не целое, то оно
округляется до ближайшего целого. Если при выполнении
программы индекс элемента массива выходит за пределы,
указанные в операторе, то выводится сообщение об ошибке
«Индекс вне диапазона». Максимальное число элементов
массива определяется оперативной памятью ЭВМ.
3.10.1. Одномерные массивы
Программа 3.10.1. Найти сумму элементов одномерного
массива D, состоящего из N элементов.
Обеспечить защиту параметра N от «дурака» (N не может быть
отрицательным числом и числом большим 100).
Обеспечить диалог с пользователем.
Элементы массива ввести оператором Input.
Результат округлить до двух знаков после запятой.
Программа на QBasic:
окончание таблицы
PRINT "D(" i ")="; : INPUT D(i)
18
NEXT i
19
s = 0
20
FOR i = 1 TO n
21
s = s + D(i)
22
NEXT i
23
PRINT "Сумма элементов одномерного массива= ###.##"; S
24
Обсуждение программы:
1-4
-шапка программы;
5
-переменная s получает тип Double (двойной точности),
т.к. она предназначена для хранения суммы (больших или
маленьких) чисел;
6
-оператор DIM задает имя (D) и размерность массива
(используется один индекс, т.к. массив одномерный), тип
элементов массива (SINGLE-одинарная точность),
устанавливает максимальное число элементов массива (101
элемент с учетом нулевого элемента);
7
пустая строка;
8
-очищает экран вывода от ненужной информации;
9
-вносит пояснение в текст (листинг) программы;
10-16
-открытие цикла DO .... LOOP c проверкой условия в конце:
11
-временная задержка выполнения операторов на 2 секунды
и очистка экрана вывода;
12
-ввод числа элементов одномерного массива с клавиатуры;
13-15
-блочный оператор IF:
13
-анализ N. Число элементов массива не может быть
отрицательным, равным нулю или больше некоторого
заданного числа, например 100, т. к. оперативная память
ЭВМ, где хранятся значения элементов массива, ограничена
по размеру;
Особенностью программы является то, что в ней
используется массив - упорядоченный набор однотипных
элементов, число которых фиксировано.
Элементы одномерного массива имеют один индекс. В
качестве индекса, как правило, используют целые числа.
143
окончание таблицы
14
-если значение проверяемого условия в строке 13 True, то
выводится сообщение о неверном вводе;
15
-конец блочного оператора IF;
16
-проверяется условие цикла. Если значение проверяемого
условия True, то управление передается строке 11. Если же
значение проверяемого условия False, то управление
передается строке 17;
17-19
-цикл с параметром i:
17
-открывается цикл с параметром I, который задает индексы
массива. Начальное значение параметра i равно единице.
Цикл выполняется до тех пор, пока значение параметра не
станет больше n;
18
-выводится параметр i и подсказки, которые позволяют
однозначно задать элемент массива. Введенное значение
присваивается элементу массива;
19
-конец цикла. Управление передается автоматически к
началу цикла;
20
-обнуление переменной s для накопления суммы;
21-23
-цикл с параметром i:
21
-открывается цикл с параметром i, который задает индексы
массива;
22
-суммирование элементов массива;
23
-конец цикла. Управление передается в строку 21;
24
-вывод суммы элементов одномерного массива.
После запуска программы на выполнение на экране появляется:
Введите число элементов одномерного массива? 3
D(1)=1
D(1)=2
D(1)=3
Сумма элементов одномерного массива = 6.00
3.10.2 Двумерные массивы
Программа 3.10.2.1. Задана квадратная матрица A, содержащая
N строк и N столбцов (матрица п о р я д к а N).
Найти сумму элементов каждого столбца.
144
Вычисленные результаты записать в одномерный массив S.
'Программа для вычисления сумм столбцов массива
1
'Название файла программы: S_Cols.bas
2
'Дата составления программы: 15.10.99
3
'Программист: Гадельшин А.З.
4
' Основной блок программы
5
DIM n AS INTEGER
6
CLS : INPUT " Введите порядок матрицы"; n
7
DIM A(1 TO n, 1 TO n) AS SINGLE
8
DIM i AS INTEGER, j AS INTEGER, s(1 TO n) AS DOUBLE
9
FOR i = 1 TO N
10
FOR j = 1 TO N
11
PRINT "A(" i "." j ") = "; : INPUT A(i , j)
12
NEXT j , i
13
FOR j = 1 TO n
14
s(j) = 0 : FOR i = 1 TO n : s(j) = s(j)+A(i , j) : NEXT i
15
PRINT " S(" j " ) = " s(j)
16
NEXT j
17
1-4
-шапка программы;
5
подсказка
6
-задает целый тип для переменной n;
7
-ввод порядка матрицы и очистка экрана от ненужной
информации;
8
-оператор DIM задает имя (A), размерность массива (два
индекса- массив двумерный), тип элементов массива
(одинарной точности), устанавливает интервалы изменения
индексов двумерного массива (от 1 до n);
9
-задает целый тип для переменных i и j (индексы
массива) и определяет одномерный массив s (имя,
размерность массива, тип элементов массива);
10
-открывается цикл с параметром i. Первый индекс
двухмерного массива всегда соответствует номеру строки;
Программная реализация на QBasic:
Обсуждение программы:
145
окончание таблицы
11
-открывается цикл с параметром j. Второй индекс
двумерного массива всегда соответствует номеру столбца;
12
-вывод на экран подсказки, разъясняющей какой элемент
массива необходимо ввести и ввод с клавиатуры значения
элемента массива;
13
-конец первого и второго цикла. Внимание! Одним
оператором NEXT можно закрыть несколько циклов.
Вначале закрывается внутренний цикл;
14
-открытие цикла с параметром j, который задает номер
столбца двумерного массива.
15
-обнуление соответствующего элемента одномерного
массива s. Открытие цикла с параметром i, который задает
номер строки двумерного массива. Третий оператор
позволяет накопить сумму. Четвертый закрывает цикл с
параметром i;
6
-вывод суммы ряда;
17
-конец цикла с параметром j;
После запуска программы на экран выводится:
Введите порядок матрицы? 2
A(1.1)=?1
A(1.2)=?2
A(2.1)=?3
A(2.1)=?4
ЭВМ выводит:
S(1)=4
S(2)=6
146
Библ и о графич е ский с писок
1. Е.А. Харитонов, А.К. Сафиуллина Основы
программирования на алгоритмическом языке высокого
уровня QBASIC. Учебное пособие. Казань, КГТУ, 2009.
–110 с.
2. Алгоритмический язык высокого уровня QuickBASIC.
Ч.1. Система программирования. Метод. указания. Казан.
гос. технол. ун-т; Сост. Е.А.Харитонов, В.Г. Чайковский.
Казань, 2001. –21 с.
3. Алгоритмический язык высокого уровня QuickBASIC.
Ч.2. Операторы языка. Метод. указания. Казан. гос.
технол. ун-т; Сост. Е.А.Харитонов, В.Г. Чайковский.
Казань, 2001. –57 с.
4. Мельникова О.И., Бонюшкина А.Ю. Начала
программирования на языке Qbasic. Учебное пособие. –М.
Эком. 1997. –304 с.
5. Зельднер Г. QBASIC для носорога. –М.: АВF. –478 c.
6. Зельднер Г. Microsoft Basic professional development
sustem 7.1 –М.: АВF . –384 c.
7. Знакомьтесь компьютер. Пер с анг. Под ред. В.М.
Курочкина –М.: Мир, 1989. –240 с.
8. Кершан Б., Новембер А., Стоин Дж. Основы
компьютерной грамотности. Пер с анг. –М.: Мир,
1989. –254 с.
9. Макаров Е.Г. Инженерные расчеты в MathCad 15.
Учебный курс. 2011 Спб.: Питер, 2011. 400 c.
10. Алехина Г.В. Информатика. Базовый курс: учебное
пособие/ Под ред. Г.В. Алехиной – 2-е изд., доп. и
перераб. –М.: Маркет ДС Корпорейшн, 2010. –731 с.
11. Англо- русский словарь по информационным
технологиям / C. Б. Орлов . –M.: РадиоСофт, 2011. –640 с.
147
12. Информатика . Базовый курс / Под ред. С.В. Симоновича
.-2-е изд. –СПб. Питер.2011. –639 с.
13. История вычислительной техники [Электронный ресурс].
–Режим доступа: http://ru.wikipedia.org/wiki/
История_вычислительной_техники, свободный.
14. История вычислительной техники в лицах: [Электронный
ресурс]. – Режим доступа :
http://lib.ru/MEMUARY/MALINOWSKIJ/0.txt, свободный.
15. Устройство персонального компьютера: [Электронный
ресурс]. –Режим доступа :
http://sdo.uspi.ru/mathem&inform/lek11/lek_11.htm,
свободный.
16. Основные характеристики персонального компьютера:
[Электронный ресурс]. –Режим доступа :
http://txtbooks.ru/informatika/8-klass/95-semakin-8-klass/16711-8-osnovnye-kharakteristiki-personalnogokompyutera.html, свободный.
17. Устройство персонального компьютера и его основные
характеристики [Электронный ресурс]. –Режим доступа :
https://www.google.ru/#newwindow=1&q
=устройство+персонального+компьютера+и+его+основны
е+характеристики, свободный.
18. Классификация ЭВМ по размеру и стоимости
[Электронный ресурс]. – Режим доступа:
http://wiki.mvtom.ru/index.php/Классификация_ЭВМ,
свободный.
148
ОГЛ АВ Л ЕНИЕ
ВВЕД Е НИ Е ............................................................... 3
1 ОБ Щ ИЕ ВОПРО СЫ ИНФО Р М АТИКИ ................. 4
1.1 И нформа т ика к а к наука ..................................... 4
1.2 П онятие инфор м ац ии ........................................ 6
1.3 О тличит е льные че рты со в ременн ого ко м п ьютер а 7
1.4 У прощен н ая кла сс и фикац и я комп ью теров п о
разме ра м и ст ои мо сти ................................................ 7
1.5 К раткая и стори я в ычисли т ельной техни к и ......... 9
1.6 У строй с т во пер с он ально г о компь ю тера ........... 27
1.6. 1 Периф е рийные устрой ст ва пер с онал ьного
компь ю тера .............................................................. 34
1.7 О сновны е поня т ия Win do ws ........................... 40
1.7. 1 Понят и я файл а и имен и файла ...................... 40
2 ОСН ОВ Ы РАБО ТЫ В MATHCAD ....................... 43
2.1 И нтерф е й с пол ь зовате л я ................................. 43
2.2 П ростей ш ие выч и слени я в Mat hСad ................. 45
2.3 Основн ы е пон я т ия Mat h Сad ............................ 47
2.3. 1 Опера т ор при св аи вания ................................ 49
2.4 Л инейны е програ ммы ...................................... 52
2.5 Р азветв л яющиес я прогр а мм ы .......................... 55
2.6 П рогра м м ы с ди ск ретным и п еремен ными ........ 60
2.6. 1 Форм ат д искрет ной пер еменно й в MathCad .. 60
2.6. 2 Постр о ение г ра фиков в MathCad ................... 63
2.7 М ат ричны е вычис л ения в MathCad .................. 68
2.7. 1 Элем е н тарные матрич н ые вычи сления .......... 69
2.7. 2 Испол ьзован ие матр и чных о п ератор о в для
преоб разован и я мат р иц и в е кт оров .......................... 71
2.7. 3 Матри чн ые функ ц ии ..................................... 73
3 ОСН ОВ Ы РАБО ТЫ В QBA S IC ............................ 82
3.1 П онятие об алг о ритмич ес к их яз ы ках вы сокого
уровн я ..................................................................... 82
3.2 С истема прогр а ммиров а ни я QBas i c ................. 84
3.3 О сновны е элемен ты язы к а Qbas i c .................... 85
3.4 Л инейны е програ ммы ...................................... 88
149
3.4.1 Оп е ра тор ы д ля ра з ра б от ки лин ейн ых
пр огр амм ................................................................. 88
Оператор LET ...........................................................................89
Оператор PRINT ......................................................................90
Оператор END ..........................................................................91
Оператор REM .........................................................................92
3.4.2 Встрое н ные ф ун кции Q Basic ............................ 95
Функция ABS ...........................................................................96
Функция EXP ...........................................................................96
Функция SQR ...........................................................................96
Функция LOG ...........................................................................96
Функция COS ...........................................................................97
Функция SIN.............................................................................97
Функция TAN ...........................................................................98
Функция ATN ...........................................................................98
3.4.3 Операт оры дл я ввода данных ........................... 99
Оператор INPUT ......................................................................99
Оператор DATA .....................................................................100
Оператор READ .....................................................................100
Оператор RESTORE ..............................................................101
3.5 З амкнут ы е прог ра ммы ...................................... 102
Оператор GOTO .....................................................................102
3.5.1 Функци я польз о ва т еля в QBasi c ...................... 106
Оператор DEF FN ..................................................................106
3.6 Э л ементы с трукт ур ного п р ограмм и ровани я ....... 108
Оператор DECLARE ..............................................................108
Оператор FUNCTION ... END FUNCTION ........................109
3.7 Р аз ветвляю щиеся п рограм мы ............................. 111
Оператор IF...THEN ...ELSE .................................................111
3.8 Ц и кличе с к ие пр о гр аммы ................................... 119
Оператор FOR...NEXT ..........................................................119
Оператор PRINT USING .......................................................120
Оператор STOP ......................................................................121
Оператор SLEEP ....................................................................122
Оператор DIM для описания типа данных ..........................122
3.9 И т ерацио н ные п р ог раммы ................................. 129
150
Оператор WHILE ... WEND ..................................................130
Оператор DO ....LOOP ...........................................................130
3.10 П рограм мы для р а боты с масси в ами ............... 140
Оператор DIM для описания массивов ...............................140
3.10.1. Одномерные массивы ....................................................141
3.10.2 Двумерные массивы .......................................................143
Библи о графич еский с п исок ..................................... 146
ОГЛАВ ЛЕ НИЕ ........................................................ 148
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]