Решение задачи №2 из главы 10

Primary tabs

gani84's picture
Submitted by gani84 on Mon, 07/09/2018 - 13:44

Forums:

Решение задачи №2 из главы 10

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

var a,i:integer; //объявляем переменную счетчика
begin
  writeln('vvedite chislo');
  readln(a);

      if ((a mod 5) = 0) and  (a > 1) then
        for i:=a downto 1 do  // i пройдёт значения от i до 64
          write(i, ' ')//выводим в одну строку через пробел
   else
     write('Ochibka');
  readln(); // удерживаем консоль
end.

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

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

vedro-compota

Mon, 07/09/2018 - 14:13

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

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

vedro-compota's picture

vedro-compota

Tue, 07/10/2018 - 14:51

if ((a mod 5) = 0) and (a > 1) then

это неверно, точнее не все на своих местах.

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

gani84's picture

gani84

Fri, 07/13/2018 - 07:12 

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a); //вводим число
  if (a > 1) then //проверяем условие
    for i:=a downto 1 do
       if ((a mod 5) = 0) then
        write(a, ' ')
  else
     writeln('oshibka!');

  readln();
end.
vedro-compota's picture

vedro-compota

Fri, 07/13/2018 - 14:45

но результат не совсем тот

почему не тот? Решение теперь в приципе верное. Теперь делимость проверяется уже внутри цикла -- что соответствует условию.

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

vedro-compota's picture

vedro-compota

Fri, 07/20/2018 - 20:18

Переделал но результат не совсем тот

почему вы считаете что результат не тот?

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

gani84's picture

gani84

Sat, 07/21/2018 - 06:33

например я ввожу число 10
тогда он мне выводит:
vvedite celoe chislo
10
10 10 10 10 10 10 10 10 10 10

Хотя логика и алгоритм все правильно!!!

vedro-compota's picture

vedro-compota

Sat, 07/21/2018 - 23:13

да вы правы, решение неверное. У вас выводится не то что надо .Какая переменная изменяется в цикле по вашему?

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

gani84's picture

gani84

Sun, 07/22/2018 - 10:28

Теперь все решил но не выполняется условие if ((a mod 5) = 0) then не могу понять почему??

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a); //вводим число
  if (a > 1) then //проверяем условие
    for i:=a downto 1 do
       if ((a mod 5) = 0) then
        write(i, ' ')
  else
     writeln('oshibka!');
  readln();
end.

ИЛИ

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a); //вводим число
  if (a > 1) and ((a mod 5) = 0) then //проверяем условие
    for i:=a downto 1 do
      write(i, ' ')
  else
     writeln('oshibka!');
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/26/2018 - 15:29

ответьте на вопрос выше - -вы не ответили:

.Какая переменная изменяется в цикле по вашему?

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

gani84's picture

gani84

Fri, 09/28/2018 - 09:06 

var i, a: integer;
begin
  writeln('vvedite celoe chislo < 1');
  readln(a); //вводим число
  if (a < 1)then // первая ветка если A меньше 1
      writeln('oshibka!'); // то выводим ошибку
  if (a > 1) then  //проверяем условие
    for i:=a downto 1 do
       if ((i mod 5) = 0) then
           write(i, ' ');
  readln();
end.
gani84's picture

gani84

Fri, 09/28/2018 - 09:32 

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a > 1) then  begin
     for i:=a downto 5 do 
       if ((i mod 5) = 0) then
        write(i, ' ')
  end
  else
     writeln('oshibka! vashe chislo ne > 1.');
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 09/30/2018 - 17:11

Ваши два последние решения делают не совсем одно и то же почему? в чем отличие?

1)

var i, a: integer;
begin
  writeln('vvedite celoe chislo < 1');
  readln(a); //вводим число
  if (a < 1)then // первая ветка если A меньше 1
      writeln('oshibka!'); // то выводим ошибку
  if (a > 1) then  //проверяем условие
    for i:=a downto 1 do
       if ((i mod 5) = 0) then
           write(i, ' ');
  readln();
end.

2) 

var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a > 1) then  begin
     for i:=a downto 5 do
       if ((i mod 5) = 0) then
        write(i, ' ')
  end
  else
     writeln('oshibka! vashe chislo ne > 1.');
  readln();
end.

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

gani84's picture

gani84

Mon, 10/01/2018 - 07:09

В первой задаче: Есть первая отдельная ветка if которая проверяет больше ли число 1. Если оно меньше то оно прерываться в первой ветке. Если нет то она продолжает делать только уже во второй if.

Во второй задаче: Он выполняет последовательно все условия и только потом через else дает знать что иначе если оно меньше единицы то программа прерывается.

vedro-compota's picture

vedro-compota

Thu, 10/04/2018 - 23:25

Если оно меньше то оно прерываться в первой ветке. Если нет то она продолжает делать только уже во второй if.

не совсем так.

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

gani84's picture

gani84

Fri, 10/05/2018 - 12:47

Если оно меньше то выполняется условие
if (a writeln('oshibka!');
и программа выводит ошибка и ждет нажатия клавишы. Так как переходит в readln();

Но если введенное число больше 1 то выполняется вторая ветка if.

vedro-compota's picture

vedro-compota

Sat, 10/13/2018 - 18:00

разница не в этом, я переформулирую вопрос, чтобы вам было понятнее, вот есть код:

var i, a: integer;
begin
  writeln('vvedite celoe chislo < 1');
  readln(a); //вводим число
  if (a < 1)then // первая ветка если A меньше 1
      writeln('oshibka!'); // то выводим ошибку
  if (a > 1) then  //проверяем условие
    for i:=a downto 1 do
       if ((i mod 5) = 0) then
           write(i, ' ');
  readln();
end.

тут не все правильно, если значение, когда на экране не появится вообще ничего. Какое оно?
(второе решение избавлено от этого недостатка)

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

gani84's picture

gani84

Tue, 10/16/2018 - 11:12

Понял это число 1 исправил 

var i, a: integer;
begin
  writeln('vvedite celoe chislo < 1');
  readln(a); //вводим число
  if (a <= 1)then // первая ветка если A меньше 1 или равно 1
      writeln('oshibka!'); // то выводим ошибку
  if (a > 1) then  //проверяем условие
    for i:=a downto 1 do
       if ((i mod 5) = 0) then
           write(i, ' ');
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 10/16/2018 - 12:40

Понял это число 1 исправил

да, всё верно, задача засчитана.

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

nglag

Wed, 06/30/2021 - 11:08

Добрый день!
Если добавить в строке 9 логический оператор - вот так: if (a>1)AND((i mod 5) = 0) then ,
то строку 7 можно не писать. Так?

vedro-compota's picture

vedro-compota

Sun, 07/11/2021 - 13:57

так получим дублирование проверки

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