«Решения задач на Pascal Файловый тип данных» - Контрольная работа

Содержание

5.6. Лабораторная работа 5

Тема: Файловый тип данных.

Вариант Задания

2 1. Заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика случайных чисел. Найти сумму максимального и минимального элементов этого файла.

2. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Определить, имеется ли книга с названием «Информатика». Если да, то напечатать фамилию автора и год издания. Если таких книг несколько, то напечатать все имеющиеся о них сведения.

3 1. Записать файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны K. Вывести полученный файл на печать.

2. Дан файл T, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона. Найти фамилию и инициалы сотрудника по его номеру телефона.

4 1. Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Найти количество удвоенных нечётных чисел среди компонентов файла.

2. Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно действительного (вес в килограммах). Выяснить, имеется ли пассажир, багаж которого состоитиз одной вещи весом менее М кг.

6 1. Записать в файл прямого доступа N действительных чисел. Найти наибольшее из значений модулей компонентов с нечётными номерами.

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

8 1. Записать в файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла.

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

9 1. Записать в файл f N целых чисел, полученных с помощью

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

2. Дан файл assort, содержащий сведения об игрушках: указывается название игрушки, ее стоимость в рублях и возрастные границы ( например, игрушка может предназначаться для детей от 2 до 5 лет). Получить название 3-х самых дорогих игрушек. Есть ли среди них те, которые подходят для семилетнего ребенка?

11 1. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания.

Найти названия книг данного автора, изданных начиная с 1960 г.

2. Записать в файл последовательного доступа N действительных чисел. Найти разность наибольшего из этих чисел со средним арифметическим всех положительных чисел файла.

12 1. Дан файл T, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам

2. Записать в файл последовательного доступа N действительных чисел. Найти среднее геометрическое компонентов файла.

13 1. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти год с наименьшим номером.

---

Введение

var

f:text;

i1,j1,n,i,j:integer;

m,k:array[1.100] of real;

l:real;

a1,b,a:string;

begin

readln(n);

assign(f,'a:\prz\output.txt');

rewrite(f);

randomize;

for i:=1 to n do writeln(f,random(10));

close(f);

assign(f,'a:\prz\output.txt');

reset(f);l:=1;

for i:=1 to n do

begin

readln(f,k[i]);

writeln(k[i]);

l:=l*k[i];

if i<>1 then l:=sqrt(l)

end;

close(f);

writeln('Otvet:',l);

readln;

end.

---

Выдержка из текста работы

var

f:text;

s1,s2,N,max,min,q,i:integer;

begin

randomize;

write('N=');readln(n);

assign(f,'input.txt');

rewrite(f);

for i:=1 to n do

begin

writeln(f,random(n));

end;

close(f);

max:=0;

min:=32000;

assign(f,'input.txt');

reset(f);

for i:=1 to n do

begin

readln(f,q);

write(q:4);

if q>max then max:=q;

if q

end;

close(f);

assign(f,'input.txt');

reset(f);

for i:=1 to n do

begin

readln(f,q);

if q=max then s1:=s1+q;

if q=min then s2:=s2+q;

end;

close(f);

writeln;

writeln('Max=',max);

writeln('Cг  max=',s1);

writeln('Min=',min);

writeln('Cг  min=',s2);

readln;

end.

---

Заключение

Const

Source = 'input.txt';

Target = 'output.txt';

Qmax = 100;

Type

Date = Record

Day, Month, Year: Integer;

end;

Var

D: Array[1.Qmax] of Date;

I, N, MinYear: Integer;

R: Date;

Begin

Assign(Input, Source);

Reset(Input);

Assign(Output, Target);

Rewrite(Output);

N := 0;

While Not EOF Do

Begin

Inc(N);

ReadLn(D[N].Day, D[N].Month, D[N].Year);

End;

If N = 0 Then Exit;

MinYear := D[1].Year;

For I := 1 To N Do

If D[I].Year < MinYear Then MinYear := D[I].Year;

WriteLn('Мин. Год: ', MinYear);

WriteLn('Весенние даты:');

For I := 1 To N Do

If (D[I].Month >= 3) And (D[I].Month <= 5) Then WriteLn(D[I].Day, ' ', D[I].Month, ' ', D[I].Year);

R := D[1];

For I := 1 To N Do

Begin

If D[I].Year > R.Year Then R := D[I];

If D[I].Year = R.Year Then

Begin

If D[I].Month > R.Month Then R := D[I];

If D[I]. Month = R.Month Then

If D[I].Day > R.Day Then R := D[I];

End;

End;

WriteLn('Самая поздняя дата: ', R.Day, ' ', R.Month, ' ', R.Year);

End.

---

Список литературы

1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.

2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.

3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.

4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.

5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.

---

Примечания

Готовые решения задач на языке Паскаль

К работе прилагается все исходники с расширением .pas.

---