Задания для самостоятельного решения

Задача 1. Создать файл, компонентами которого являются целые числа. Вывести на экран компоненты, позиции которых имеют четные номера, а затем - компоненты, позиции которых имеют нечетные номера.

Задача 2. Даны символьные файлы f₁ и f₂. Переписать с сохранением порядка компоненты файла f₁ в файл f₂, а компоненты файла f₂ - в файл f₁. Использовать вспомогательный файл h.

Задача 3. Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла f не равна нулю. Числа в файле идут в следующем порядке: десять положительных, десять отрицательных, десять положительных, десять отрицательных и т.д. Переписать компоненты файла f в файл g так, чтобы в файле g числа шли в следующем порядке: пять положительных, пять отрицательных, пять положительных, пять отрицательных и т.д.

Задания для контрольной работы

Вариант 1.

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

Вариант 2.

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

Вариант 3.

Дан файл вещественных чисел. Удалить из него максимальную компоненту.

Вариант 4.

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

Вариант 5.

Дан файл вещественных чисел. Удалить из него все компоненты, принадлежащие отрезку [1,5].

Вариант 6.

Дан файл вещественных чисел. Записать вместо максимального элемента файла сумму положительных компонент.

Вариант 7.

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

Вариант 8.

Дан файл вещественных чисел. Переписать в новый файл все компоненты, расположенные после первого положительного.

Вариант 9.

Дан файл вещественных чисел. Записать вместо его минимального элемента сумму отрицательных компонент.

Вариант 10.

Дан файл вещественных чисел. Переписать в новый файл все компоненты, расположенные после максимальной компоненты.

Вариант 11.

Дан файл вещественных чисел. Найти произведение его отрицательных компонент. Переписать эти компоненты в новый файл.

Вариант 12.

Дан файл целых чисел. Найти сумму компонент с четным значением и записать в новый файл те из них, значения которых превышают 4.

Вариант 13.

Дан файл вещественных чисел. Получить новый файл, записав в него сначала все положительные, а затем все отрицательные компоненты.

Вариант 14.

Дан файл вещественных чисел. Записать в новый файл все элементы данного в обратном порядке и найти сумму всех отрицательных компонент.

Вариант 15.

Дан файл вещественных чисел. Переписать в новый файл сначала все компоненты, превышающие среднее арифметическое его элементов, а затем все остальные компоненты.

Вариант 16.

Дан файл вещественных чисел. Если сумма его элементов превышает количество компонент, переписать в новый файл все положительные компоненты, в противном случае – все отрицательные.

Вариант 17.

Дан файл целых чисел. Все числа, кратные трем, переписать в новый файл. Найти их среднее арифметическое.

Вариант 18.

Дан файл вещественных чисел. Если среднее арифметическое его компонент превышает значение максимального элемента файла, удалить из него все отрицательные элементы, в противном случае – удалить все положительные.

Вариант 19.

Дан файл вещественных чисел. Заменить в нем все отрицательные элементы значением минимальной компоненты файла.

Вариант 20.

Дан файл вещественных чисел. Все элементы, расположенные до минимального элемента, заменить нулями.

Записи

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

Определение типа начинается идентификатором record и заканчивается словом end. Между ними заключен список компонент, называемых полями. Каждое поле состоит из идентификатора и типа компоненты. Примеры определения типа:

Туре

PaletteType = record

Size : Byte;

Colors: Array[0..MaxColors] of Shortint

end;

ViewPortType = record

xl,yl,x2,y2: Integer;

Clip : Boolean;

end;

FileRec = record

Handle, Mode, RecSize: Word;

Private : Array[1..26] of Byte;

UserData: Array[1..16] of Byte;

Name : Array [0..79] of Char;

end;

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

Примеры решения заданий

Задача 1. Багаж пассажира характеризуется количеством вещей и общим весом вещей. Имеется информация о багаже нескольких пассажиров - соответствующие пары чисел. Подсчитать общее количество вещей и выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом не менее 30 кг.

Решение: Алгоритм решения задачи представлен на рис. 7.1.

Программа в Turbo Pascal будет иметь следующий вид:

Const z:String[3] = ' не';

t:Byte=0;

Type Info = record

q: Byte;

w: Real;

end;

Var luggage: Info;

i,n : Byte;

Begin

Write('Введите число пассажиров ');

ReadLn(n);

WriteLn ('Вводите пары чисел (количество

и вес) ');

For i:=l to n do

Begin

ReadLn(luggage.q,luggage.w);

Inc(t,luggage.q);

If (luggage.q=l) and (luggage.w>=30)

then z:='';

End;

WriteLn('Суммарное количество вещей: ',t);

