Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Алгоритмы, печатающие последовательно два числа

Алгоритмы, печатающие последовательно два числа

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:

Алгоритмы, пе­ча­та­ю­щие последовательно два числа

1. Ниже за­пи­са­на про­грам­ма. По­лу­чив на вход число x , эта про­грам­ма пе­ча­та­ет два числа, L и M. Ука­жи­те наи­боль­шее из таких чисел x, при вводе ко­то­рых ал­го­ритм пе­ча­та­ет сна­ча­ла 3, а потом 7. 

var x, L, M: integer;

begin

    readln(x);

    L:=0; M:=0;

    while x > 0 do begin

        L:= L + 1;

        if x mod 2 = 0 then

            M:= M + (x mod 10) div 2;

        x:= x div 10;

    end;

    writeln(L); write(M);

end.

По­яс­не­ние.

Рас­смот­рим цикл, число шагов ко­то­ро­го за­ви­сит от из­ме­не­ния пе­ре­мен­ной x:

while x > 0 do begin

...

x:= x div 10;

end;

Т. к. опе­ра­тор div остав­ля­ет толь­ко целую часть от де­ле­ния, то при де­ле­нии на 10 это рав­но­силь­но от­се­че­нию по­след­ней цифры. 

Из при­ве­ден­но­го цикла видно, что на каж­дом шаге от де­ся­тич­ной за­пи­си x от­се­ка­ет­ся по­след­няя цифра до тех пор, пока все цифры не будут от­се­че­ны, то есть x не ста­нет равно 0; по­это­му цикл вы­пол­ня­ет­ся столь­ко раз, сколь­ко цифр в де­ся­тич­ной за­пи­си вве­ден­но­го числа, при этом число L столь­ко же раз уве­ли­чи­ва­ет­ся на 1. Сле­до­ва­тель­но, ко­неч­ное зна­че­ние L сов­па­да­ет с чис­лом цифр в x. Для того, чтобы L стало L=3, x долж­но быть трёхзнач­ным.

 Те­перь рас­смот­рим опе­ра­тор из­ме­не­ния M:

if x mod 2 = 0 then

  M:= M + (x mod 10) div 2;

end; 

Опе­ра­тор mod остав­ля­ет толь­ко оста­ток от де­ле­ния, при де­ле­нии на 10 это по­след­няя цифра x.

Усло­вие x mod 2 = 0 озна­ча­ет сле­ду­ю­щее: чтобы M уве­ли­чи­лось, число x долж­но быть чётным. 

Пред­по­ло­жим, ис­ход­ное x нечётное, тогда на пер­вом шаге M = 0.

Если на вто­ром шаге x также нечётное (вто­рая цифра ис­ход­но­го числа нечётная), то M = 0, причём каким бы ни было зна­че­ние x на тре­тьем шаге, мы не смо­жем по­лу­чить M = 7, по­сколь­ку оста­ток от де­ле­ния чётного числа на 10 не пре­вос­хо­дит 8, а 8 / 2 = 4, сле­до­ва­тель­но, вто­рая цифра ис­ход­но­го x чётная.

Тогда пер­вая цифра может при­ни­мать зна­че­ния 2, 4, 6, 8, но мы ищем наи­боль­шее x, по­это­му сде­ла­ем первую цифру, рав­ной 9, тогда наше пред­по­ло­же­ние не удо­вле­тво­ря­ет усло­вию за­да­чи, и по­след­няя цифра ис­ход­но­го числа обя­за­на быть чётной, т.е. ис­ход­ное x чётно.

7 = 4 + 3, чему со­от­вет­ству­ют цифры 8 и 6. Те­перь, рас­по­ла­гая цифры по убы­ва­нию, на­хо­дим наи­боль­шее воз­мож­ное xx = 986. 

Ответ: 986.

