Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Dmitriy1994
0 / 0 / 1
Регистрация: 04.06.2014
Сообщений: 26
1

Рекурсивная процедура. Определить результат сравнения количества четных и количества нечетных чисел

29.12.2014, 19:45. Просмотров 874. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста с программой.
Условие : Используя рекурсивную процедуру или функцию, составить программу, определяющую результат сравнения количества четных и количества нечетных чисел.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2014, 19:45
Ответы с готовыми решениями:

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

В матрице найти разность количества нечетных чисел 1-ой строки и количества четных чисел 4-го столбца.
Нужно программу составить в паскале (лабы): 1)В матрице А(5,7) найти разность количества ...

подсчет количества четных и нечетных чисел
подсчет количества четных и нечетных чисел в исходной последовательности целых чисел

Подсчет количества четных и сумма нечетных чисел в файле
День добрый. Помогите, написал программу, но не работает, выдает "Ошибка 100: ошибка чтения с...

Среди заданного количества n-натуральных чисел определить количество четных чисел
2) среди занного количества n-натуральных чисел определить количество четных чисел. Распечатать...

2
TrueTerm
168 / 116 / 45
Регистрация: 25.12.2014
Сообщений: 385
29.12.2014, 21:11 2
Уточните задачу. Количество чётных и нечётных элементов ищется в массиве из целых чисел?
А результат сравнения-это что? Из числа нечётных просто вычитаем число чётных, или это "0-равно, 1 больше нечётных, -1 - больше чётных)?
0
Торович
207 / 207 / 213
Регистрация: 03.07.2012
Сообщений: 448
30.12.2014, 06:30 3
Лучший ответ Сообщение было отмечено Dmitriy1994 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses
  crt;
procedure Compar(var sum : integer);
var c : char; num : integer;
begin
  write('Input number?, y/n :'); readln(c);
  if c = 'y' then begin
    write('Number : '); readln(num);
    If odd(num) then begin
      Compar(sum);
      sum := sum + 1;
    end else begin
      Compar(sum);
      sum := sum - 1;
    end;
  end else sum := 0;
end;
var sum : integer;
begin
  clrscr;
  Compar(sum);
  If sum > 0 then writeln(abs(sum),' more odd numbers')
  else if sum < 0 then writeln(abs(sum),' more even numbers')
  else writeln('number of positive and negative equally');
  readln;
end.
Добавлено через 11 минут
Ошибся малость:
Pascal
1
2
3
  If sum > 0 then writeln(sum,' more odd numbers')
  else if sum < 0 then writeln(abs(sum),' more even numbers')
  else writeln('number of odd and even equally');
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2014, 06:30

Дано натуральное число N. Написать программу для нахождения количества четных цифр на нечетных местах
Без массива и попроще пожалуйста.

Написать функцию вычисления количества четных чисел в массиве
Здравствуйте. Нужно написать три небольшие программы. Буду благодарен за помощь. 1. Дан массив А...

Вычислить сумму заданного количества первых целых положительных четных чисел
Составить алгоритм и написать программу вычисления суммы первых целых положительных четных чисел....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru