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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

51. Создать текстовый файл, в котором строки
-
слова, разделенные
пробелами. Вывести строки, содержащие наименьшее количество
пробелов .
52. Создать файл целых чисел . Заполнить квадратную матрицу
заданного размера числами из этого файла. Проверить , есть ли в
сформированной матрице столбцы с одинаковой суммой элементов .
53. Дан текстов
ый файл INP1, содержащий упорядоченную
последовательность целых чисел в текстовом коде. С клавиатуры
вводится целое число . Включить его в каждую строку файла, сохранив
упорядоченность строки и строчную структуру файла.
54. Дан текстовый файл INP1, содержа
щий слова, разделенные
пробелами. Проверить , совпадают ли первые слова первой и
последней строк файла.
55. Дан текстовый файл INP1, содержащий последовательность слов
(алфавит -
латинский ), разделенных одним или несколькими пробелами.
Проверить , упорядо
чены ли слова в последней строке файла по
алфавиту .
56. Дан текстовый файл INP1, содержащий последовательность слов ,
разделенных одним или несколькими пробелами, которая
заканчивается точкой. Вывести первое из слов наименьшей длины ,
хранящихся в последней строке файла. (Длина слова - количество
литер в слове).
57. Дан текстовый файл INP1, содержащий слова, разделенные
пробелами. Проверить , совпадают ли последние слова первой и
последней строк файла.
58. Дан текстовый файл INP1, содержащий последовательность слов
(алфавит -
латинский ), разделенных одним или несколькими пробелами.
Проверить , упорядочены ли слова в каждой строке файла по алфавиту .
59. Дан текстовый файл INP1, содержащий упорядоченную
последовательность целых чисел в текстовом коде. Включить в файл
вводимое с клавиатуры число , сохранив упорядоченность и строчную
структуру файла.
function BList_DelElem1 (var L: TList; E: TElem)
: Boolean;
var N: TList; (* указатель на удаляемое эвено списка *)
P: TList; (* вспомогательный указатель для поиска *)
(* звена списка, предшествующего удаляемому *)
found: Boolean; (* признак : найден ли элемент E *)
(* в списке ? *)
begin
found := False;
if L <> Nil then (* если список не пуст *)
if L^.Info = E then (* если первое звено является удаляемым *)
begin
found := True;
N := L; (* запоминаем указатель на удаляемое звено *)
L := L^.Next; (* удаляем звено из списка *)
dispose( N ) (* освобождаем память *)
end
else
begin (* ищем звено, предшествующее удаляемому *)
P := L;
while not found and (P^.Next<>Nil) do
if P^.Next^.Info = E then
found :=True
else P := P^.Next;
if found then (* если найдено удаляемое звено *)
begin (* запоминаем указатель на удаляемое звено *)
N := P^.Next;
(* удаляем звено из списка *)
P^.Next := N^.Next;
(* освобождаем память *)
dispose( N )
end
end;
BList_DelElem1 := found
end;
(* Список без заглавного звена. Решение 2 *)
(* Рекурсивный вариант *)
function BList_DelElem2 (var L: TList; E: TElem):Boolean;
var N: TList; (* указатель на удаляемое эвено списка *)
begin
14 35 
51. Создать текстовый файл, в котором строки - слова, разделенные    function BList_DelElem1 (var L: TList; E: TElem)
пробелами. Вывести строки, содержащие наименьшее количество                            : Boolean;
пробелов.                                                            var N: TList; (* указатель на удаляемое эвено списка *)
                                                                           P: TList; (* вспомогательный указатель для поиска *)
52. Создать файл целых чисел. Заполнить квадратную матрицу                  (* звена списка, предшествующего удаляемому *)
заданного размера числами из этого файла. Проверить, есть ли в                found: Boolean; (* признак: найден ли элемент E *)
сформированной матрице столбцы с одинаковой суммой элементов.                      (* в списке ? *)
                                                                     begin
53. Дан текстовый файл INP1, содержащий упорядоченную                 found := False;
последовательность целых чисел в текстовом коде. С клавиатуры         if L <> Nil then (* если список не пуст *)
вводится целое число. Включить его в каждую строку файла, сохранив      if L^.Info = E then (* если первое звено является удаляемым *)
упорядоченность строки и строчную структуру файла.                       begin
54. Дан текстовый файл INP1, содержащий слова, разделенные                found := True;
пробелами. Проверить, совпадают ли первые слова первой и                  N := L; (* запоминаем указатель на удаляемое звено *)
последней строк файла.                                                    L := L^.Next; (* удаляем звено из списка *)
                                                                          dispose( N ) (* освобождаем память *)
55. Дан текстовый файл INP1, содержащий последовательность слов          end
(алфавит -                                                              else
латинский), разделенных одним или несколькими пробелами.                 begin (* ищем звено, предшествующее удаляемому *)
Проверить, упорядочены ли слова в последней строке файла по               P := L;
алфавиту.                                                                 while not found and (P^.Next<>Nil) do
                                                                           if P^.Next^.Info = E then
56. Дан текстовый файл INP1, содержащий последовательность слов,            found :=True
разделенных одним или несколькими пробелами, которая                       else P := P^.Next;
заканчивается точкой. Вывести первое из слов наименьшей длины,             if found then (* если найдено удаляемое звено *)
хранящихся в последней строке файла. (Длина слова - количество              begin (* запоминаем указатель на удаляемое звено *)
литер в слове).                                                              N := P^.Next;
                                                                            (* удаляем звено из списка *)
57. Дан текстовый файл INP1, содержащий слова, разделенные                   P^.Next := N^.Next;
пробелами. Проверить, совпадают ли последние слова первой и                  (* освобождаем память *)
последней строк файла.                                                       dispose( N )
                                                                            end
58. Дан текстовый файл INP1, содержащий последовательность слов          end;
(алфавит -                                                            BList_DelElem1 := found
латинский), разделенных одним или несколькими пробелами.             end;
Проверить, упорядочены ли слова в каждой строке файла по алфавиту.
                                                                     (* Список без заглавного звена. Решение 2 *)
59. Дан текстовый файл INP1, содержащий упорядоченную                (* Рекурсивный вариант *)
последовательность целых чисел в текстовом коде. Включить в файл     function BList_DelElem2 (var L: TList; E: TElem):Boolean;
вводимое с клавиатуры число, сохранив упорядоченность и строчную     var N: TList; (* указатель на удаляемое эвено списка *)
структуру файла.                                                     begin

                              14                                                                         35

Страницы