Информатика. 10-11 классы. 2 книга. Шауцукова Л.З

then Flag:=TRUE

Begin

InputOutput(A); {вызов процедуры ввода-вывода данных }

Solution(A); {вызов процедуры поиска решения задачи}

OutResult {вызов процедуры вывода результата }

END.

Пример 5.3. Выяснить, есть ли в баскетбольных командах "Спартак" и "Зенит" игроки одинакового роста.

S[1:N],

Z[1:M], резлит Otvet)

Program EqualHeight;

Uses Crt;

Type Mas = Array [1..20] of Integer;

{------------------------------------------}

Procedure Input(NCommand : Integer; Var Number : Integer; Var Rost:Mas);

{NCommand - номер команды (равен 1 или 2)} Begin {описание процедуры ввода данных по команде}

If NCommand=1 then Name:='Спартак' else Name:='Зенит'; Write('Введите количество игроков команды ', Name, ': '); ReadLn(Number);

Procedure Search; {описание процедуры поиска решения задачи} Begin

i:=1; Flag:=FALSE;

While (i<=N) and not Flag do {цикл по игрокам Спартака} begin

Procedure OutResult; {описание процедуры вывода результата} Begin

Write('О т в е т : в командах Спартак и Зенит ');

If Flag then Write('есть игроки ') else Write('нет игроков

');

END.

Пример 5.4. Из партии шин отобрать две шины, диаметры которых отличаются не более, чем на D см, а вес — не более, чем на W грамм.

Система тестов

Школьный АЯ

алг МоиШины (арг цел N, арг вещ таб Диам[1 : N] , Вес[1 : N] ,

арг вещ ДопДиам, ДопВес, рез цел Шина1, Шина2,

рез лит Otvet) нач цел i, j, лит Flag

i:=1; Flag:="Нет"

нц пока (i< =N-1) и (Flag="Нет") | цикл по первой шине из пары

j:=i+1

нц пока (j< =N) и (Flag="Нет") | цикл по второй шине из

то Otvet := "По параметрам подходят друг другу " + Шина1 + "-ая и " + Шина2 + "-ая шины."

иначе Otvet := "Шин, подходящих друг другу, в партии нет."

все

кон

(abs(Диам[i] - Диам[j]) <= ДопДиам)

и (abs(Вес[i] - Вес[j]) <= ДопВес) =>

(3)

Procedure InputOutput; {описание процедуры ввода-вывода данных} Begin

ClrScr;

Write('Количество шин : '); ReadLn(Number); WriteLn('Параметры шин : ');

For i := 1 to Number do

WriteLn; WriteLn(' Пapаметры шин ');

Begin {описание процедуры поиска решения задачи} i:=1; Flag := FALSE;

While (i<=Number-1) and not Flag do {цикл по первой шине из пары}

begin

j := i+1;

While (j<=Number) and not Flag do {цикл по второй шине из

пары}

If (Abs(Diameter[i]-Diameter[j]) <= D) and (Abs(Weight[i]-Weight[j]) <= W)

BEGIN

InputOutput; {Вызов процедуры ввода-вывода исходных данных} YesNo(First, Second, Flag);{Вызов процедуры поиска решения

задачи}

WriteLn('О т в е т :');

If Flag then WriteLn('По параметрам подходят друг другу ', First, '-ая и ', Second, '-ая шины.') else WriteLn('Шин, подходящих друг другу, в партии

нет.');

ReadLn

END.

Задачи для самостоятельного решения

5.1. В заданной целочисленной матрице A(N, M) выведите на печать индексы первого положительного элемента, кратного заданному числу K. Если таких элементов в матрице нет, то выведите соответствующий текст. Элементы матриц просматривайте слева направо и сверху вниз.

5.2. В заданной целочисленной матрице A(N, M) замените первый отрицательный элемент максимальным элементом матрицы. Если отрицательных элементов нет, то выведите соответствующий текст. Элементы матриц просматривайте слева направо и сверху вниз. 5.3. Из заданной матрицы A(N, N) удалите строку, в которой находится первый отрицательный элемент. Элементы матриц просматривайте слева направо и сверху вниз.

5.4. В заданной матрице A(N, N) найдите индексы первого элемента, превосходящего среднее арифметическое всех элементов. Элементы матриц просматривайте слева направо и сверху вниз.

5.5. Из заданной матрицы A(N, N) удалите строку и столбец, в которых находится первый элемент, равный нулю. Полученную матрицу уплотните. Элементы матриц просматривайте слева направо и сверху вниз.

5.6. Если в заданной матрице A(N, N) есть хотя бы один элемент, больший ста, то элементы обеих диагоналей замените нулями.

5.7. Дана целочисленная матрица А(N, N). Найдите номер первой из её строк, которые начинаются с К положительных чисел подряд.

5.8. Элементы заданной матрицы A(N, N) переписывайте построчно в одномерный массив до тех пор, пока не встретится нулевой элемент.

5.9. Заданное натуральное число M представьте в виде суммы квадратов двух неравных натуральных чисел. В случае, если это невозможно, выведите соответствующее сообщение.

5.10. Дана целочисленная матрица А(N, N). Просматривая её элементы в заданном порядке, найдите первый чётный элемент и поменяйте его местами с диагональным элементом той строки, в которой он находится. Порядок просмотра:

а) сверху вниз и справа налево; б) снизу вверх и слева направо; в) справа налево и снизу вверх.

