1. 1. Обработка текстовых строк

Найти и напечатать слово, содержащее наибольшее количество букв, если только буквы расположены в алфавитном порядке. Подсчитать количество симметричных слов, имеющих более двух знаков.

2. Обработка и модификация двумерных массивов

Задан квадратный массив целых чисел в диапазоне от -99 до 99. Переместить числа так, чтобы эта операция была эквивалентна повороту массива на 90 градусов по часовой стрелке. Результирующий массив вывести на экран.

3. Файловые структуры данных. Текстовые файлы

Два символьных файла преобразовать в третий по следующему правилу: каждая строка третьего файла представляет собой объединение двух строк первого и второго файлов, из которых удалены все совпадающие (одинаковые) слова.

4. Элементы машинной графики

На экране построить семейство кривых (Гипоциклоида),заданных функцией:

X = A·cos(t)+D·cos(A·t); [ 0 <= t <= 2·pi ]

Y = A·sin(t)-D·sin(A·t);

Группа параметров A,D для построения семейства дана в текстовом файле.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Vladelez=Record         Familia:String;         Adress:String;         Avto:String;         Nomer:String;         Vypusk:1900..2000;     End; и определяет: - количество автомобилей каждой марки;                         - владельца самого старого автомобиля;                         - фамилии владельцев и номера автомобилей данной марки.

2. 1. Обработка текстовых строк

Найти количество регулярных цепочек во всех словах, состоящих только из символов букв и цифр, и напечатать их. Напечатать в перевернутом виде слова, содержащие подобные цепочки, если длина цепочки не превышает 6 символов.

2. Обработка и модификация двумерных массивов

Квадратный массив, элементами которого являются английские буквы или символ пробела, заполнен кроссвордом. Напечатать все слова в кроссворде с чередующимися гласными и согласными буквами и их количество.

3. Файловые структуры данных. Текстовые файлы

Вывести на экран дисплея количество ЧИСЕЛ, обнаруженных в исходном файле, их общую сумму, пропуская числа, которые заключены между парами указываемых в диа­логе начальных и конечных слов. Оставшиеся числа переписать в другой файл.

4. Элементы машинной графики

На экране построить семейство кривых(Эпициклоида),заданных функцией:

X = (1+A)·cos(A·t)+R·cos(1+A)·t; [ 0 <= t <= 2·pi ]

Y = (1+A)·sin(A·t)-R·sin(1+A)·t;

Группа параметров A,R для построения семейства дана в текстовом файле.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Kniga=Record         Avtor:String;         Nazvanie:String;         God:Integer;         Izdatel:String;         Stranizy:Integer;     End; и определяет: - есть ли книги данного автора;                         - книгу с наибльшим количеством страниц;                         - названия книг данного автора, изданных с указанного года, в данном издательстве.

3. 1. Обработка текстовых строк

Напечатать в алфавитном порядке слова, которые содержат хотя бы один знак и заканчиваются заданной цепочкой из двух символов. Определить количество слов, содержащих все символы заданной цепочки.

2. Обработка и модификация двумерных массивов

В квадратный числовой массив записаны целые числа в диапазоне от -99 до 99. Определить, имеются ли такие квадратные подмассивы, сумма элементов которых равна P. Если таковые имеются, то вывести эти подмассивы на экран.

3. Файловые структуры данных. Текстовые файлы

Скопировать исходный файл в другой, удалив ПАЛИНДРОМЫ в промежутке между указанными начальной цепочкой и конечной цепочкой. На экран вывести количество скопированных и удаленных слов.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = 4.6·G·sin(x/F) + 1.9·M·cos(x+1.8); [-4 < x <4]

Группа параметров G,M,F для построения семейства дана в текстовом файле.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Passazhir=Record         Imja:String;         Reisa:String;         Gruz:Integer;         Ves:Integer;     End; и определяет: - число пассажиров, количество вещей которых превосходит среднее число вещей;                         - пассажира с данным количеством вещей и не более данного веса;                         - количество вещей и общем вес каждого рейса.

4. 1. Обработка текстовых строк

Напечатать все pегуляpные слова по следующему закону: каждая цепочка кpатных символов в слове заменяется на изобpажение десятичного числа, равного длине обнаpуженной цепочки кpатных символов. Слова, не являющиеся pегуляpными, выводиться не должны. Определить количество СЛОГОВ в последовательности.

2. Обработка и модификация двумерных массивов

Квадратный числовой массив моделирует расположение непересекающихся прямоугольников в квадрате, причем каждый прямоугольник заполнен своим числом, отлич­ным от нуля, а промежутки между ними заполнены нулями. Определить количество прямоугольников в квадрате и их общую площадь.

