Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ





2 2 0 -17 25 -17

ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ

3 4 10 -17 0 0

ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ б ЧИСЕЛ

5 4 10 -17 20 45

ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ 6 ЧИСЕЛ

14 25 -16 6 7 8

ВВОДИТЕ ЧЕРЕЗ ПРОБЕЛ б ЧИСЕЛ

1 2 3 4 5 6

В МАТРИЦЕ 4 МИНИМАЛЬНЫХ ЭЛЕМЕНТОВ MIN = -17

В СТРОКЕ 1 В СТОЛБЦЕ 4

В СТРОКЕ 1 В СТОЛБЦЕ 6

В СТРОКЕ 2 В СТОЛБЦЕ 4

В СТРОКЕ 3 В СТОЛБЦЕ 4

Рис. 7.1. Результат работы PG7_1

Ту же задачу можно решить за один просмотр матрицы. Но в этом случае необходимо ввести вспомогательный двумерный мас­сив, в который заносятся значения строк и столбцов минималь­ных элементов.

PROGRAM PG7_1A;

CONST T = 100;S = 100;

VAR А: ARRAY[1..T, 1..S] OF INTEGER;

В: ARRAY[1..T*S, 1..2] OF INTEGER;

N, M, IM, JM, I, J, MIN, К: INTEGER;

BEGIN

WRITE('ВВЕДИТЕ КОЛИЧЕСТВО СТРОК N = ');

READLN(N);

WRITE('BBEДИTE КОЛИЧЕСТВО СТОЛБЦОВ М = ');

READLN(M);

FOR I:= 1 TO N DO

BEGIN

WRITELN('BBЕДИTE ', M,' ЧИСЕЛ');

FOR J:= 1 TO M DO

READ(A[I, J])

END;

MIN:= A[1, 1];

К:= 0;

FOR I:= 1 TO N DO

FOR J:= 1 TO M DO

IF MIN>A[I, J] THEN

BEGIN

K:= 1;

B[1. 1]:= I;

B[1. 2]:= J;

MIN:= A[l, J]

END

ELSE

IF MIN = A[l, J] THEN

BEGIN

К:= K+1;

B[K, 1]:= I;

B[K. 2]:= J

END;

IF К = 1 THEN

BEGIN

WRITELN('EДИНСТВЕННЫЙ МИНИМУМ MIN = ', MIN);

WRITELN('CTPOKA ', IM, ' СТОЛБЕЦ ', JM)

END

ELSE

BEGIN

WRITELN('B МАТРИЦЕ', К, 'МИНИМУМОВ MIN =', MIN);

FOR I:= 1 TO К DO

WRITELN('CTPOKA', B[l, 1], 'СТОЛБЕЦ', B[l. 2])

END

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим размеры массива А и значения его элементов;

- просматриваем элементы массива, ищем минимальное зна­чение и запоминаем значение индексов в вспомогательном массиве В;

- считаем количество минимальных элементов;

- в зависимости от К либо выводим информацию о единст­венном минимальном элементе, либо организуем вывод ин­формации о всех минимальных элементах из массива В.

Переменные:

А - двумерный массив;

В - вспомогательный массив;

N, М - количество строк и столбцов массива;

I, J - переменные цикла;

К - количество минимальных элементов;

IM, JM - строка и столбец минимального элемента;

MIN - текущий минимум.

Задача 7.2 Дана матрица N x M, состоящая из натуральных чисел. Найти в строках самые правые наименьшие элементы и определить их местоположение.

Для решения этой задачи просмотр каждой строки нужно ор­ганизовать справа налево, чтобы сразу определить самый правый минимальный элемент.







Дата добавления: 2015-09-07; просмотров: 368. Нарушение авторских прав; Мы поможем в написании вашей работы!




Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...


Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Гидравлический расчёт трубопроводов Пример 3.4. Вентиляционная труба d=0,1м (100 мм) имеет длину l=100 м. Определить давление, которое должен развивать вентилятор, если расход воздуха, подаваемый по трубе, . Давление на выходе . Местных сопротивлений по пути не имеется. Температура...

Огоньки» в основной период В основной период смены могут проводиться три вида «огоньков»: «огонек-анализ», тематический «огонек» и «конфликтный» огонек...

Упражнение Джеффа. Это список вопросов или утверждений, отвечая на которые участник может раскрыть свой внутренний мир перед другими участниками и узнать о других участниках больше...

Решение Постоянные издержки (FC) не зависят от изменения объёма производства, существуют постоянно...

ТРАНСПОРТНАЯ ИММОБИЛИЗАЦИЯ   Под транспортной иммобилизацией понимают мероприятия, направленные на обеспечение покоя в поврежденном участке тела и близлежащих к нему суставах на период перевозки пострадавшего в лечебное учреждение...

Кишечный шов (Ламбера, Альберта, Шмидена, Матешука) Кишечный шов– это способ соединения кишечной стенки. В основе кишечного шва лежит принцип футлярного строения кишечной стенки...

Studopedia.info - Студопедия - 2014-2025 год . (0.015 сек.) русская версия | украинская версия