Лабораторная работа № 7. Обработка строк

End.

Begin

Begin

Var

Type

End.

End

Begin

Begin

Begin

Var

A,C,: aray [1..2,1..3] of real;

B: aray [1...3,1..3] of real;

I,J,K: integer;

For I:=1 to 2 do

For J:=1 to 3 do

Read (A[I,J]);

For I:=1 to 3 do

For J:=1 to 3 do

Read (B[I,J]);

For I:=1 to 2 do

For J:=1 to 3 do

C[I,J]:=0;

For K:=1 to 3 do

C[I,J]:=C[I,J]+A[I,K]*B[K,J];

End;

Writeln (‘Массив С’);

For J:=1 to 3 do

Write (C[I,J]:12:5)

Задание 12

Составьте программу вычисления скалярного произведения двух векторов U и V, состоящих из четырех элементов каждый, по формуле:

. Вычислите длину вектора .

Текст программы на языке Турбо Паскаль

Program SP;

N:1..4;

S,DV: real;

U,V: array [N] of real;

I:N;

For I:=1 to 4 do

Read (V[I]);

For I:=1 to 4 do

Readln (U[I]);

S:=0;

DV:=0;

For I:=1 to 4 do

S:=S+U[I]*V[I];

DV:=DV+U[I]*V[I];

End;

DV:= sqrt (DV );

Writeln (‘Скалярное произведение=’,S);

Writeln (‘Длина вектора=’);DV

Задания для самостоятельного выполнения

1. Даны матрицы А и В размера k´m и m´l соответственно. Найти произведения АВ.

2. Дана матрица А размера m´n. Получить транспонированную матрицу А (m´n).

3. Дана матрица А:

а) размера m´m;

б) размера m´n;

Получить матрицу АА (m´m).

4. След квадратной матрицы равен сумме элементов, расположенных на главной диагонали. Даны квадратная матрица порядка m, натуральное число n. Вычислить следы матриц А, А²,..., Аⁿ.

5. Даны целые числа А₁, А₂, А₃. Получить целочисленную матрицу [B_ij], i, j = 1, 2, 3, для которой B_ij=Ai-3·Aj.

6. Получить [A_ij], i=1, 10, j=1, 12, где A_ij=i+2·j.

7. Получить [A_ij], i=1, n, где A_ij=1/(i+j).

8. Даны натуральное число n, действительная матрица n´9. Найти среднеарифметическое:

а) каждого из столбцов;

б) каждого из столбцов, имеющих четные номера.

9. Дана действительная матрица n´m. Определить числа B₁,..., B_m, равные соответственно:

а) сумме элементов строк;

б) произведениям элементов строк;

в) наименьшим значениям элементов строк;

г) значениям среднеарифметических элементов строк;

д) разностям наибольших и наименьших значений строк.

10. Дана матрица n´n. Получить последовательность главной диагонали.

11. Дана матрица 6´9. Найти среднеарифметическое наибольшего и наименьшего значений ее элементов

12. Дана матрица n´m. Найти сумму наибольших значений элементов ее строк.

13. В данной действительной квадратной матрице n´n найти сумму элементов строки, в которой расположен элемент с наибольшим значением. Предполагается, что такой элемент единственный.

Цель работы: составить и выполнить программу обработки строк.

Переменная типа строка предназначена для обработки цепочек символов. Каждый символ является элементом типа char. Строки могут вводиться с помощью стандартных операторов read/readln и выводиться стандартными операторами write/writeln.
Объявляются переменные типа строка в разделе var. При объявлении указываются идентификатор переменной, зарезервированное слово string и, в квадратных скобках, целое число – максимально возможная длина строки. Наибольшая длина строки составляет 256 символов. Если переменная имеет значение с максимальной длиной строки, то при объявлении переменной ограничиваются зарезервированным словом.

Пример:
var
identificator_1: string;

identificator_2: string[20];

identificator_3: string[255];

Значение строкового типа также как и значение типа char при записи внутри программы заключаются в апострофы.

Пример:
identificator_1:='это - компьютер';

identificator_1[1]:='э';

Простейшая операция которую Pascal позволяет выполнить со строками – это операция конкатенации, или сцепления, или объединения строк в операторе присваивания. Операция записывается с помощью знака "+".

Пример:
identificator_1:='это' + '-' + 'компьютер';

Для обработки строковых данных используется ряд встроенных функций:
1) Length (L) - определяет длину строки, являющуюся значением переменной L. Значение, возвращаемое этой функцией является целочисленным и отображает реальную длину строки, т.е. может не совпадать со значением длины строки, объявленным при декларации.

Пример 1:

var
L: string[15];

A: byte;

Begin
L:='Урок';
A:=length(L);
Write(A);
End.
Пример 2

Дата добавления: 2014-12-10