readln( x, y);
f1:= (x>0) and (y>0) and (sqrt(x*x+y*y)<6);
f2:= (x>0) and (y<0) and (y>(x-6));
f:= f1 or f2;
if f then
writeln('Заданная точка принадлежит заданной области')
else
writeln(' Заданная точка не принадлежит заданной области ');
end.
В результате работы программы на дисплей будет выведено соответствующее сообщение.
6. Контрольное задание 4.
Алгоритмы обработки массивов
Реализовать алгоритм обработки массива в соответствии с вариантом задания. Вывести на экран исходный массив и результаты его обработки.
0. В одномерном массиве найти минимальный и максимальный элементы массива и заменить первый элемент массива суммой минимального и максимального элементов. Вывести на экран исходный и результирующий массивы.
1. Найти среднее арифметическое элементов одномерного массива и определить порядковый номер первого элемента, меньше среднего арифметического. Вывести на экран массив, среднее арифметическое и порядковый номер найденного элемента.
2. Найти максимальный элемент одномерного массива и поменять местами второй элемент с максимальным. Вывести на экран исходный и результирующий массивы.
3. Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным. Вывести на экран исходный и результирующий массивы.
4. Ввести массив, содержащий целые отрицательные, положительные числа и нули. Переписать в другой массив только отрицательные элементы. Вывести на экран исходный и новый массивы.
5. В одномерном массиве целых чисел определить порядковые номера четных элементов. Вывести на экран исходный массив и номера четных элементов.
6. В одномерном массиве целых чисел определить порядковые номера элементов, кратных трем. Вывести на экран исходный массив и номера элементов, кратных трем.
7. В одномерном массиве целых чисел найти минимальный и максимальный элементы и поменять их местами. Вывести на экран исходный и результирующий массивы.
8. Ввести одномерный массив Х вещественных чисел. Размерность массива 7. Переписать элементы этого массива в обратном порядке в массив Y. Вывести на экран массивы Х и Y.
9. В одномерном массиве, содержащем положительные, отрицательные элементы и нули, найти первый отрицательный элемент. Вывести на экран исходный массив и порядковый номер первого отрицательного элемента.
6.2. Пример выполнения задания
Написать программу ввода с клавиатуры количества элементов массива и заполнения его вещественными числами. Организовать выборку элементов больших среднего арифметического по исходному массиву и переписать их в другой массив. Вывести на экран исходный массив, значение среднего арифметического и массив-результат.
Алгоритм решения задачи состоит из следующих шагов:
· ввести количество элементов исходного массива;
· ввести элементы массива по одному в строке;
· вычислить значение среднего арифметического;
· выбрать из исходного массива элементы большие среднего и переписать их значения в массив результат;
· последовательно вывести на экран исходный массив, значение среднего и массив-результат.
Программа для указанного примера имеет следующий вид:
Program Z4;
var
a, b: array[1..20] of real;
i, j, n: integer;
s: real;
begin
write( 'Количество элементов исходного массива? ');
readln(n);
writeln('Водите элементы массива');
for i:=1 to n do
readln(a[i]);
s:= 0;
for i:=1 to n do
s:= s+a[i];
s:=s/n;
j:=0;
for i:=1 to n do
if a[i]>s then
begin
j:=j+1;
b[j]:=a[i];
end;
writeln(' Исходный массив:');
for i:=1 to n do
write(a[i]:6:2);
writeln;
writeln(' Среднее арифметическое: s=', s:8:4);
writeln(' Массив-результат:');
for i:=1 to j do
write(b[i]:6:2);
writeln;
end.
Примерный вид исходных данных и результатов на дисплее:
Исходный массив:
7.53 1.25 3.23 4.78 6.73 0.17
Среднее арифметическое: s= 3.9482
Массив-результат:
7.53 4.78 6.73
7. Контрольное задание 5.
Алгоритмы обработки сложных структур данных
Реализовать алгоритм обработки данных сложной структуры типа запись.
0. Информация о продукции молокозавода содержит следующие данные: наименование продукта, объем упаковки, дату выпуска (номер месяца и номер дня в месяце), срок годности в днях.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о продуктах с заданным наименованием и минимальным сроком годности, вывод данных о них на экран и сохранение в текстовом файле.
1. Информация об авиарейсах содержит следующие данные: наименование пункта назначения, номер рейса, время вылета (часы и минуты), цену билета.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о рейсах с ценой билета больше средней, в заданный пункт назначения, вывод данных о них на экран и сохранение в текстовом файле.
2. Информация о концертах городской филармонии содержит следующие данные: наименование места проведения, количество мест в зале, дату проведения, включающую номер месяца и дня , среднюю цену билета.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о самых дорогих концертах, проводимых в заданном месте, вывод данных о них на экран и сохранение в текстовом файле.
3. Информация о продаже компьютеров содержит следующие данные: тип процессора, тактовая частота, емкость ОЗУ, емкость жесткого диска, цену.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о компьютерах с максимальной тактовой частотой и заданной ценой, вывод данных о них на экран и сохранение в текстовом файле.
4. Информация о продаже автомобилей содержит следующие данные: марка, цвет, год выпуска, объем двигателя, цену.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации об автомобилях заданной марки и ценой ниже средней, вывод данных о них на экран и сохранение в текстовом файле.
5. Информация службы занятости о вакансиях содержит следующие данные: должность, заработок, необходимые образование и стаж работы, количество вакантных мест.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о вакансии при заданном образовании с минимальным необходимым стажем, вывод данных о них на экран и сохранение в текстовом файле.
6. Информация о движении поездов содержит следующие данные: пункт назначения, номер поезда, время отправления (часы и минуты), количество свободных мест, средняя цена билета.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о самых ранних (час отправления) поездах в заданный пункт назначения, вывод данных о них на экран и сохранение в текстовом файле.
7. Информация о посадочном материале для озеленения содержит следующие данные: наименование посадочного материала, место посадки, дату посадки количество единиц материала и цену единицы.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о заданном посадочном материале, высаживаемом позже всех (день месяца), вывод данных о нем на экран и сохранение в текстовом файле.
8. Информация о выдаче денег при уходе сотрудников в отпуск содержит следующие данные: фамилия, должность, дата ухода в отпуск (номер месяца и дня в нем), начисленная сумма.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о сотрудниках заданной должности с минимальным начислением, вывод данных о них на экран и сохранение в текстовом файле.
9. Информация о движении междугороднего автобуса содержит следующие данные: название остановки, время прибытия (часы, минуты), время стоянки (минуты), стоимость проезда из начального пункта.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации об остановках, стоянка на которых выше средней по маршруту, вывод данных о них на экран и сохранение в текстовом файле.
7.2. Пример выполнения задания
Информация о междугородних переговорах абонента содержит следующие данные: город, номер телефона абонента, дату (номер месяца и номер дня в месяце), количество минут, цену минуты разговора.
Написать программу, в которой:
обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
организовать выборку из типизированного файла информации о переговорах в заданном месяце, чья стоимость превысила среднюю стоимость переговоров за предыдущие месяцы в году, вывод данных о них на экран и сохранение в текстовом файле.
Алгоритм решения задачи должен одержать следующие шаги:
· организация структуры данных для одного разговора;
· циклический ввод данных и сохранение их в типизированном файле;
· завершение ввода при соответствующем подтверждении путем нажатия клавиш 'Y' или 'y';
· ввод значения номера заданного месяца;
· определение средней стоимости переговоров за период, предшествующий заданному месяцу;