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

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

PROGRAM PG9J2;






VAR А, В, X, D, 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;

FUNCTION F: INTEGER;

BEGIN

IF X = Y THEN F:= 1

ELSE

BEGIN

D:= Y-X;

Y:= MAX(D, X);

X:= MIN(D, X);

F:= F+1;

END

END;

BEGIN

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

READLN(A, В);

X:= MIN(A, В);

Y:= MAX(A, В);

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

END.

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

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

- создаем описание функций MIN, MAX и F;

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

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

- вызываем рекурсивную функцию F, которая определяет ко­личество квадратов;

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

Переменные:

в функции MIN;

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

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

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

в функции F:

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

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

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

ВВЕДИТЕ ДВА НАТУРАЛЬНЫХ ЧИСЛА

7 3

ИСКОМОЕ ЧИСЛО КВАДРАТОВ: 5

ВВЕДИТЕ ДВА НАТУРАЛЬНЫХ ЧИСЛА

7 13

ИСКОМОЕ ЧИСЛО КВАДРАТОВ: 8

Рис. 9.3. Результат работы PG9_12

Задача 9.13 Использовать рекурсию для решения задачи 9.9 о бильярде.

PROGRAM PG9J3;

VAR А, В: INTEGER;

FUNCTION BILL(Y, X: INTEGER): INTEGER;

VAR К: INTEGER;

BEGIN

K:=YDIVX;

IF Y MOD X = 0 THEN BILL:= К

ELSE

BEGIN

Y:= A-X+Y MOD X;

BILL:= K+BILL(Y, X)+2

END

END;

BEGIN

REPEAT

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







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



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

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

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

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Педагогическая структура процесса социализации Характеризуя социализацию как педагогический процессе, следует рассмотреть ее основные компоненты: цель, содержание, средства, функции субъекта и объекта...

Типовые ситуационные задачи. Задача 1. Больной К., 38 лет, шахтер по профессии, во время планового медицинского осмотра предъявил жалобы на появление одышки при значительной физической   Задача 1. Больной К., 38 лет, шахтер по профессии, во время планового медицинского осмотра предъявил жалобы на появление одышки при значительной физической нагрузке. Из медицинской книжки установлено, что он страдает врожденным пороком сердца....

Типовые ситуационные задачи. Задача 1.У больного А., 20 лет, с детства отмечается повышенное АД, уровень которого в настоящее время составляет 180-200/110-120 мм рт Задача 1.У больного А., 20 лет, с детства отмечается повышенное АД, уровень которого в настоящее время составляет 180-200/110-120 мм рт. ст. Влияние психоэмоциональных факторов отсутствует. Колебаний АД практически нет. Головной боли нет. Нормализовать...

Демографияда "Демографиялық жарылыс" дегеніміз не? Демография (грекше демос — халық) — халықтың құрылымын...

Субъективные признаки контрабанды огнестрельного оружия или его основных частей   Переходя к рассмотрению субъективной стороны контрабанды, остановимся на теоретическом понятии субъективной стороны состава преступления...

ЛЕЧЕБНО-ПРОФИЛАКТИЧЕСКОЙ ПОМОЩИ НАСЕЛЕНИЮ В УСЛОВИЯХ ОМС 001. Основными путями развития поликлинической помощи взрослому населению в новых экономических условиях являются все...

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