Часть II

1)type myfile = file of char; Опишите процедуру:

1. add(f,c), добавляющую литеру с в начало файла f

2. addlast(f,c), добавляющую литеру с в конец файла f

3. replace(f,c), заменяющую последнюю литеру в файле f на литеру с

4. double(f), удваивающие в файле f все цифры

5. next(f), заменяющую в файле f каждую цифру на следующую по величине ('9' заменять на '0')

6. delete(f), удаляющую из файла f все литеры '+' и '-'

7. del(f), удаляющую из файла f предпоследний элемент, если он есть

8. firsts(f), оставляющую в файле f только первые вхождения каждой литеры

9. mid(f,m), присваивающую параметру m средний элемент файла f, если файл нечетной длины и символ '!', если файл четной длины

10. copy(f1,f2), присваивающую файлу f2 содержимое файла f1

11. copychar(f1,f2), присваивающую файлу f2 все латинские буквы файла f1

12. change(f), оставляющую в файле только цифры

13. mid1(f), присваивающую среднему символу файла f значение '1', если файл нечетной длины

14. delsp(f), удаляющую из файла f идущие подряд пробелы, оставляя из них только один

2)type student = record

name: string[10];

group: integer;

marks: array[1..5] of 2..5;

end;

myfile = file of student;

Создайте файл, содержащий записи о 10 студентах из 3 групп.

1. Выведите на экран имена круглых отличников

2. Выведите на экран имена круглых двоечников

3. Выведите на экран номера групп, в которых нет троечников

4. Выведите на экран номера групп, в которых отличников больше, чем двоечников

5. Выведите на экран средний балл по каждому из 5 предметов

6. Выведите на экран средний балл по 1-му предмету в каждой из 3 групп

7. Выведите на экран оценки студента по имени x

(var st: student; st.name := x)

8. Выведите на экран имена студентов, которые сдали 3-ий экзамен на 5

9. Выведите на экран максимальный балл по 2-му предмету в каждой из 3 групп

10. Выведите на экран имена студентов и их оценки из группы 1

11. Выведите на экран номера групп, в которых есть студенты по имени х

12. Выведите на экран средний балл студента по имени х

13. Выведите на экран средний балл студентов по всем группам

14. Выведите на экран номера групп, в которых последний экзамен сдали все студенты