3. Файловые структуры данных. Текстовые файлы

Даны два текстовых файла. Напечатать количество символов каждого вида (БУКВ, ЦИФР, ЗНАКОВ) в первом и втором файлах. В третий файл вывести все РЕГУЛЯР­НЫЕ СЛОВА, встречающиеся и в первом, и во втором файлах.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = 0.5·T·exp(1.7·(X-1)) + 0.4·E·x^2 - 2x - 8.9; [-8 < x < 3]

Группа параметров T,E для построения семейства дана в текстовом файле.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Predmet=Record         Predmet:String;         Chasy:Integer;         Prepodavatel:String;         Kafedra:String;         Otchet:(zachet,ekzamen);     End; и определяет: - преподавателя который принимает больше всего экзаменов;                         - кафедру на которой читается больше всего предметов;                         - список преподавателей данной кафедры.

5. 1. Обработка текстовых строк

Подсчитать в последовательности количество слов, сумма цифр в которых равна заданному целому числу, и напечатать их. Напечатать слова, которые можно перенести, т. е. вставить между СЛОГАМИ знак переноса. Например: Pa-na-so-nic.

2. Обработка и модификация двумерных массивов

В квадратный числовой массив записаны целые числа в диапазоне от -99 до 99. Отсортировать по убыванию элементы массива по строкам, а затем строки по убыва­нию первых элементов в строке. Результирующий массив вывести на экран.

3. Файловые структуры данных. Текстовые файлы

Сравнить два файла с точностью до слов (без учета неотображаемых символов и пробе­лов между словами). Совпадающие слова вывести в третий файл, несовпадающие слова в четвертый файл, а их количества на экран.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = 1.7·H·x + 7.8·U·sin(2.1·x) + 3.4·(x-1)^2 - 7.2; [-3 < x < 3]

Группа параметров H,U для построения семейства дана в текстовом файле.

5. Записи

Сформировать файл, имеющий следующую структуру type имя=(Аня,Валя,Женя,Петя,Саша,Таня,Шура,Юра);

данные=record пол:(м,ж);рост:140..200 end;

и определить:

1. средний рост женщин;

2. имя самого высокого мужчины;

3. есть ли в группе хотя бы два человека одного роста.

6. 1. Обработка текстовых строк

Подсчитать количество слов, содержащих хотя бы один из символов знака и хотя бы одну цифру. Напечатать все слова, состоящие только из четных цифр, и подсчитать сумму этих цифр.

2. Обработка и модификация двумерных массивов

Квадратный массив, элементами которого являются английские буквы или символ пробела, заполнен кроссвордом. Напечатать общее количество слов в кроссворде и все буквы, которые находятся на пересечении слов кроссворда.

3. Файловые структуры данных. Текстовые файлы

Скопировать один файл в другой, разбив его на страницы указанного размера и удалив все числа (если они имеются в исходном файле). Каждая страница имеет свой порядко­вый номер и заключена в рамку, составленную из указываемого в диалоге символа.

4. Элементы машинной графики

На экране построить семейство кривых (Улитка Паскаля),заданных функцией:

X = A·cos(fi)·cos(fi) + 4·K·cos(fi);

Y = A·sin(fi)·cos(fi) + 4·K·sin(fi); [ 0 <= fi <= 2·pi ]

Группа параметров A,K для построения семейства дана в текстовом файле.

5. Записи

Сформировать файл, имеющий следующую структуру type дата=record число:1..31;

месяц:1..12;

год:1900..1996;

end;

анкета=record фамилия:string;

пол:(м,ж);

день рождения:дата;

end;

и определить:

1. фамилию самого старшего мужчины;

2. все фамилии, начинающиеся с заданной буквы;

3. список людей, родившихся в заданном месяце.

7. 1. Обработка текстовых строк

Подсчитать количество слов последовательности, начинающихся с большой буквы и оканчивающихся цифрой. Напечатать слова, содержащие задаваемую цепочку симво­лов и хотя бы один знак.

2. Обработка и модификация двумерных массивов

Символьный квадратный массив заполнен случайным набором символов. Определить количество цепочек, расположенных по вертикали и/или горизонтали и состоящих только из латинских букв.

3. Файловые структуры данных. Текстовые файлы

Соединить два файла в третий, добавив после содержимого первого файла только те строки второго файла, в которых имеются числа-палиндромы.

4. Элементы машинной графики