2.  Ниже на пяти язы­ках за­пи­сан ал­го­ритм. По­лу­чив на вход число x, этот ал­го­ритм пе­ча­та­ет два числа a и b. Ука­жи­те наи­мень­шее из таких чисел x, при вводе ко­то­ро­го ал­го­ритм пе­ча­та­ет сна­ча­ла 2, а потом 13.

Бей­сик

Python

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

A = A+1

B = B + (X MOD 100)

X = X\100

WEND

PRINT A

PRINT B

x = int(input())

a, b = 0, 0

while x > 0:

a = a + 1

b = b + x%100

x = x//100

print(a)

print(b)

Пас­каль

Ал­го­рит­ми­че­ский язык

var x, a, b: integer;

begin

readln(x);

a := 0; b := 0;

while x > 0 do

begin

a := a+1;

b := b+(x mod 100);

x := x div 100;

end;

writeln(a); write(b);

end.

алг

нач

цел x, a, b

ввод x

a:=0; b:=0

нц пока x > 0

a := a+1

b := b+mod(x,100)

x := div(x,100)

кц

вывод a, нс, b

кон

Си

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a = 0; b = 0;

while (x > 0) {

a = a+1;

b = b + (x%100);

x = x/100;

}

printf("%d\n%d", a, b);

}

 

По­яс­не­ние.

Рас­смот­рим цикл, число шагов ко­то­ро­го за­ви­сит от из­ме­не­ния пе­ре­мен­ной x:

while x > 0 do begin

...

x:= x div 100;

end;

Т. к. опе­ра­тор div воз­вра­ща­ет целую часть от де­ле­ния, то при де­ле­нии на 100 это рав­но­силь­но от­се­че­нию по­след­них двух цифр.

На каж­дом шаге от де­ся­тич­ной за­пи­си x от­се­ка­ет­ся две по­след­них цифры до тех пор, пока все цифры не будут от­се­че­ны, то есть x не ста­нет равно 0. Для того, чтобы a стало рав­ным 2, x долж­но быть трёхзнач­ным или четырёхзнач­ным.

Те­перь рас­смот­рим из­ме­не­ние b:

while x>0 do begin

b:=b+(x mod 100);

end;

Опе­ра­тор mod воз­вра­ща­ет оста­ток от де­ле­ния, при де­ле­нии на 100 это по­след­ние две цифры x. Разобьём 13 на два сла­га­е­мых так, чтобы можно было со­ста­вить трёхзнач­ное число: 13 = 1 +12. Ис­ко­мое число — 112.

Ответ: 112.

3. Ниже за­пи­са­на про­грам­ма. По­лу­чив на вход число x , эта про­грам­ма пе­ча­та­ет два числа, L и M. Ука­жи­те наи­боль­шее из таких чисел x, при вводе ко­то­рых ал­го­ритм пе­ча­та­ет сна­ча­ла 3, а потом 10. 

var x, L, M: integer;

begin

    readln(x);

    L:=0; M:=0;

    while x > 0 do begin

        L:=L+1;

        if M < x then begin

            M:= (x mod 10) * 2;

        end;

x:= x div 10;

    end;

    writeln(L); write(M);

end.

По­яс­не­ние.

Рас­смот­рим цикл, число шагов ко­то­ро­го за­ви­сит от из­ме­не­ния пе­ре­мен­ной x:

while x > 0 do begin

...

x:= x div 10;

end;

Т. к. опе­ра­тор div остав­ля­ет толь­ко целую часть от де­ле­ния, то при де­ле­нии на 10 это рав­но­силь­но от­се­че­нию по­след­ней цифры. 

