Решение задачи №5 из главы 12.1

Primary tabs

gani84's picture
Submitted by gani84 on Thu, 07/19/2018 - 09:44

Forums:

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Первый способ:

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 7)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.

Решение вторым способом:

var i, n: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 7)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  writeln();
  n := 45;
  repeat    // начало тела цикла
    if ((n mod 3)=0) and ((n mod 7)=0) then // проверяем условия
      write(n, ' ');
        n := n + 1; // увеличиваем счетчик на 1
  until (n > 99);
  readln();
end.

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

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

vedro-compota

Sat, 07/21/2018 - 23:38

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

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

gani84's picture

gani84

Sun, 07/22/2018 - 12:02

Решение №1

var i, n: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 7)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  writeln();
  n := 45;
  repeat    // начало тела цикла
    if ((n mod 3)=0) and ((n mod 7)=0) then // проверяем условия
      write(n, ' ');
        n := n + 1; // увеличиваем счетчик на 1
  until (n > 99);
  readln();
end.
Решение №2
var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 7)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/26/2018 - 19:36 

  1. i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 7)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117);

    И где тут условие для четных чисел?
    Вам нужно в первом диапазоне вывести какие числа?
    (прочитайте условие внимательно)

  2. Из-за первого замечание второе решение тоже неправильно,
    там как раз вяся суть и словность в том что диапазоны пересекаются,
    а условия разные.
    Сначала исправьте первое решение, а потом думайте над вторым.

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

gani84's picture

gani84

Tue, 10/02/2018 - 10:59

Решение№1

var i, n: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 2)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  writeln();
  writeln(); 
  n := 45;
  repeat    // начало тела цикла
    if ((n mod 3)=0) and ((n mod 7)=0) then // проверяем условия
      write(n, ' ');
        n := n + 1; // увеличиваем счетчик на 1
  until (n > 99);
  readln();
end.
Решение№2
var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 7)=0) and ((i mod 2)=0) then // проверяем условия
      write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Mon, 03/25/2019 - 22:30

первое верно ,в от второе решение не верно. Вы просто слепили в одну кучу все условия, этого не достаточно (у вас даже нет упоминания второго диапазона). Внимательно читайте задачу. Вы проверяли - одни и те же числа выводит ваш код? судя по всему не.

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

gani84's picture

gani84

Thu, 06/18/2020 - 14:56 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if  ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
       AND ((i mod 2) = 0)) then // и если четное
           write(i, ' ')
    else
        if  ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
            AND ((i mod 7) = 0)) AND ((i mod 3) = 0) then // и если четное
                write(i, ' ');

    i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 06/24/2020 - 19:17

не ясны комментарии, везде "если четное"

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

gani84's picture

gani84

Fri, 08/07/2020 - 09:30 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if  ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
       AND ((i mod 2) = 0)) then // и если четное
           write(i, ' ') // тогда выводим значения
    else
        if  ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
            AND ((i mod 7) = 0)) AND ((i mod 3) = 0) then // и делится 3 и 7 нацело
                write(i, ' '); // тогда выводим значения

    i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 08/12/2020 - 19:49

проверьте условие.

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

gani84's picture

gani84

Thu, 08/13/2020 - 10:56 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if  ((i >= 35) AND (i <= 117) // если принадлежит отрезку [35..117]
       AND ((i mod 2) = 0)) then // и если четное
           write(i, ' ') // тогда выводим значения
    else
        if  ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
            AND ((i mod 7) = 0)) AND ((i mod 3) = 0) AND ((i mod 2) = 1) then // и делится 3 и 7 нацело и нечетные числа
                write(i, ' '); // тогда выводим значения

    i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 08/26/2020 - 19:37 

if  ((i >= 35) AND (i <= 117) // если принадлежит отрезку [35..117]

лишнее условие

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

gani84's picture

gani84

Thu, 08/27/2020 - 07:16 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if (i mod 2) = 0 then // и если четное
           write(i, ' ') // тогда выводим значения
    else
        if  ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
            AND ((i mod 7) = 0)) AND ((i mod 3) = 0) AND ((i mod 2) = 1) then // и делится 3 и 7 нацело и нечетные числа
                write(i, ' '); // тогда выводим значения

    i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.

math2

Thu, 08/27/2020 - 12:33

Если не выполнено (i mod 2) = 0, то (i mod 2) = 1.

И если (((i mod 7) = 0) AND ((i mod 3) = 0)), то будет ((i mod 21) = 0)).

Можно сократить программу

(((i mod 2) = 0) OR ((i >= 45) AND (i <= 99) AND ((i mod 21) = 0)))
vedro-compota's picture

vedro-compota

Sat, 08/29/2020 - 20:40 

   if  ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
            AND ((i mod 7) = 0)) AND ((i mod 3) = 0) AND ((i mod 2) = 1)

есть лишние условия

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