Государственный экзамен по информатике. Горбенко О.Д - 11 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

24. Описать процедуру вычисления скалярного произведения
последней из строк целочисленной матрицы , содержащих хотя бы
один нулевой элемент, на последний из столбцов , не содержащих ни
одного нулевого элемента. Применить эту процедуру к матрице 4х4,
компоненты которой хранятся в текстовом файле MATRIX.
25. Описать процедуру вычисления скалярного произведения
последней из строк целочисленной матрицы , содержащих только
положительные элементы , на первый из столбцов , содержащих хотя
бы один положительный элемент. Применить эту процедуру к матрице
4 х4, компоненты которой хранятся в текстовом файле MATRIX.
26. Описать процедуру для определения , содержит ли целочисленная
матрица хотя бы две строки, образующие одинаковые множества
чисел. Применить эту процедуру к матрице 4х4, компоненты которой
хранятся в текстовом файле MATRIX.
27. Описать процедуру для определения , содержит ли целочисленная
матрица хотя бы две строки, образующие несовпадающие множества
чисел. Применить эту процедуру к матрице 4х4, компоненты которой
хранятся в текстовом файле MATRIX.
28. Описать процедуру для определения , содержит ли целочисленная
матрица хотя бы два столбца, содержащие одинаковые множества
чисел. Применить эту процедуру к матрице 4х4, компоненты которой
хранятся в текстовом файле MATRIX.
29. Описать процедуру вычисления скалярного произведения первого
из столбцов целочисленной матрицы , содержащих хотя бы один
нулевой элемент, на первую из строк, не содержащих ни одного
нулевого элемента. Применить эту процедуру к матрице 4х4,
компоненты которой хранятся в текстовом файле MATRIX.
30. Описать процедуру вычисления скалярного произведения
последнего из столбцов целочисленной матрицы , содержащих хотя бы
один нулевой элемент, на последнюю из строк, не содержащих ни
одного нулевого элемента. Применить эту процедуру к матрице 4х4,
компоненты которой хранятся в текстовом файле MATRIX.
31. Описать процедуру для определения , содержит ли целочисленная
procedure List_Clear ( var L: TList );
var N: TList; (* указатель на удаляемое эвено списка *)
begin
while L <> Nil do
begin
N := L;
L := L^.Next;
dispose( N )
end
end;
(*Процедура демонстрирует работу приведенных выше процедур.
Параметр isB позволяет выбрать тип списка: с заглавным звеном или
без него. *)
Procedure Test( isB: Boolean );
const FirstElem = 4444;
{ Сообщение о результате выполнения операции удаления }
procedure DelMessage(b: Boolean);
begin
if b then
WriteLn('Элемент в списке найден и удален ')
else
WriteLn('Заданный элемент в списке не найден ')
end;
var L: TList; (* список *)
E : TElem; (* вводимая пользователем информационная часть *)
begin
if isB then
BList_Init ( L )
else
ZList_Init ( L );
WriteLn( 'Список инициализирован ' );
if isB then BList_AddFirst ( L, FirstElem )
else ZList_AddFirst ( L, FirstElem );
WriteLn( 'В список добавлен элемент', 'со значением ',FirstElem );
Write( 'Введите значение элемента, добавляемого','в начало списка: '
);
ReadLn( E );
if isB then
BList_AddFirst ( L, E )
else
11 38 
 procedure List_Clear ( var L: TList );
 var N: TList; (* указатель на удаляемое эвено списка *)                 24. Описать процедуру вычисления скалярного произведения
 begin                                                                   последней из строк целочисленной матрицы, содержащих хотя бы
  while L <> Nil do                                                      один нулевой элемент, на последний из столбцов, не содержащих ни
  begin                                                                  одного нулевого элемента. Применить эту процедуру к матрице 4х4,
   N := L;                                                               компоненты которой хранятся в текстовом файле MATRIX.
   L := L^.Next;
   dispose( N )                                                          25. Описать процедуру вычисления скалярного произведения
  end                                                                    последней из строк целочисленной матрицы, содержащих только
 end;                                                                    положительные элементы, на первый из столбцов, содержащих хотя
                                                                         бы один положительный элемент. Применить эту процедуру к матрице
 (*Процедура демонстрирует работу приведенных выше процедур.             4х4, компоненты которой хранятся в текстовом файле MATRIX.
Параметр isB позволяет выбрать тип списка: с заглавным звеном или
без него. *)                                                             26. Описать процедуру для определения, содержит ли целочисленная
Procedure Test( isB: Boolean );                                          матрица хотя бы две строки, образующие одинаковые множества
const FirstElem = 4444;                                                  чисел. Применить эту процедуру к матрице 4х4, компоненты которой
  { Сообщение о результате выполнения операции удаления }                хранятся в текстовом файле MATRIX.
  procedure DelMessage(b: Boolean);
  begin                                                                  27. Описать процедуру для определения, содержит ли целочисленная
   if b then                                                             матрица хотя бы две строки, образующие несовпадающие множества
     WriteLn('Элемент в списке найден и удален')                         чисел. Применить эту процедуру к матрице 4х4, компоненты которой
   else                                                                  хранятся в текстовом файле MATRIX.
     WriteLn('Заданный элемент в списке не найден')
  end;                                                                   28. Описать процедуру для определения, содержит ли целочисленная
var L: TList; (* список *)                                               матрица хотя бы два столбца, содержащие одинаковые множества
    E : TElem; (* вводимая пользователем информационная часть *)         чисел. Применить эту процедуру к матрице 4х4, компоненты которой
begin                                                                    хранятся в текстовом файле MATRIX.
  if isB then
     BList_Init ( L )                                                    29. Описать процедуру вычисления скалярного произведения первого
  else                                                                   из столбцов целочисленной матрицы, содержащих хотя бы один
     ZList_Init ( L );                                                   нулевой элемент, на первую из строк, не содержащих ни одного
  WriteLn( 'Список инициализирован' );                                   нулевого элемента. Применить эту процедуру к матрице 4х4,
  if isB then BList_AddFirst ( L, FirstElem )                            компоненты которой хранятся в текстовом файле MATRIX.
       else ZList_AddFirst ( L, FirstElem );
  WriteLn( 'В список добавлен элемент', 'со значением ',FirstElem );     30. Описать процедуру вычисления скалярного произведения
  Write( 'Введите значение элемента, добавляемого','в начало списка: '   последнего из столбцов целочисленной матрицы, содержащих хотя бы
);                                                                       один нулевой элемент, на последнюю из строк, не содержащих ни
  ReadLn( E );                                                           одного нулевого элемента. Применить эту процедуру к матрице 4х4,
  if isB then                                                            компоненты которой хранятся в текстовом файле MATRIX.
    BList_AddFirst ( L, E )
  else                                                                   31. Описать процедуру для определения, содержит ли целочисленная

                                 38                                                                       11

Страницы