2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Вывести все четные числа из данного набора в том же порядке.
Сообщение14.02.2012, 17:42 
Аватара пользователя
Дано целое число N и набор из N ненулевых целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.
Задачу решить пользуясь исключительно циклами и ветвлениями.
код: [ скачать ] [ спрятать ]
Используется синтаксис Pascal
var i,n,ch,kol:integer;
 
BEGIN
   read(n);
   kol:=0;
   For i:=1 to n do
      Begin
          read(ch);
          If ch mod 2 = 0 then
              write(ch);
              kol:=kol+1;
      End;
   write('Количество четных чисел в наборе:  ',kol);
END.
 

Я смог сосчитать количество четных чисел, но не могу понять как их вывести в той же последовательности.
В начале я должен последовательно задавать числа набора т.е. условие задачи я представляю себе таким:
"Ввод: 1968435"
"Вывод:684"
Как осуществить такой вывод пользуясь исключительно циклами и ветвлениями? Использовать переменную в которой я бы хранил четное число? Но ведь если четных чисел будет несколько, то в переменной останется последнее введенное четное число. Помогите, пожалуйста, разобраться полному (цензура!) :x Спасибо.

 
 
 
 Re: Вывести все четные числа из данного набора в том же порядке.
Сообщение14.02.2012, 18:03 
Аватара пользователя
Если Вы числа вводите по одному, то по одному и выводИте, написав дополнительный write в if.
Если числа располагаются в массиве, то в массив и загоняйте. Можно в то же самый.

 
 
 
 Re: Вывести все четные числа из данного набора в том же порядке.
Сообщение14.02.2012, 18:06 
shady в сообщении #538627 писал(а):
В начале я должен последовательно задавать числа набора т.е. условие задачи я представляю себе таким:
"Ввод: 1968435"
"Вывод:684"
А не путаете ли вы понятия "число" и "цифра"?

 
 
 
 Re: Вывести все четные числа из данного набора в том же порядке.
Сообщение14.02.2012, 18:09 
Аватара пользователя
Цифры: 0..9;
Число: 12736,394,0.434;

-- 14.02.2012, 19:12 --

gris Вы это имели ввиду?
код: [ скачать ] [ спрятать ]
Используется синтаксис Pascal
var i,n,ch,kol:integer;
 
BEGIN
   read(n);
   kol:=0;
   For i:=1 to n do
      Begin
          read(ch);
          If ch mod 2 = 0 then
              write(ch);
              kol:=kol+1;
      End;
   write('Количество четных чисел в наборе:  ',kol);
END.
 


-- 14.02.2012, 19:28 --

Изображение
У меня получается только так.

 
 
 
 Re: Вывести все четные числа из данного набора в том же порядке.
Сообщение14.02.2012, 18:57 
Аватара пользователя
Начинать надо всегда с интерфейса, пусть даже примитивного. Определите, как будет выглядеть на экране диалог, а потом программируйте. Если сначала вводятся все числа, а потом уже выводятся чётные, то по ходу ввода чётные надо записывать в массив. После ввода последнего, а их число задано, начинайте вывод.

 
 
 
 Re: Вывести все четные числа из данного набора в том же порядке.
Сообщение14.02.2012, 19:45 
gris в сообщении #538660 писал(а):
Если сначала вводятся все числа, а потом уже выводятся чётные, то по ходу ввода чётные надо записывать в массив...


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

 
 
 
 Re: Вывести все четные числа из данного набора в том же порядке.
Сообщение15.02.2012, 21:46 
Какое задание, такая раскрутка у Вас и на экране.
В чём сомнения?

 
 
 
 Re: Вывести все четные числа из данного набора в том же порядке.
Сообщение16.02.2012, 08:05 
На скрине работа не этой программы. В приведённом коде если введённое число чётное, оно сразу же выводится на экран. Работа этой программы должна выглядеть примерно так:

_3
_5
_6
6
_7
_8
8

 
 
 [ Сообщений: 8 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group