Дан текстовый файл, словами в котором являются ЧИСЛА, т.е. слова, состоящие только из цифр. Весь диапазон этих чисел от MIN до MAX делится на 20 интервалов. Построить столбиковую диаграмму распределения количества частот попадания чисел в эти интервалы.

5. Записи

Сформировать файл, имеющий следующую структуру type предмет=record название:string;

количество часов:integer;

преподаватель:string;

кафедра:string;

форма отчетности:(зачет,экзамен);

end;

и определить:

1. преподавателя, который принимает больше всего экзаменов;

2. кафедру, на которой читается больше всего предметов;

3. список преподавателей данной кафедры.

8. 1. Обработка текстовых строк

Найти все слова, содержащие ЧИСЛА от 10 до 99, и подсчитать их сумму. Напечатать слова, не имеющие цифр, в алфавитном порядке, удалив предварительно из них кратные символы.

2. Обработка и модификация двумерных массивов

Символьный квадратный массив заполнен случайным набором из английских букв, знаков и пробелов. Определить количество цепочек, расположенных по диагоналям, в которых гласные английские буквы чередуются с согласными, и напечатать их.

3. Файловые структуры данных. Текстовые файлы

Вставить после указанной строки одного файла определенное число строк другого фай­ла, начиная с заданной строки. Результаты поместить в отдельный файл с выводом на экран количества строк и ЧИСЕЛ в этом файле.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = 0.4·N·x - 2.3·R·x^2 + ln(│x+5│)+3; [-4 < x < 4]

Группа параметров N,R для построения семейства дана в текстовом файле.

5. Записи

Сформировать файл, имеющий следующую структуру type знакомый=record фамилия:string;

номертел:10000..99999;

адрес:string;

end;

и определить:

1. есть ли в книжке телефон данного человека;

2. кому принадлежит данный телефон;

3. список людей, живущих на данной улице.

9. 1. Обработка текстовых строк

Напечатать в алфавитном порядке все симметричные слова, удалив предварительно из них символы цифр. Напечатать слова, состоящие только из СЛОГОВ.

2. Обработка и модификация двумерных массивов

В числовом квадратном массиве постройте “спираль Улама” следующим образом: начиная с центрального элемента по спирали против часовой стрелки, массив заполняется натуральными числами от 1 до N². Определить количество простых чисел в массиве, а также вывести массив на экран, причем если элемент есть простое число, то вывести звездочку (*), иначе точку (.).

3. Файловые структуры данных. Текстовые файлы

Скопировать из одного файла в другой последовательность слов, которая начинается и заканчивается заданными цепочками, кроме слов-палиндромов. В каждой строке второ­го файла должно быть размещено не более N слов. На экран вывести количество скопированных слов и полученных строк во втором файле.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = Z·sin(x) - 1.3·D·x + exp(1.6·L·(x-1)) - 2; [-3 < x < 3]

Группа параметров Z,D,L для построения семейства дана в текстовом файле.

5. Записи

Сформировать файл, имеющий следующую структуру type студент= record фамилия: string;

номергр: string;

оценка1: integer;

оценка2: integer;

оценка3: integer;

end;

и определить:

1. фамилию того, кто лучше всех сдал экзамены;

2. средний балл по данному предмету;

3. список задолжников.

10. 1. Обработка текстовых строк

Напечатать в алфавитном порядке все слова, имеющие в своем составе заданную цепочку из произвольного набора символов. Определить количество слов, которые не имеют в своем составе ни одного символа такой цепочки, и напечатать эти слова.

2. Обработка и модификация двумерных массивов

В логическом квадратном массиве (N=8), моделирующем шахматную доску, значениям true соответствуют клетки, на которых расположены фигуры коня, false соответст­вует пустой клетке. Определить, имеются ли на доске фигуры, угрожающие другим, и напечатать их координаты.

3. Файловые структуры данных. Текстовые файлы

Скопировать из файла за один просмотр все РЕГУЛЯРНЫЕ СЛОВА во второй файл, а все ЧИСЛА – в третий. Вывести на экран количество ПАЛИНДРОМОВ исходного файла, количество слов и СЛОВ-ЧИСЕЛ в полученных файлах.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = P·0.56x -11·V·x + 4·M·sin(X+1) + 3; [-5 < x < 5]

Группа параметров P,V,M для построения семейства дана в текстовом файле.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Passazhir=Record         Imja:String;         Reis:String;         Gruz:Integer;         Ves:Integer;     End; и определяет: - рейс с максимальным весом багажа;                         - имя пассажира с наибольшим количеством вещей;                         - список пассажиров и информацию об их багаже, улетающих данным рейсом.

11. 1. Обработка текстовых строк

