Решение задачи №2 из главы 12.1 (Проверка делимости чисел в цикле.)

Primary tabs

gani84's picture
Submitted by gani84 on Wed, 07/18/2018 - 19:10

Forums:

Задача №2 из главы 12.1

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

var i, n: integer;
begin
  writeln('vvedite celoe chislo >1 :');
  readln(n);
  if (n > 1)then
   for i := n downto 1 do
    if ((n mod 23) = 0) then
      write(n, ' ')
  else
    writeln('Ochibka');
  readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 27516 reads
vedro-compota's picture

vedro-compota

Sat, 07/21/2018 - 23:36

в задачах данного урока, в качестве конструкции для организации цикла (если требуется) используйте repeat-until

У вас же for. Исправляйте.

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Mon, 07/23/2018 - 12:09

Решил но не до конца. Не понятно как задать обратный порядок? Просьба подсказать 

var i, n: integer;
begin
  writeln('vvedite celoe chislo >1 :');
  readln(n);
  i := 1;
  repeat    // начало тела цикла
    if ((i mod 23) = 0) then
    write(i, ' ');
    i := i + 1; // увеличиваем счетчик на 1
    i:=n;
  until (i > n); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/26/2018 - 19:23

вы вообще это запускали? где сообщение об ошибке. Решение неверно.

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Thu, 09/13/2018 - 19:54

Как задать обратный порядок если не использовать for n downto k

vedro-compota's picture

vedro-compota

Thu, 09/13/2018 - 19:57

Как задать обратный порядок если не использовать for n downto k

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

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Sat, 09/15/2018 - 17:59

Так я решил обратным порядком for down to
Ты говоришь сделай обратный порядок repeat until
Я не знаю как сделать по другому в интернете ничего толкового не нашел
Круг замкнулся

gani84's picture

gani84

Thu, 09/13/2018 - 19:58

Решил но не до конца. Не понятно как задать обратный порядок? Просьба подсказать

vedro-compota's picture

vedro-compota

Tue, 09/25/2018 - 21:17

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Thu, 09/27/2018 - 11:58 

var i: integer;
begin
  writeln('vvedite celoe chislo >1 :');
  readln(i);
  repeat    // начало тела цикла
    if ((i mod 23) = 0) then
       write(i, ' ');
       i := i - 1; // уменьшаем счетчик на 1 ---> задаем обратный отсчет
  until (i < 1); // выход из цикла
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 09/30/2018 - 17:24

ещё раз прочитайте условие задачи перед тем как присылать ответ. вы не все выполнили.

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Mon, 10/01/2018 - 09:43 

var i: integer;
begin
  writeln('vvedite celoe chislo >1 :');
  readln(i);
  repeat    // начало тела цикла
     if (i < 1) then //если введеное число меньше 1
       writeln('ochibka')
    else
     if ((i mod 23) = 0) then
       write(i, ' ');
       i := i - 1; // уменьшаем счетчик на 1 ---> задаем обратный отсчет
  until (i < 1); // выход из цикла
  readln();
end.
vedro-compota's picture

vedro-compota

Sat, 10/13/2018 - 18:07

  1. не совсем правильное форматирование.
  2. запутанная логика -- такая программа работает, но проверка понятнее будет смотреться снаружи цикла, а не внутри. Переделайте.

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Tue, 10/16/2018 - 13:08

запутанная логика -- такая программа работает, но проверка понятнее будет смотреться снаружи цикла, а не внутри. Переделайте.

Как задать внешнее условие оно же вне тела цикла работать не будет??

vedro-compota's picture

vedro-compota

Wed, 12/26/2018 - 20:20

Как задать внешнее условие оно же вне тела цикла работать не будет??

Если пользователь ввел некорректное значение, то никакой цикл вообще не нужно выполнять, для этого и используется оператор ветвления.

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Fri, 01/04/2019 - 10:34 

var i: integer;
begin
  writeln('vvedite celoe chislo >1 :');
  readln(i);
  if (i < 1) then //если введеное число меньше 1
     writeln('ochibka')
  else
  repeat    // начало тела цикла
     if ((i mod 23) = 0) then
        write(i, ' ');
        i := i - 1; // уменьшаем счетчик на 1 ---> задаем обратный отсчет
  until (i < 1); // выход из цикла
  readln();
end.
vedro-compota's picture

vedro-compota

Fri, 01/04/2019 - 13:11

уточните форматирование ветки else, чтобы было понятно как именно вложен цикл.

_____________
матфак вгу и остальная классика =)

gani84's picture

gani84

Fri, 01/04/2019 - 13:23 

var i: integer;
begin
  writeln('vvedite celoe chislo >1 :');
  readln(i);
  if (i < 1) then //если введеное число меньше 1
      writeln('ochibka')
  else
      repeat    // начало тела цикла
          if ((i mod 23) = 0) then
             write(i, ' ');
             i := i - 1; // уменьшаем счетчик на 1 ---> задаем обратный отсчет
      until (i < 1); // выход из цикла
  readln();
end.
vedro-compota's picture

vedro-compota

Fri, 01/04/2019 - 13:27

решение засчитано.

_____________
матфак вгу и остальная классика =)