WriteLn('Искомый пассажир ' ,z, ' имеется');

ReadLn;

End.

Рис. 8.1. Блок-схема алгоритма решения задачи 1

Определим тип Info - запись с двумя полями. Имена полей q (количество вещей одного пассажира) и w (общий вес вещей одного пассажира); типы полей Byte и Real. Luggage - идентификатор переменной введенного типа. Введём данные с клавиатуры и, используя составные имена полей записи luggage.q и luggage.w, найдём искомые величины.

Задача 2. Имеются сведения о кубиках: размер каждого кубика (длина ребра в см), его цвет (красный, желтый, зеленый или синий) и материал (деревянный, металлический, картонный). Найти: а) количество кубиков каждого из перечисленных цветов и их суммарный объём; б) количество деревянных кубиков с ребром 3 см и количество металлических кубиков с ребром, большим 5 см.

Решение: Алгоритм решения задачи представлен на рис. 7.2.

Для представления разнотипной информации о кубе определим тип Info - запись с тремя полями. Имена полей l (размер), с (цвет) и m (материал); типы полей Word, String[7] и String[13]. Для хранения информации введём сложную типизированную константу - массив записей Cube. Имена полей при этом указываются явно; поле от своего значения отделяется двоеточием; поля разделяются точкой с запятой; порядок следования полей должен соответствовать порядку их описания в типе Info.

Для упрощения доступа к полям записей при их совместной обработке предназначен оператор with, имеющий формат:

with <имя переменной> do <onepamop>.

Один раз указав имя переменной типа запись в операторе with, можно внутри оператора обращаться к полям записи без указания имени.

Программа в Turbo Pascal будет иметь следующий вид:

Uses Crt;

Type Info = record

l: Word;

c: String[7];

m: String [13];

end;

Const n=5;

Cube: Array [l..n] of Info =

((l: 3; с: 'синий'; m: 'деревянный' ),

(l: 8; с: 'красный'; m: 'металлический'),

(l: 3; с: 'зеленый'; m: 'деревянный' ),

(1: 4; с: 'желтый'; m: 'металлический'),

(1: 5; с: 'синий'; m: 'картонный' ));

Var i,ql,q2,q3,q4,q5,q6: 0..n;

v: Longlnt;

Begin

ql:=0;

q2:=0;

q3:=0;

q4:=0;

q5:=0;

q6:=0;

v:=0;

For i:=l to n do

begin

With Cube[i] do

begin

{a} If с='красный' then Inc(ql);

If с='желтый' then Inc(q2);

If c='зеленый' then Inc(q3);

If c='синий' then Inc(q4);

Inc(v, l*Sqr(l));

{б} If (m='деревянный') and (l=3)

then

Inc(q5);

If (m='металлический') and (l>5)

then

Inc(q6);

End;

End;

{ вывод }

WriteLn('Красных:',ql,' желтых:',q2,

' зеленых:',q3,' синих:',q4);

WriteLn('Суммарный объем: ',v);

WriteLn('Деревянных кубиков с ребром 3 см:',

q5);

WriteLn('Металлических кубиков с ребром,

большим 5 см: ', q6);

ReadLn;

End.

Рис. 8.2. Блок-схема алгоритма решения задачи 2

Задача 3. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий сведения о нескольких автомобилях. Найти фамилии владельцев и номера автомобилей данной марки.

Решение: Программа в Turbo Pascal будет иметь следующий вид:

Program Automobile;

Uses Crt;

Const n=10;

found: Boolean=false;

Type Info = record

Brand : String[15];

Number : String[15];

Surname: String [20];

end;

Var Car: Info;

f: File of Info;

z: String[20];

i: 1..n;

Begin

Assign(f,'auto.dat');

{$I-};{отключаем проверку ошибки ввода-вывода}

Reset(f);

{$I+}

{если файл не существует, создаем новый}

If IOResult<>0 then Rewrite(f);

{если файл пустой, заполняем его}

If FileSize(f)=0 then

begin

Writeln('Файл пуст! Введите элементы!');

Write('Вводите данные построчно: ');

Write('марку автомобиля, его номер ');

Writeln('и фамилию владельца');

For i:=l to n do

begin

With Car do

begin

Readln(Brand);

Readln(Number);

Readln(Surname);

End;

Write(f,Car);

End;

Write('Введите заглавными буквами');

Write('марку автомобиля >>');

ReadLn(z);

While not Eof(f) do

begin

Read(f,Car);

With Car do

If Brand=z

then

begin

found:=true;

WriteLn(Surname:20, Number:20);

End;

End;

If Not found

then

Write('Автомобиля данной марки нет');

ReadLn;

End.

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