Напечатать в алфавитном порядке все слова, которые начинаются с большой буквы и заканчиваются заданной цепочкой из трех символов. Определить количество слов, содержащих все символы заданной цепочки, и напечатать порядковые номера этих слов.

2. Обработка и модификация двумерных массивов

Прямоугольный числовой массив размером 6х7 моделирует месячную страничку табеля-календаря. По заданному номеру месяца и номеру дня недели первого числа этого месяца (пн – 1, вт – 2, и т. д.) построить три таблички табеля-календаря на заданный месяц и два последующих. Напечатать число рабочих и выходных дней за три месяца. Праздничные дни не учитывать.

3. Файловые структуры данных. Текстовые файлы

Дан текстовый файл. Выбрать из первого файла слова, не имеющие в своем составе знаков. Эти слова записать во второй файл построчно в алфавитном порядке в следую­щем виде: <слово> <-> <количество повторений в файле>.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = Q·cos(2x) - J·x + ln(│x+3│); [-2 < x < 2]

Группа параметров Q,J для построения семейства дана в текстовом файле.

5. Записи

Написать программу, которая формирует файл записей данной структуры

Type Student=Record

        Imja:String;

        Pol:(m,f);

        Vozrast:16..35;

     Kurs:1..5;

End; и определяет  - курс на котором наибольший процент мужчин;

                        - самые распространенные женские и мужские имена;                        - -список студентов данного пола, данного курса.

12. 1. Обработка текстовых строк

Подсчитать количество слов, состоящих из одинаковых букв или одинаковых цифр. Напечатать в перевернутом виде слова, имеющие хотя бы один знак и имеющие в начале слова и в конце одинаковую букву.

2. Обработка и модификация двумерных массивов

Прямоугольный логический массив моделирует биллиардный стол. Шарик из заданной клетки после удара движется по диагоналям массива, отражаясь от стенок. Определить, сколько ударов об стенку должен совершить шарик, прежде чем он вернется опять в исходную точку. Показать процесс перемещения шарика, используя процедуру GotoXY(X,Y) и Delay(T) из модуля Crt.

3. Файловые структуры данных. Текстовые файлы

Соединить два файла в третий, добавив после содержимого первого файла только те строки второго файла, в которых имеются слова, отсутствующие в первом файле.

4. Элементы машинной графики

Дан текстовый файл, словами в котором являются ЧИСЛА, т.е. слова, состоящие только из цифр. Каждая тройка чисел представляет собой параметры окружности: координаты центра и радиус.

Построить семейство окружностей на экране. Окружности могут пересекаться. Окружности, не пересекающиеся ни с какой другой окружностью, выделить другим цветом или штриховкой.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Drug=Record         Imja:String;         Telefon:10000..99999;         Adres:String;     End; и определяет: - есть ли в книжке телефон данного знакомого;                         - кому принадлежит данный телефон;                         - список людей, живущих на данной улице.

13. 1. Обработка текстовых строк

Найти в последовательности самое длинное слово, являющееся регулярной цепочкой и, удалив все гласные буквы, напечатать его. Определить, есть ли в последовательности слова, в которых нет или только цифр, или только знаков, и напечатать их.

2. Обработка и модификация двумерных массивов

В частично заполненном значением true логическом квадратном массиве имеются свободные участки, моделируемые значением false. Определить, можно ли размес­тить на них квадрат из значений true размером M. Если возможно, то напечатать массив со вставленным квадратом на экране, причем если элемент равен true, то вывести звездочку (*), иначе точку (.).

3. Файловые структуры данных. Текстовые файлы

Каждое слово исходного файла, не имеющего в своем составе одновременно цифры и знака, вывести в выходной файл в отдельную строку. За словом в скобках вывести сим­волы слова в десятичных кодах через пробел. Например: ForNtoM (70 111 114 78 116 111 77) и т. д.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = K·x - F·sin(0.93x) + S·cos(W x); [-6 <x < 6 ]

Группа параметров K,F,S,W для построения семейства дана в текстовом файле.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Klass = Record         Imja:(Anna, Ivan, Egor, Irina, Meri, Sofi);         Pol:(f,m);         Rost:140..200;     End; и определяет: - средний рост женщин:                         - имя самого высокого мужчины:                         - есть ли в группе хотя бы два человека одного роста.

14. 1. Обработка текстовых строк

В словах заменить указанную цепочку длиной не более 30 символов на заданную цепочку меньшей длины, (например: АВС на ТЕ), и напечатать эти слова. Найти количество слов, содержащих и знаки, и цифры, и буквы. (Большие и малые буквы не различаются).

