Контрольная работа
«Решения задач на Pascal Файловый тип данных»
- 15 страниц
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 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.
Тема: | «Решения задач на Pascal Файловый тип данных» | |
Раздел: | Программирование, Базы данных | |
Тип: | Контрольная работа | |
Страниц: | 15 | |
Цена: | 400 руб. |
Закажите авторскую работу по вашему заданию.
- Цены ниже рыночных
- Удобный личный кабинет
- Необходимый уровень антиплагиата
- Прямое общение с исполнителем вашей работы
- Бесплатные доработки и консультации
- Минимальные сроки выполнения
Мы уже помогли 24535 студентам
Средний балл наших работ
- 4.89 из 5
написания вашей работы
682 автора
помогают студентам
23 задания
за последние сутки
10 минут
среднее время отклика
Тест
«Ответы на тест Основы искусственного интеллекта»Курсовая работа
«Решение задачи «Планирование ассортимента блюд на предприятии об-щественного питания» в программной среде MS Excel»Дипломная работа
«Нелинейное программирование с сепарабельными функциями»Дипломная работа
«Изучение текстовых задач на уроках математики в начальных классах»