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

Primary tabs

gani84's picture
Submitted by gani84 on Fri, 07/13/2018 - 08:01

Forums:

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

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить.
Первое введенное пользователем число можно сложить с единицей.

var i:integer;
begin
  i:=1; // начинаем цикл
  while (i < 15) do //проверяем условие цикла
  begin
    writeln('Vvedite cislo');
    readln(i);//считываем его из потока ввода
    writeln(i+1);
    writeln(i+i);

  end;
   writeln('Cikl zaverhen'); //завершаем цикл (i < 15)
   readln();
end.

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

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

vedro-compota

Fri, 07/13/2018 - 11:54

решение неправильно.

writeln(i+1);
writeln(i+i);

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

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

gani84's picture

gani84

Fri, 07/13/2018 - 12:00

Я не совсем понимаю

выводите сумму этого числа и предыдущего введённого им числа

и ни где не написано об этом. Я об этом писал http://fkn.ktu10.com/?q=node/10301

vedro-compota's picture

vedro-compota

Fri, 07/13/2018 - 13:22

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

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

gani84's picture

gani84

Sat, 07/14/2018 - 12:01 

var i,a:integer;
begin
  i:=1; // начинаем цикл
  while (i < 15) do //проверяем условие цикла
  begin
    writeln('Vvedite cisla a, i');
    readln(i);//считываем его из потока ввода
    readln(a);
    writeln(i+1);
    writeln(i+a);

  end;
   writeln('Cikl zaverhen'); //завершаем цикл (i < 15)
   readln();
end.
vedro-compota's picture

vedro-compota

Sat, 07/21/2018 - 23:29

если пользователь водил числа 

1 2 23 5

Вы должны были в ответ, соответственно вывести (в скобках пояснение):

2 (1 + 1)
3 (2 + 1)
25 (23 + 2)
28 (5 + 23)

Понятно ли это? Проверьте так ли работает ваша программа.

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

gani84's picture

gani84

Sun, 07/22/2018 - 13:13

Да условие выполняется только надо вбивать меньше 15 а то цикл завершиться потому что есть условие while (i

vedro-compota's picture

vedro-compota

Tue, 08/14/2018 - 10:02

да, вы правы

readln(i);//считываем его из потока ввода
readln(a);

но вот это уже неправильно. Сразу после введния первого числа должен приходить ответ, т.е. начало, если я ввел 2 должно выглядеть так (2 +1 второе в ответ):

2
3

а у вас ожидание ввода для второй переменной.

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

gani84's picture

gani84

Thu, 08/16/2018 - 12:06 

var i,a:integer;
begin
  i:=0; // начинаем цикл
  while (i < 15) do //проверяем условие цикла
  begin
    writeln('Vvedite cisla a, i');
    readln(a);//считываем его из потока ввода
    writeln(a+1);
    readln(i);
    writeln(i+a);
  end;
   writeln('Cikl zaverhen'); //завершаем цикл (i < 15)
   readln();
end.
vedro-compota's picture

vedro-compota

Thu, 08/16/2018 - 13:20

если ввести а > 15 -- работа продолжится, будет запрошено следующее число, а это неправильно по условию.

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

gani84's picture

gani84

Fri, 08/17/2018 - 18:18

Тогда не знаю. Как это решить!!!

vedro-compota's picture

vedro-compota

Sun, 08/26/2018 - 11:14

Добавлено видео-пояснение к задаче с запоминанием "предыдущих введнных значений": https://youtu.be/L_MKZ8xsQVo

Задавайте вопросы, если там что-то неясно.

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

gani84's picture

gani84

Wed, 10/03/2018 - 11:55

Все ясно теперь понял!!!