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

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

Задача 9.8





Дан прямоугольник со сторонами А и В, где А, В натуральные числа. Начинаем отсекать от него квадраты (рис. 9.1). Сколько таких квадратов можно отсечь, если каждый раз отсекается са­мый большой квадрат?

 

 

 

 

     
 
 

Рис. 9.1. Отсечение квадратов

Для решения этой задачи нам нужны ранее рассмотренные функции МАХ и MIN.

Введем:

- вспомогательные переменные X и У (Y > = X), соответст­вующие уменьшающимся сторонам прямоугольника;

- вспомогательную переменную D, которая определяет уменьшение размеров прямоугольника после очередного от­сечения наибольшего квадрата, сторона которого находится как X:= MIN(D, X).

Организуем цикл, в котором сторона У уменьшается каждый раз на MIN(D, X) до тех пор, пока не останется последний квад­рат или У не станет меньше X. В последнем случае переименовы­ваем стороны оставшегося прямоугольника как Y:= MAX(D, X) и X:= MIN(D, X) и продолжаем цикл.

PROGRAM PG9_8A;

VAR А, В, D, К, X, Y: INTEGER;

FUNCTION MIN(I, J: INTEGER): INTEGER;

BEGIN

IF KJ THEN MIN:= I

ELSE MIN:= J

END;

FUNCTION MAX(I, J: INTEGER): INTEGER;

BEGIN

IF I>J THEN MAX:= I

ELSE MAX:= J

END;

BEGIN

REPEAT

WRITELN('BBEДИTE ДВА НАТУРАЛЬНЫХ ЧИСЛА');

READLN(A, В);

UNTIL (A>0) AND (B>0);

К:=1;

Х:= MIN(A, B);

Y:= MAX(A, B);

WHILE X<>Y DO

BEGIN

К:= K+1;

D:= Y-X;

Y:= MAX(D, X);

X:= MIN(D, X);

END;

WRITELN('ИCKOMOE ЧИСЛО КВАДРАТОВ:', К)

END.

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

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

- создаем описание функций MIN и МАХ;

- вводим два натуральных числа А и В;

- присваиваем начальные значения вспомогательным пере­менным;

- организуем цикл, в котором сторона У уменьшается каждый раз на MIN(D, X) до тех пор, пока У не станет равным X;

- завершаем работу программы.

Переменные:

в функции MIN:

I, J - два целых числа (глобальные переменные);

в функции МАХ:

I, J - два целых числа (глобальные переменные);

в основной программе;

А, В - два натуральных числа (глобальные переменные);

D, X, Y - вспомогательные переменные;

К - количество отрезаемых квадратов.

Ту же самую задачу можно решить с помощью стандартных функций PASCAL: выделение целой части от деления У на X Y DIV X и выделения остатка Y MOD X.







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




Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


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


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...


Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Ваготомия. Дренирующие операции Ваготомия – денервация зон желудка, секретирующих соляную кислоту, путем пересечения блуждающих нервов или их ветвей...

Билиодигестивные анастомозы Показания для наложения билиодигестивных анастомозов: 1. нарушения проходимости терминального отдела холедоха при доброкачественной патологии (стенозы и стриктуры холедоха) 2. опухоли большого дуоденального сосочка...

Сосудистый шов (ручной Карреля, механический шов). Операции при ранениях крупных сосудов 1912 г., Каррель – впервые предложил методику сосудистого шва. Сосудистый шов применяется для восстановления магистрального кровотока при лечении...

Виды сухожильных швов После выделения культи сухожилия и эвакуации гематомы приступают к восстановлению целостности сухожилия...

КОНСТРУКЦИЯ КОЛЕСНОЙ ПАРЫ ВАГОНА Тип колёсной пары определяется типом оси и диаметром колес. Согласно ГОСТ 4835-2006* устанавливаются типы колесных пар для грузовых вагонов с осями РУ1Ш и РВ2Ш и колесами диаметром по кругу катания 957 мм. Номинальный диаметр колеса – 950 мм...

Философские школы эпохи эллинизма (неоплатонизм, эпикуреизм, стоицизм, скептицизм). Эпоха эллинизма со времени походов Александра Македонского, в результате которых была образована гигантская империя от Индии на востоке до Греции и Македонии на западе...

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