5.11. Проверьте, удовлетворяет ли заданная матрица A(N, N) следующему условию: для всех i >1 и для всех j >1 верно неравенство

ai j >= ai-1, j + ai, j-1 .

5.12. В заданном множестве точек на плоскости найдите пару точек, удалённых друг от друга на расстояние, большее заданного D.

5.13. Для заданной матрицы A(N, N) найдите хотя бы одно k, такое, что k-ая строка матрицы совпадает с k-м столбцом.

5.14. Даны три целочисленных массива A(N), B(M) и C(L). Найдите хотя бы одно число, встречающееся во всех трех массивах. Если таких чисел нет, выдайте соответствующее сообщение.

5.15*. Выберите три различные точки из заданного множества точек на плоскости так, чтобы внутри треугольника с вершинами в выбранных точках лежала ровно одна точка. 5.16. В школе имеется три параллельных десятых класса. Даны списки десятиклассников, содержащие фамилию и имя каждого ученика. Выясните:

а) в каких классах имеются однофамильцы; б) в каких классах имеются тезки;

в) имеются ли в параллельных десятых классах однофамильцы; г) в каких классах имеются ученики, у которых совпадают и имя и фамилия; д) есть ли в десятых классах однофамильцы первого космонавта.

5.17. В детском саду есть N мячей. Имеются сведения о диаметре и цвете каждого мяча. Выясните:

а) есть ли среди мячей такой, что он не пройдет в квадратное окошко площадью 900 см2; б) есть ли мячи одинакового цвета или диаметра; в) есть ли среди красных мячей такой, что его диаметр превосходит средний диаметр всех мячей.

5.18*. В заданном множестве точек на плоскости найдите три точки, которые могут служить вершинами остроугольного треугольника.

5.19*. В заданном множестве точек на плоскости найдите четыре точки, которые могут служить вершинами квадрата.

5.20*. В заданном множестве точек на плоскости найдите четыре точки, которые могут служить вершинами ромба.

5.21*. В заданном множестве точек на плоскости найдите четыре точки, которые могут служить вершинами выпуклого четырёхугольника.

5.22. Дана целочисленная квадратная матрица A(N, N). Проверьте, являются ли все числа, расположенные выше главной и побочной диагоналей:

а) различными; б) одинаковыми.

5.23. Дана целочисленная квадратная матрица A(N, N). Определите, имеется ли среди элементов, расположенных ниже ее главной и побочной диагоналей хотя бы одно составное двузначное число.

5.24. На плоскости даны две точки А(1, 1) и В(8, 1), а также N точек со своими координатами. Определитe, есть ли среди этих N точек хотя бы одна пара точек, которые являлись бы вершинами трапеции с большим основанием АВ.

5.25*. Дана квадpатная таблица А(N, N), элементами котоpой являются нули и единицы. Установите наличие в ней квадpата, строны которого состоят из М единиц (M<=N) и параллельны строкам или столбцам таблицы. Если такой квадpат найдется, то нужно вывести кооpдинаты его веpхнего левого угла.

5.26*. Известно, что в пачке банкнот есть одна фальшивая банкнота и ее подлинник, серии и номера которых совпадают. Найдите эти банкноты в пачке, замените их двумя резервными банкнотами с известными сериями и номерами, и затем перенумеруйте всю пачку, расположив банкноты в соответствии с алфавитным порядком их серий, а банкноты с одинаковыми сериями — по возрастанию номеров.

5.27*.Имеется список учеников класса (все фамилии различны). Каждый ученик представил список одноклассников, у которых он был в гостях. Определите:

а) есть ли в классе ученик, который побывал в гостях у всех одноклассников, кроме одного; б) есть ли в классе хотя бы одна пара учеников, которые не были в гостях друг у друга.

Школьный АЯ

алг Строки с нулями (арг цел N, M,

арг цел таб A[1:N, 1:M], рез

цел K)

дано | N>0, M>0

нач цел i, j, лит Flag K := 0

нц для i от 1 до N | цикл по всем строкам

j:= 1; Flag := "Нет"

нц пока (j <= M) и (Flag = "Нет")

| цикл до нулевого элемента

строки

если A[i, j] = 0

то Flag:="Да"; K:=K+1 иначе j:=j+1

все

кц

кц

кон