2015-05-27
1637
Задача № 1. Вставьте в двумерный массив строку из нулей после строки с номером t.
Анализ постановки задачи
Для решения этой задачи необходимо, первые t строк оставить без изменений, затем все строки после t-ой сдвинуть на одну, далее элементам (t+1) - й строки присвоить заданное значение.
Входные данные.
Двумерный массив случайных чисел – А.
Номер строки после, которой будет вставлена строка из нулей – t (тип - целый).
Количество строк и столбцов в массиве соответственно – n, m (тип - целый).
Выходные данные.
Измененный двумерный массив – А.
Алгоритм.
1. Заполнение массива случайными числами.
2. Сдвиг на одну строк, строк расположенных после строки t.
3. Заполнить строку (t+1) - нулями.
4. Вывести на печать измененный массив.
Функциональная структура алгоритма
 |
Текст программы
const MaxN=100; MaxM=80;
type TMyArray=Array[1..MaxN, 1..MaxM] of Integer;
var A: TMyArray;
n, m, t: Integer;
procedure Zapolnenie(v, w: integer; var X:TMyArray);
var i, j: integer;
Begin
For i:=1 to v do
For j:=1 to w do
X[i, j]:=random(20)-10;
end;
procedure Vivod (v, w: integer; X:TMyArray);
var i, j: integer;
|
|
|
Begin
For i:=1 to v do
begin
For j:=1 to w do write(X[i, j], ‘ ‘);
Writeln;
end;
end;
procedure SdvigStr (v, w, r: integer; var X:TMyArray);
var i, j: integer;
Begin
For i:=v downto r+1 do
For j:=1 to w do X[i+1, j]:= X[i, j];
end;
procedure InsertStr (w, r: integer; var X:TMyArray);
var j: integer;
Begin
For j:=1 to w do X[r+1, j]:=0;
end;
Begin
Writeln(‘введите количество строк <100 и столбцов <=80’);
Readln(n, m);
If (n>=100) or (m>80) then Writeln(‘Неправильный ввод данных’)
Else begin
Writeln(‘введите номер строки после которой будет вставляться
строка из нулей’);
Readln(t);
If t>n then Writeln(‘Неправильный ввод данных’)
Else begin
Zapolnenie(n, m, A);
{вывод элементов заполненного массива}
Vivod(n, m, A);
SdvigStr(n, m, t, A);
InsertStr(m, t, A);
{вывод элементов измененного массива}
Vivod(n, m, A);
end;
end;
end.
Задача № 2. Известна таблица футбольного чемпионата и список команд-участниц. В каждой строке таблицы записано количество побед, ничьих и поражений соответствующей команды. Подсчитать количество сыгранных каждой командой матчей, а также в итоговой таблице команды расположить в порядке убывания завоеванных ими очков.
Анализ постановки задачи.
Решение задачи предполагает использование типовых алгоритмов: суммирование элементов строк (или столбцов) и сортировки элементов строки (или столбца) в двумерном массиве. В контексте рассматриваемой задачи, если расположить данные по каждой команде в строках, то необходимо воспользоваться алгоритмами: суммирование элементов строк и сортировки элементов столбце. Если расположить данные по каждой команде в столбцах, то необходимо воспользоваться алгоритмами: суммирование элементов столбцов и сортировки элементов строки.
Входные данные.
Двумерный массив – game ( тип-целочисленный массив ).
|
|
|
Количество команд-участниц – n (тип - целый).
Одномерный массив названий команд - team ( тип-символьный массив ).
Количество строк в массиве – n (тип - целый).
Выходные данные.
Итоговая таблица, где команды расположены в порядке убывания завоеванных ими очков– game, team.
Алгоритм.
1. Введем массив названий команд-участниц.
2. Введем массив данных об играх каждой команды.
3. Найдем количество матчей и очков для каждой команды.
4. Отсортируем таблицу по столбцу с количеством очков для того, чтобы команды расположить в порядке убывания завоеванных ими очков.
5. Напечатаем результат в виде таблицы.
Функциональная структура алгоритма
Текст программы
Const
MaxN = 10; {число команд}
type TMyArray= array[1..MaxN, 1..5] of integer;
TArray= array[1.. MaxN] of string[30];
VAR
Team: TArray;
Game: TMyArray;
n: integer;
procedure Zapolnenie_Game(v: integer; var X:TMyArray);
var i, j: integer;
Begin
For i:=1 to v do
For j:=1 to 3 do
Readln(X[i, j]);
end;
procedure Zapolnenie_Team(v: integer; var X: TArray);
var i: integer;
Begin
For i:=1 to v do
Readln(X[i]);
end;
procedure Sum_st4 (v: integer; var X:TMyArray);
var i, j: integer;
Begin
For i:=1 to v do
begin
X[i, 4]:=0;
For j:=1 to 3 do X[i, 4]:= X[i, 4]+X[i, j];
end;
end;
procedure Sum_st5 (v: integer; var X:TMyArray);
var i: integer;
Begin
For i:=1 to v do
X[i, 5]:= X[i, 1]*3+X[i, 2];
end;
procedure SortStr (v: integer; var X: TMyArray; var Y: TArray);
var i, j, n_max, temp1: integer;
temp: string[30];
Begin
for i:=1 to N-1 do
begin
n_max:=i;
for j:=i+1 to N do
if x[j, 5]>x[n_max, 5] then n_max:=j;
temp:=y[i];
y[i]:=y[n_max];
y[n_max]:=temp;
for j:=1 to 5 do
begin
temp1:=x[i, j];
x[i, j]:=x[n_max, j];
x[n_max, j]:=temp1
end
end;
end;
procedure vivod (v: integer; var X: TMyArray; var Y: TArray);
var i, j: integer;
Begin
writeln;
writeln('** Итоговая таблица**');
writeln('------------------------------------------------------');
writeln(' Команда Матчей Побед Ничьих Поражений Очков');
writeln('------------------------------------------------------');
for i:= 1 to v do
begin
write(i:2,'. ',y[i]);
for j:=1 to 5 do
write(x[i, j]:7);
writeln;
end;
writeln('------------------------------------------------------');
end;
BEGIN
Writeln(‘Введите количество команд’);
Readln(n);
Zapolnenie_Game (n, Game);
Zapolnenie_Team(n, Team);
{Подсчет количества матчей
Sum_st4(n, Game);
{Подсчет количества очков}
Sum_st5(n, Game);
{Сортировка таблицы по столбцу с количеством очков}
SortStr (n, Game, Team);
{Вывод итоговой таблицы}
vivod(n, Game, Team);
END.
Задания для самостоятельного решения.
Вариант 1.
1. Дан двумерный массив. Найти сумму и количество элементов в каждом столбце, кратных числам а и b (вводятся с клавиатуры).
2. Дан двумерный массив. Вставьте первую строку после строки, в которой находится первый встреченный минимальный элемент.
3. Известны цены товаров 10-ти наименований в 20-ти городах, а также списки названий этих товаров и городов и “потребительская корзина”, одинаковая для всех городов (т.е. набор чисел, указывающий, сколько потребляют каждого товара). Какой город является наиболее дорогим и наиболее дешевым?
Вариант 2.
1. Дан двумерный массив. Найти сумму и количество элементов в каждом столбце, попадающих в интервал от А до В.
2. Дан двумерный массив. Вставьте второй столбец после первого столбца, в котором все элементы положительны.
3. Известны цены на 10 одинаковых товаров в каждом из 8 магазинов. Для каждого магазина напечатать список 3-х наиболее дорогих товаров.
Вариант 3.
1. Дан двумерный массив. Найти сумму и количество элементов в каждом столбце, являющихся четными числами.
2. Дан двумерный массив. Вставьте нулевую строку перед строкой, в которой находится первый минимальный элемент.
3. Каждое из N предприятий города выпускает 5 наименований продукции. Известен объем выпуска продукции каждого наименования каждым предприятием и стоимость единицы продукции. Для каждого предприятия определить его долю стоимости производимой продукции каждого типа в процентах.
Вариант 4.
1. Дан двумерный массив. Найти сумму и количество элементов в каждом столбце, положительных и лежащих вне главной диагонали.
2. Дан двумерный массив. Вставьте строку после всех строк, в которых находится заданное число А.
|
|
|
3. Завод выпускает 20 наименований продукции. Общее число работников завода — 100 человек. Известны фамилии работников, степень участия каждого работника в выпуске того или иного вида продукции (1 — принимает участие, 0 — не принимает участие), а также их месячная зарплата. Также известен доход, который приносит каждый вид продукции. Расставить фамилии работников в порядке их “ценности” для предприятия. Ценность работника определяется отношением общего дохода всех видов продукции, выпускаемой при его участии, к его зарплате. Таким образом, задачу можно было бы сформулировать и по-другому: напечатать список претендентов на увольнение с завода.
Вариант 5.
1. Дан двумерный массив. Найти сумму элементов с k1 до k2 строки.
2. Дан двумерный массив. Вставьте второй столбец перед всеми столбцами, в которых нет отрицательных элементов.
3. Известны результаты опроса 200 респондентов о популярности 10-ти политиков. Каждый респондент называл 4-х наиболее популярных, с его точки зрения, политиков. Напечатать рейтинг популярности этих политиков — фамилии и число собранных голосов.
Вариант 6.
1. Дан двумерный массив. Найти номера всех максимальных элементов.
2. Дан двумерный массив. Вставьте первый столбец после всех столбцов, в которых есть отрицательные элементы.
3. В некоторых вида спортивных состязаний выступление каждого сортосмена независимо оценивается несколькими судьями, затем из всей совокупности оценок удаляется наиболее высокая и наиболее низкая, а для оставшихся оценок вычисляется среднее арифметическое, которое и идет в зачет спортсмену. Если наиболее высокую оценку ставят несколько судей, то из совокупности оценок удаляется только одна такая оценка; аналогично поступают с наиболее низкими оценками. Определит оценку, которая пойдет в зачет каждому участнику соревнования, если известно, что в соревнованиях участвовало по N спортсменов в каждом из пяти видов состязаний.
Вариант 7.
1. Дан двумерный массив. Найти номера первых отрицательных элементов каждой строки.
|
|
|
2. Дан двумерный массив. Вставьте столбец из нулей после столбцов с минимальными элементами.
3. Завод выпускает 20 наименований продукции. Про каждый вид продукции известно: сколько единиц этой продукции выпускает завод, себестоимость и отпускная цена единицы продукции, сколько человек занято на выпуске этой продукции. От каких видов продукции завод должен отказаться, чтобы общая производительность труда повысилась вдвое? ({производительность труда} = {доход от продажи продукции} / {количество человек, принимающих участие в ее производстве}).
Вариант 8.
1. Дан двумерный массив. Найти номера последних положительных элементов каждой строки.
2. Дан двумерный массив. Вставьте первую строку между средними строками.
3. Для каждого из пяти автобусных маршрутов известно количество проданных билетов на каждый из семи рейсов. В каждом автобусе K мест. Какие из рейсов на каждом маршруте надо исключить из расписания, чтобы маршруты стали рентабельными. (Маршрут является рентабельным, если общее число проданных на него билетов превосходит 75% от общего числа мест во всех автобусах маршрута).
Вариант 9.
1. Дан двумерный массив. Найти количество элементов в каждой строке, больших среднего арифметического элементов в каждой строке.
2. Дан двумерный массив. Вставьте строку из нулей перед всеми строками, первый элемент которых делится на 3.
3. Имеется каталог на 15 видов с/х машин, где указаны: номер, цена и название. Десять фермерских хозяйств составили приоритетные списки, где указаны по 5 названий машин, которые хотели бы приобрести. Зная количество денег для этих целей в каждом хозяйстве, надо напечатать список номеров машин, которых может приобрести каждое хозяйство (предположить, что хозяйство будет покупать по одной машине каждого типа).
Вариант 10.
1. Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный.
2. Для заданного целочисленного двумерного массива найти максимум среди сумм элементов диагоналей, параллельной главной диагонали.
3. Фермеру необходимо продать свою продукцию. Свои услуги по продаже ему предложили 5 посреднических фирм. Известны названия каждой фирмы, а также затраты, планируемые каждой фирмой на транспортировку, рекламу и продажу продукции. Также известен процент отчислений каждой фирмой себе за услуги от общей суммы продажи продукции. Требуется определить фирму для фермера, чтобы получить максимальную выручку от продажи, если известна предполагаемая сумма от продажи продукции.
Контрольные вопросы:
1. Дайте определение понятию массив.
2. Какими свойствами обладает структура данных массив?
3. Объясните термин и необходимость сортировки.
4. В чем суть алгоритма сортировки?
5. Какие типы массивов существуют, и чем они отличаются друг от друга?
6. Что такое логическое и физическое представление массива?
7. Как осуществляется доступ к элементу двумерного массива?
8. Опишите двумерный массив, состоящий из 100 элементов символьного типа.
9. Можно ли при описании массива инициализировать его элементы?
10. Назовите типовые алгоритмы обработки двумерного массива.
11. В чем суть алгоритма поиска минимального (максимального) элемента?
