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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

положительные элементы i
-
й строки матрицы образуют
возрастающую последовательность , а отрицательные - убывающую
последовательность . Рассматривая элементы полученной
последовательности как цифры двоичного числа, найти десятичную
запись этого числа вывести ее на экран .
67. В текстовом файле INP1 записаны : натуральное число n>=2,
действительная квадратная матрица порядка n. Построить
последовательность b
1
, b
2
, ..., b
n
из нулей и единиц , в которой b
i
=1
тогда и только тогда, когда сумма элементов i-й строки матрицы ,
предшествующих последнему отрицательному элементу строки, не
превосходит минимального среди положительных элементов i-го
столбца. Рассматривая элементы полученной последовательности как
цифры двоичного числа, найти десятичную запись этого числа и
вывести ее на экран .
68. Описать процедуру для определения , образует ли хотя бы одна
строка целочисленной матрицы убывающую последовательность .
Применить эту процедуру к матрице 4х4, компоненты которой
хранятся в текстовом файле MATRIX.
69. Описать процедуру для определения , образует ли хотя бы один
столбец целочисленной матрицы неубывающую последовательность.
Применить эту процедуру к матрице 4х4, компоненты которой
хранятся в текстовом файле MATRIX.
70. В текстовом файле задана целочисленная матрица размера n×n.
Отсортировать строки матрицы в порядке возрастания произведений
элементов строк.
71. В текстовом файле задана целочисленная матрица размера n×n.
Отсортировать столбцы м
атрицы в порядке убывания элементов ,
находящихся на главной диагонали.
72. В текстовом файле задана символьная матрица размера n×n.
Символы каждой строки матрицы образуют слово. Переформировать
матрицу так , чтобы слова следовали в лексикографическом порядке.
73. В текстовом файле находятся m
квадратных матриц . Создать
выходной файл, в котором исходные матрицы расположены в порядке
убывания произведений элементов , расположенных на главной
6) печать элементов списка;
7) удаление всех элементов списка.
Program List_Proc (input,output);
type
TElem = Integer; (* Тип информационой части *)
TList = ^TNode; (* Представление списка *)
TNode = record (* Звено списка *)
Info: TElem; (* Информационная часть *)
Next: TList (* Следующий элемент списка *)
end;
{ 1. Инициализация списка }
(* Список без заглавного звена *)
procedure BList_Init (var L: TList);
begin
L := Nil
end;
(* Список с заглавным звеном *)
procedure ZList_Init (var L: TList);
var N: TList; (* заглавный элемент *)
begin
new( N );
N^.Next := Nil;
L := N
end;
{ 2. Добавление элемента в начало списка }
(* Список без заглавного звена *)
procedure BList_AddFirst (var L: TList; E: TElem);
var N: TList; (* добавляемое эвено списка *)
begin
new( N );
N^.Info := E;
N^.Next := L;
L := N
end;
(* Список с заглавным звеном *)
procedure ZList_AddFirst (L: TList; E: TElem);
var N: TList; (* добавляемое эвено списка *)
16 33 
положительные      элементы     i-й   строки   матрицы   образуют              6) печать элементов списка;
возрастающую последовательность, а отрицательные - убывающую                   7) удаление всех элементов списка.
последовательность.      Рассматривая      элементы    полученной
последовательности как цифры двоичного числа, найти десятичную          Program List_Proc (input,output);
запись этого числа вывести ее на экран.                                 type
                                                                            TElem = Integer; (* Тип информационой части *)
67. В текстовом файле INP1 записаны: натуральное число n>=2,                TList = ^TNode; (* Представление списка *)
действительная квадратная матрица порядка n. Построить                      TNode = record      (* Звено списка     *)
последовательность b1, b2, ..., bn из нулей и единиц, в которой b i=1        Info: TElem;     (* Информационная часть *)
тогда и только тогда, когда сумма элементов i-й строки матрицы,              Next: TList     (* Следующий элемент списка *)
предшествующих последнему отрицательному элементу строки, не                end;
превосходит минимального среди положительных элементов i-го              { 1. Инициализация списка }
столбца. Рассматривая элементы полученной последовательности как          (* Список без заглавного звена *)
цифры двоичного числа, найти десятичную запись этого числа и              procedure BList_Init (var L: TList);
вывести ее на экран.                                                      begin
                                                                           L := Nil
68. Описать процедуру для определения, образует ли хотя бы одна           end;
строка целочисленной матрицы убывающую последовательность.
Применить эту процедуру к матрице 4х4, компоненты которой                (* Список с заглавным звеном *)
хранятся в текстовом файле MATRIX.                                       procedure ZList_Init (var L: TList);
                                                                         var N: TList; (* заглавный элемент *)
69. Описать процедуру для определения, образует ли хотя бы один          begin
столбец целочисленной матрицы неубывающую последовательность.             new( N );
Применить эту процедуру к матрице 4х4, компоненты которой                 N^.Next := Nil;
хранятся в текстовом файле MATRIX.                                        L := N
                                                                         end;
70. В текстовом файле задана целочисленная матрица размера n×n.
Отсортировать строки матрицы в порядке возрастания произведений          { 2. Добавление элемента в начало списка }
элементов строк.                                                         (* Список без заглавного звена *)
                                                                         procedure BList_AddFirst (var L: TList; E: TElem);
71. В текстовом файле задана целочисленная матрица размера n×n.          var N: TList; (* добавляемое эвено списка *)
Отсортировать столбцы матрицы в порядке убывания элементов,              begin
находящихся на главной диагонали.                                         new( N );
                                                                          N^.Info := E;
72. В текстовом файле задана символьная матрица размера n×n.              N^.Next := L;
Символы каждой строки матрицы образуют слово. Переформировать             L := N
матрицу так, чтобы слова следовали в лексикографическом порядке.         end;

73. В текстовом файле находятся m квадратных матриц. Создать            (* Список с заглавным звеном *)
выходной файл, в котором исходные матрицы расположены в порядке          procedure ZList_AddFirst (L: TList; E: TElem);
убывания произведений элементов, расположенных на главной                var N: TList; (* добавляемое эвено списка *)

                                16                                                                           33

Страницы