· выборка и вывод на экран данных по переговорам в заданном месяце, стоимость которых выше средней за предыдущий период.
Структура данных о междугородних переговорах должна содержать следующие поля:
· текстовое поле – город;
· текстовое поле – телефон абонента;
· поле целого числа – номер месяца;
· поле целого числа – номер дня в месяце;
· поле целого числа – количество минут разговора;
· поле вещественного числа – цена минуты разговора.
В результате работы программы в текущем каталоге будут образованы два файла: mgts.dat с введенными исходными данными и mgts.txt с результатами выборки данных. информация второго файла будет продублирована на экране дисплея.
Программа для указанного примера имеет следующий вид:
Program Z5;
type
{структура данных}
t_mgts= record
town, tel: string; {город и номер телефона}
d, m, min: integer; {день, месяц и количество минут}
price: real; {стоимость одной минуты}
end;
var
m: t_mgts; {переменная для хранения данных}
f: file of t_mgts; {файл для хранения данных}
ft: text; {файл для хранения результатов обработки}
ans: char; {переменная для подтверждения конца ввода}
mz, n: integer; {заданный месяц и
количество переговоров за предыдущий период}
s: real; {сумма и средняя стоимость переговоров}
begin
{создать файл mgts.dat для хранения данных}
assign( f, 'mgts.dat');
rewrite( f);
{начать цикл ввода данных и сохранения их в файле }
repeat
{объявить работу с записью m}
with m do
begin
{заполненить полей переменной m данными с клавиатуры}
write('Город? '); readln(town);
write('Номер телефона? '); readln(tel);
write('Месяц? '); readln(m);
write('День месяца? '); readln(d);
write('Количество минут? '); readln(min);
write('Цена минуты? '); readln(price);
end;
{записать значение переменной m в файл mgts.dat }
write( f, m);
{ввести ответ на запрос об окончании набора данных}
write('Ввод закончен? ');
readln(ans);
{закончить цикл ввода при положительном ответе}
until (ans='Y') or (ans='y');
{закрыть файл mgts.dat }
close( f);
{ввести номер заданного месяца}
write('Заданный месяц? '); readln(mz);
n:=0; s:=0;
{установить файл mgts.dat на начало для чтения}
reset( f);
{проверить достижения конца файла mgts.dat }
while not eof(f) do
{пока не достигнут конец файла выполнять}
begin
{считать очередную запись файла mgts.dat }
read( f, m);
if (m.m<mz) then
{если номер месяца меньше заданного выполнить}
begin
{увеличить счетчик записей на 1}
n:= n+1;
{добавить к сумме стоимости переговоров стоимость очередного разговора}
s:= s+ m.min*m.price;
end;
end;
{вычислить среднюю стоимость переговоров}
s:= s/n;
{создать файл mgts.txt для хранения результатов выборки}
assign(ft, 'mgts.txt');
rewrite(ft);
{установить файл mgts.dat на начало для чтения}
reset(f);
{проверить достижения конца файла mgts.dat }
while not eof(f) do
{пока не достигнут конец файла выполнять}
begin
{счтитать очередную запись файла mgts.dat }
read( f, m);
{объявить работу с переменной m}
with m do
if (m=mz) and (min*price>s) then
{если месяц заданной и стоимость выше средней}
begin
{вывести информацию о найденном разговоре на экран}
writeln( town, tel, m, d, min, price);
{сохранить информацию о найденном разговоре в файле mgts.txt }
writeln( ft, town, tel, m, d, min, price);
end;
end;
{закрыть файл mgts.txt }
close( ft);
end.
8. Примерный перечень вопросов для контроля знаний
1. Основные понятия информатики. Информация и ее использование. Понятие кода и кодирования информации. Единицы измерения количества информации.
2. Представление информации в компьютере. Таблицы кодов (ASCII и UNICODE).
3. Понятие системы счисления. Двоичная и шестнадцатиричная система счисления.
4. Перевод чисел между двоичной и десятичной, шестнадцатиричной и десятичной, шестнадцатиричной и двоичной системами счисления.
5. Алгебра логики. Основные функции и их таблицы истинности.
6. Компьютер как система обработки информации. Структура компьютера. Взаимодействие компонент компьютера.
7. Стандартные устройства персонального компьютера и их характеристики. Основной алгоритм работы процессора.
8. Программное обеспечение компьютера, типы программного обеспечения.
9. Понятие операционной системы, функциональное назначение и основные компоненты. Типы операционных систем.
10. Файловая система OS. Примеры организации файловой структуры.
11. Понятие алгоритма и его свойства. Способы записи алгоритмов. Типовые элементы блок-схем.
12. Типовые алгоритмы (следования, ветвления, циклические) и их блок-схемы.
13. Этапы решения задач с использованием ЭВМ.
14. Языки программирования. Трансляторы и интерпретаторы.
15. Понятие о компьютерных вирусах. Антивирусная профилактика. Архивация файлов.
16. Назначение и возможности архиваторов.
17. Интегрированная среда Турбо-Паскаль. Назначение и возможности. Структура программы в Турбо-Паскале.
18. Структура, состав и назначение секции описаний в программе на Паскале.
19. Переменные и константы. Необходимость и правила их описания.
20. Стандартные типы переменных для хранения чисел. Описание и присваивание значений.
21. Символьные и строковые переменные. Переменные логического типа. Описание и присваивание значений.
22. Массивы. Описание и присваивание значений элементам массивов. Описание и присваивание значений.
23. Процедуры и функции работы со строками.
24. Переменные типа запись. Назначение, описание и доступ к полям записи.
25. Понятие предложения (оператора) в Турбо-Паскале. Объединение групп предложений в блоки.
26. Процедуры ввода и вывода. Форматированный вывод данных.
27. Оператор присваивания и выражение. Арифметические операции и выражения. Правила записи и порядок выполнения.
28. Логические операции и выражения. Правила записи и порядок выполнения.
29. Основные математические функции Турбо-Паскаля.
30. Условные операторы. Назначение, типы и правила записи. Оператор выбора. Назначение и правила записи.
31. Операторы цикла. Назначение, типы и правила записи.
32. Файлы в Паскале и MS DOS. Правила их взаимодействия. Особенности использования процедур ввода-вывода при работе с файлами.
33. Текстовые файлы, их особенности и правила работы с ними.
34. Типизированные файлы, их особенности и правила работы с ними. Процедуры и функции работы с типизированными файлами.
1. Качала В.В. Основы программирования на языке Турбо-Паскаль. – Мурманск МГАРФ 1997. – 90с.
2. Качала В.В. Основы информатики. – Мурманск МГАРФ 1997. – 90с.
3. Информатика: Учебник\ под ред. Макаровой Н.В. – М.: , Финансы и статистика, 1997. – 768с.
4. Левин А. Самоучитель работы на компьютере. – М.: Диалог МИФИ, 1999. – 670с.
5. Левин А. Самоучитель полезных программ. – СПб.: Питер, 2002. – 720с.
6. Фаронов Э.В., Турбо-Паскаль 7.0. – М.: Диалог МИФИ, 1998. –470с.
7. Юркин А.Г. Задачник по программированию. – СПб.: Питер, 2002. – 192с.
1. Введение 3
2. Основные положения 4
3. Контрольное задание 1. Теоретический вопрос 4
3.1. Варианты задания 4
4. Контрольное задание 2. Линейные алгоритмы 5
4.1. Варианты задания 6
4.2. Пример выполнения задания 6
5. Контрольное задание 3. Алгоритмы ветвления 7
5.1. Варианты задания 7
5.2. Пример выполнения задания 9
6. Контрольное задание 4. Алгоритмы обработки массивов 10
6.1. Варианты задания 11
6.2. Пример выполнения задания 12
7. Контрольное задание 5. Алгоритмы обработки сложных структур данных 13
7.1. Варианты задания 13
7.2. Пример выполнения задания 17
8. Примерный перечень вопросов для контроля знаний 20
9. Рекомендуемая литература 22
10. Оглавление 23