Из при­ве­ден­но­го цикла видно, что на каж­дом шаге от де­ся­тич­ной за­пи­си x от­се­ка­ет­ся по­след­няя цифра до тех пор, пока все цифры не будут от­се­че­ны, то есть x не ста­нет равно 0; по­это­му цикл вы­пол­ня­ет­ся столь­ко раз, сколь­ко цифр в де­ся­тич­ной за­пи­си вве­ден­но­го числа, при этом число L столь­ко же раз уве­ли­чи­ва­ет­ся на 1. Сле­до­ва­тель­но, ко­неч­ное зна­че­ние L сов­па­да­ет с чис­лом цифр в x. Для того, чтобы L стало L=3, x долж­но быть трёхзнач­ным.

Те­перь рас­смот­рим опе­ра­тор из­ме­не­ния M:

if M < x then begin

  M:= (x mod 10) * 2;

end;

Опе­ра­тор mod остав­ля­ет толь­ко оста­ток от де­ле­ния, при де­ле­нии на 10 это по­след­няя цифра x

Чтобы M при­ня­ло зна­че­ние M = 10 в числе x долж­но при­сут­ство­вать цифра 5.

Т. к. мы ищем наи­боль­шее x, сде­ла­ем первую цифру ис­ход­но­го числа, рав­ной 9, при этом если вто­рая цифра 5, тогда на тре­тьем шаге усло­вие M < x не вы­пол­ня­ет­ся (10>9), и на экра­не мы по­лу­чим нуж­ное нам число.

Оста­лось опре­де­лить по­след­нюю цифру ис­ход­но­го числа x. После пер­во­го шага x = 95, но мак­си­маль­ный оста­ток от де­ле­ния на 10 равен 9, сле­до­ва­тель­но, M после пер­во­го шага не может пре­вы­сить 9 * 2 = 18, а 18 < 95, зна­чит будет вы­пол­нять­ся нуж­ный нам вто­рой шаг.

 

Ис­ко­мое число 959. 

Ответ: 959.



Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy

Краткое описание документа:

Пример: Ниже за­пи­са­на про­грам­ма. По­лу­чив на вход число x , эта про­грам­ма пе­ча­та­ет два числа, L и M. Ука­жи­те наи­боль­шее из таких чисел x, при вводе ко­то­рых ал­го­ритм пе­ча­та­ет сна­ча­ла 3, а потом 7. 

var x, L, M: integer;

begin

    readln(x);

    L:=0; M:=0;

    while x > 0 do begin

        L:= L + 1;

        if x mod 2 = 0 then

            M:= M + (x mod 10) div 2;

        x:= x div 10;

    end;

    writeln(L); write(M);

end.

Решение: 

Т. к. опе­ра­тор div остав­ля­ет толь­ко целую часть от де­ле­ния, то при де­ле­нии на 10 это рав­но­силь­но от­се­че­нию по­след­ней цифры. 

Из при­ве­ден­но­го цикла видно, что на каж­дом шаге от де­ся­тич­ной за­пи­си x от­се­ка­ет­ся по­след­няя цифра до тех пор, пока все цифры не будут от­се­че­ны, то есть x не ста­нет равно 0; по­это­му цикл вы­пол­ня­ет­ся столь­ко раз, сколь­ко цифр в де­ся­тич­ной за­пи­си вве­ден­но­го числа, при этом число L столь­ко же раз уве­ли­чи­ва­ет­ся на 1. Сле­до­ва­тель­но, ко­неч­ное зна­че­ние L сов­па­да­ет с чис­лом цифр в x. Для того, чтобы L стало L=3, x долж­но быть трёхзнач­ным.

Ответ: 986.

Автор
Дата добавления 13.03.2015
Раздел Информатика
Подраздел Конспекты
Просмотров596
Номер материала 441248
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

от проекта "Инфоурок" с указанием данных образовательной лицензии, что важно при прохождении аттестации.

Если Вы учитель или воспитатель, то можете прямо сейчас получить документ, подтверждающий Ваши профессиональные компетенции. Выдаваемые дипломы и сертификаты помогут Вам наполнить собственное портфолио и успешно пройти аттестацию.

Список всех тестов можно посмотреть тут - https://infourok.ru/tests


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