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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

60. Дан текстовый файл INP1, содержащий в каждой своей строке
фамилию студента и его средний балл по результатам сессии. Вывести
фамилии студентов со средним баллом >= 4.
61. Дан текстовый файл INP1, содержащий в каждой своей строке
фамилию студента и его средний балл по результатам сессии. Вывести
фамилии студентов с минимальным средним баллом .
62. Дан текстовый файл INP1, содержащий в каждой своей строке
фамилию студента и его средний балл по результатам сессии. Вывести
фамилии студентов с максимальным средним баллом.
63. Дан текстовый файл INP1, состоящий из слов , разделенных одним
или несколькими пробелами. Сформировать три новых текстовых
файла OUT1, OUT2 и OUT3 из двух-, трех- и четырехбуквенных слов
заданного файла соответственно .
64. В заданном текстовом файле INP1 записаны : натуральное число
n>=2, действительная квадратная матрица порядка n. Построить
последовательность b
1
, b
2
, ..., b
n
из нулей и единиц , в которой b
i
=1
тогда и только тогда, когда элементы i-й строки матрицы образуют
возрастающую или убывающую последовательность . Рассматривая
элементы полученной последовательности как цифры двоичного
числа, найти десятичную запись этого числа и вывести ее на экран .
65. В заданном текстовом файле INP1 записаны : натуральное число
n>=2, действительная квадратная матрица порядка n. В каждой строке
и в каждом столбце матрицы есть хотя бы один положительный и хотя
бы один отрицательный элемент. Построить последовательность b
1
, b
2
,
..., b
n
из нулей и единиц , в которой b
i
=1 тогда и только тогда, когда
минимальный среди положительных элементов i-й строки матрицы
меньше минимального среди положительных элементов i-го столбца
матрицы . Рассматривая элементы полученной последовательности как
цифры двоичного числа, найти десятичную запись этого числа и
вывести ее на экран .
66. В текстовом файле INP1 записаны : натуральное число n>=2,
действительная
квадратная матрица порядка n. Построить последовательность b
1
, b
2
,
..., b
n
из нулей и единиц , в которой b
i
=1 тогда и только тогда, когда
begin
BList_AddFirst( L^.Next, E )
end;
{ 3. Добавление элемента в конец списка }
(* Список без заглавного звена *)
procedure BList_AddLast (var L: TList; E: TElem);
var
N: TList; (* добавляемое эвено списка *)
P: TList; (* вспомогательный указатель для поиска *)
(* последнего элемента списка *)
begin
new( N );
N^.Info := E;
N^.Next := Nil;
if L = Nil then L := N
else
begin (* поиск последнего элемента списка *)
P := L;
while P^.Next <> Nil do P := P^.Next;
(* добавление в список нового эвена *)
P^.Next := N
end
end;
(* Список с заглавным звеном *)
procedure ZList_AddLast ( L: TList; E: TElem );
begin (* поиск последнего элемента списка *)
while L^.Next <> Nil do L := L^.Next;
(* добавление в список нового эвена *)
new( L^.Next );
L := L^.Next;
L^.Info := E;
L^.Next := Nil
end;
{ 4. Удаление первого вхождения в список L элемента E }
{ Результат функции: }
{ True - элемент найден и удален }
{ False - элемент в списке не найден }
(* Список без заглавного звена. Решение 1 *)
15 34 
begin
 BList_AddFirst( L^.Next, E )                             60. Дан текстовый файл INP1, содержащий в каждой своей строке
end;                                                      фамилию студента и его средний балл по результатам сессии. Вывести
                                                          фамилии студентов со средним баллом >= 4.
{ 3. Добавление элемента в конец списка }
(* Список без заглавного звена *)                         61. Дан текстовый файл INP1, содержащий в каждой своей строке
procedure BList_AddLast (var L: TList; E: TElem);         фамилию студента и его средний балл по результатам сессии. Вывести
var                                                       фамилии студентов с минимальным средним баллом.
 N: TList; (* добавляемое эвено списка *)
 P: TList; (* вспомогательный указатель для поиска *)     62. Дан текстовый файл INP1, содержащий в каждой своей строке
        (* последнего элемента списка       *)            фамилию студента и его средний балл по результатам сессии. Вывести
begin                                                     фамилии студентов с максимальным средним баллом.
 new( N );
 N^.Info := E;                                            63. Дан текстовый файл INP1, состоящий из слов, разделенных одним
 N^.Next := Nil;                                          или несколькими пробелами. Сформировать три новых текстовых
 if L = Nil then L := N                                   файла OUT1, OUT2 и OUT3 из двух-, трех- и четырехбуквенных слов
 else                                                     заданного файла соответственно.
   begin (* поиск последнего элемента списка *)
    P := L;                                               64. В заданном текстовом файле INP1 записаны: натуральное число
    while P^.Next <> Nil do P := P^.Next;                 n>=2, действительная квадратная матрица порядка n. Построить
    (* добавление в список нового эвена *)                последовательность b1, b2, ..., bn из нулей и единиц, в которой bi=1
    P^.Next := N                                          тогда и только тогда, когда элементы i-й строки матрицы образуют
   end                                                    возрастающую или убывающую последовательность. Рассматривая
end;                                                      элементы полученной последовательности как цифры двоичного
                                                          числа, найти десятичную запись этого числа и вывести ее на экран.
(* Список с заглавным звеном *)
 procedure ZList_AddLast ( L: TList; E: TElem );          65. В заданном текстовом файле INP1 записаны: натуральное число
 begin (* поиск последнего элемента списка *)             n>=2, действительная квадратная матрица порядка n. В каждой строке
  while L^.Next <> Nil do L := L^.Next;                   и в каждом столбце матрицы есть хотя бы один положительный и хотя
  (* добавление в список нового эвена *)                  бы один отрицательный элемент. Построить последовательность b1, b2,
  new( L^.Next );                                         ..., b n из нулей и единиц, в которой bi=1 тогда и только тогда, когда
  L := L^.Next;                                           минимальный среди положительных элементов i-й строки матрицы
  L^.Info := E;                                           меньше минимального среди положительных элементов i-го столбца
  L^.Next := Nil                                          матрицы. Рассматривая элементы полученной последовательности как
 end;                                                     цифры двоичного числа, найти десятичную запись этого числа и
                                                          вывести ее на экран.
{ 4. Удаление первого вхождения в список L элемента E }
{ Результат функции:            }                         66. В текстовом файле INP1 записаны: натуральное число n>=2,
{ True - элемент найден и удален }                        действительная
{ False - элемент в списке не найден }                    квадратная матрица порядка n. Построить последовательность b1, b2,
(* Список без заглавного звена. Решение 1 *)              ..., b n из нулей и единиц, в которой b i=1 тогда и только тогда, когда

                                 34                                                           15

Страницы