2. Обработка и модификация двумерных массивов

В логическом квадратном массиве N=8, моделирующем шахматную доску, значениям true соответствуют клетки, на которых расположены фигуры слона, false соответствует пустой клетке. Определить, сколько имеется на доске фигур, угрожающих другим и удалять их с доски до тех пор, пока слоны не будут угрожать друг другу. Напечатать количество оставшихся фигур. Результирующий массив вывести на экран, причем если элемент равен true, то напечатать звездочку (*), иначе точку (.).

3. Файловые структуры данных. Текстовые файлы

Скопировать из одного файла в другой последовательность строк, заданных начальным и конечным порядковыми номерами от начала файла. На экран вывести количество скопированных символов букв и число скопированных слов, являющихся ПАЛИНДРО­МАМИ.

4. Элементы машинной графики

Дан текстовый файл, словами в котором являются ЧИСЛА, т.е. слова, состоящие только из цифр. Первые три пары чисел есть координаты вершин треугольника на плоскости, остальные - координаты точек некоторой ломаной линии на плоскости. Построить треугольник и ломаную линию на экране и определить, пересекает ли она этот треугольник.

5. Записи

Написать программу, которая формирует файл записей данной структуры Type Passazhir=Record         Imja:String;         Reisa:String;         Gruz:Integer;         Ves:Integer;     End; и определяет: - число пассажиров, количество вещей которых превосходит среднее число вещей;                         - пассажира с данным количеством вещей и не более данного веса;                         - количество вещей и общем вес каждого рейса.

15. 1. Обработка текстовых строк

Подсчитать количество слов, являющихся регулярными цепочками и содержащих хотя бы две одинаковых буквы. Напечатать все слова, имеющие одну цифру, удалив из таких слов все символы знаков.

2. Обработка и модификация двумерных массивов

В логическом квадратном массиве N=8, моделирующем шахматную доску, значениям true соответствуют клетки, на которых расположены фигуры ферзя, false соответ­ствует пустой клетке. Определить, сколько имеется на доске фигур, угрожающих другим и удалить с доски те из них, которые угрожают двум или более фигурам. Массив вывести на экран, причем если элемент равен true, то вывести звездочку (*), иначе точку (.).

3. Файловые структуры данных. Текстовые файлы

Переписать содержимое двух файлов в третий, подсчитав количество всех символов (кроме пробелов), количество ПАЛИНДРОМОВ и удаляя (отбрасывая) встречающиеся СЛОВА-ЧИСЛА.

4. Элементы машинной графики

На экране построить семейство кривых, заданных функцией:

Y = A·sin(0.98x) + B·cos(0.37x); [-5 < x < 5]

Группа параметров A,B для построения семейства дана в текстовом файле.

5. Записи

Сформировать файл, имеющий следующую структуру type предмет=record название:string;

количество часов:integer;

преподаватель:string;

кафедра:string;

форма отчетности:(зачет,экзамен);

end;

и определить:

1. преподавателя, который принимает больше всего экзаменов;

2. кафедру, на которой читается больше всего предметов;

3. список преподавателей данной кафедры.

16. 1. Обработка текстовых строк

Определить количество слов, содержащих и буквы, и цифры, и знаки. Напечатать их. Напечатать слово, содержащее самую длинную цепочку из цифр, если только она симметричная.

2. Обработка и модификация двумерных массивов

Прямоугольный символьный массив MxN заполнен по строкам текстом, состоящим из отдельных слов, разделенных пробелами. В начале и в конце строк тоже могут быть пробелы. Сдвинуть все строки влево, исключив начальные пробелы, и напечатать самую короткую и самую длинную строки.

3. Файловые структуры данных. Текстовые файлы

Даны два файла. Найти в них несовпадающие слова, имеющие не менее 2 цифр. Вывести каждое такое слово в отдельную строку. За словом в скобках вывести символы слова в шестнадцатеричном виде через пробел.

Например: z1s2k4M (7A 31 73 32 6B 34 4D) и т. д.

4. Элементы машинной графики

На экране построить семейство кривых (Спираль), заданных функцией:

x = r·cos(t+f); y = r·sin(t+f); r = t/2; [ 0 < t < 2*pi*n ]

Группа параметров F,N для построения семейства дана в текстовом файле.

5. Записи

Сформировать файл, имеющий следующую структуру type знакомый=record фамилия:string;

номертел:10000..99999;

адрес:string;

end;

и определить:

1. есть ли в книжке телефон данного человека;

2. кому принадлежит данный телефон;

3. список людей, живущих на данной улице.