Функции trunc, round в Pascal.

Для того чтобы в Паскаль можно было оперировать не только целыми числами, но и дробными существуют вещественные типы данных. Один из таких типов называется Real. В этом уроке мы рассмотрим 2 функции, которые производятся над дробными числами. Это ...

Строковые константы в Pascal.

В качестве значения строковой константы может выступать любая последовательность символов. Эта последовательность заключается в апострофы. Строковая константа отличается от символьной константы тем, что здесь в качестве значения константы можно ...

Умножение, деление, сложение, вычитание вещественных чисел в Pascal.

С вещественными числами можно производить операции умножения, сложения, вычитания, а также операцию деления. Причем операция деления отличается от операции Div. Деление вещественных чисел - это обычное математическое деление, в результате которого ...

Циклы и массивы

Организация условного перехода. Оператор IF.

Для программирования разветвляющихся процессов, содержащих две ветви, используется оператор IF условного перехода (ветвления), имеющий две конструкции.

Сортировка простым включением и простым выбором.

Сортировка простым включением.
Пример 33. Методом простого включения упорядочить (отсортировать) в порядке возрастания массив из 8 целых чисел (44, 55,12,42, 94, 18, 06, 67).

Если в результате работы вашей программы необходимо значения каждого элемента двумерного массива отобразить на экране монитора, то можно воспользоваться любым из двух способов, описанных ниже.

Предположим, в вашей программе сделаны объявления:
CONST
M = 3;
N = 4;
VAR   
A: ARRAY[ 1.. М, 1.. N] OF REAL;

  • Тогда первый способ вывода элементов массива в виде матрицы будет иметь инструкцию:

WRITELN(' Элементы матрицы А имеют значения:');
FOR I := 1 ТО М
DO       BEGIN
             FOR J := 1 ТО N
             DO WRITE(A[I, J]: С: D,' '); {Вывод строки}
             WRITELN    {Переход к новой строке}
             END;
В этой инструкции первый оператор WRITELN сообщает пользователю, какую информацию он увидит на экране. Второй оператор WRITE сформирует цепочку (строку) вещественных чисел, разделенных пробелами в формате :С:D. Третий оператор WRITELN переведет курсор на новую строку.

  • Второй способ обеспечивает вывод значений элементов двумерного массива в столбец, причем каждый из элементов будет идентифицирован парой индексов I и J:

FOR I := 1 ТО М
DO        FOR J :=1 TO N
              DO WRITELN('A[', I:1, ',' , J :1, '] = ', A[I,J]: C: D);

Пример 35. Найти сумму двух матриц С = А + В размерностью m х n. Элементы Сi,j искомой матрицы С вычисляются по формулам: Сi,ji,j+Bi,j; i = 1...m; j = 1...n.
Эта задача отличается от предыдущего примера тем, что не известна размерность матриц. Поэтому значения тип необходимо ограничить сверху константами GM = Sup m, GN = Sup n.
Структурограмма:

sortirovka massiv....

PROGRAM PR35;
CONST
GM = 8;
GN = 8;
VAR   
А, В, C: ARRAY [1 .. GM, 1 .. GN] OF REAL;
M, N, I, J: INTEGER;
BEGIN
WRITELN('Bвeдите количество строк M и столбцов N матриц A и B');
READLN(M, N);
WRITELN('Введите матрицу А');
FOR I := 1 ТО М DO FOR J := 1 ТО N DO READ(A[I, J]);
WRITELN('Введите матрицу В');
FOR I := 1 TO M DO FOR J := 1 TO N DO READ(B[I, J]);
FOR      I := 1 TO M    { Вычисление матрицы С }
DO        FOR J := 1 TO N
              DO    C[I,J]:=A[I,J] + B[I,J];
WRITELN('Матрица С имеет вид:');
FOR I := 1 ТО М
DO    BEGIN
          FOR J := 1 TO N DO WRITE(A[I, J]: 5: 2,' ');
          WRITELN
          END
END. Если Вы желаете научиться компьютерной графике и искусству создания игр unity уроки помогут Вам.


Предыдущая статья: Многомерные массивы.
Оглавление: Лекции по Pascal.
Следующая статья: Сортировка двумерного массива.


   ГлавнаяПаскальЛекции по Паскаль