Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 44 стр.

UptoLike

Рубрика: 

43
Пример 6.2. Для введенного одномерного массива А объявить переменные
и константу этого типа.
CONST M0 : A = (1, 2, 3); VAR X, Y : A ;
На практике наиболее часто приходится иметь дело с двухмерными масси-
вами (матрицами).
Для объявления матриц существует несколько способов:
1. В разделе типов можно объявить матрицу как одномерный массив, элемента-
ми которого являются массивы
TYPE STROKA = ARRAY [1..3] OF REAL;
MATR = ARRAY [1..2] OF STROKA;
2. Объединить в одной строке запись двух
одномерных массивов
TYPE MATR = ARRAY [1..2] OF ARRAY[1..3] OF REAL;
3. Указать при объявлении матрицы диапазоны изменения индексов для каждой
ее размерности
TYPE MATR = ARRAY [1..3, 1..2] OF REAL;
4. Если указанный тип-массив используется в программе только для определе-
ния одной матрицы, то удобно объявить ее сразу в разделе описания перемен-
ных : VAR M : ARRAY [1..3, 1..2] OF REAL;
Ссылка на элемент матрицы А, лежащий на пересечении I-й строки и J-го
столбца,
имеет вид А[I, J] или А [I] [J] .
Для задания значений элементам массива используют операторы назначе-
ния (присваивания :=) и ввода данных (READLN) .
Для ввода матрицы А[I, J] по строкам используют вложенные циклы, со-
стоящие из двух циклов FOR:
FOR I:=1 TO M DO
FOR J:=1 TO N DO
BEGIN
WRITE(‘ВВЕДИТЕ А[‘ ,I, J, ‘]: ’);
READLN(A[I, J])
END;
Вывод матрицы производится аналогично.
6.2 Задания к практическому занятию
1.
Сортировочный автомат настроен на диаметр валов
±D
в
н
, где В и Нсоот-
ветственно, верхнее и нижнее допустимые отклонения диаметра вала D. За-
дайте настроечный размер, сформируйте массив из валов различного диа-