Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Xo4ySubaru
0 / 0 / 0
Регистрация: 27.11.2014
Сообщений: 4
#1

Подсчитать количество введённых положительных и отрицательных чисел - Turbo Pascal

27.11.2014, 23:36. Просмотров 1011. Ответов 4
Метки нет (Все метки)

Задание 1.Пользователь вводит числа. Подсчитать количество введённых положи-
тельных и отрицательных чисел. Последним введённым числом считать 0.
Если количество всех введённых чисел, кроме 0, нечётное, то выполнить
программу ещё раз (начиная со ввода чисел), если чётное — вывести на
экран текстовый комментарий о том, каких чисел больше — чётных или
нечётных. (сделал частично..)

Задание 2. Для массива X[1..N] определить среднее арифметическое положительных чисел, из отрицательных чисел сформировать массив Y.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2014, 23:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитать количество введённых положительных и отрицательных чисел (Turbo Pascal):

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

Определить среди 3 введённых чисел (a,b,c) количество отрицательных и положительных
Определить среди 3 введённых чисел (a,b,c) количество отрицательных и...

Составте программу которая определяет количество отрицательных, количество положительных и колисетво нулей среди введённых чисел
Помогите написать программу: С клавиатуры вводятся N чисел. Составте программу...

Подсчитать количество положительных чисел и сумму отрицательных чисел среди них
1.Дано целое число если оно кратно 5,то его на 1,иначе увеличить в 3 раза. 1....

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

В произвольной последовательности чисел подсчитать количество положительных и отрицательных элементов
в произвольной последовательности чисел подсчитать количество положительных и...

4
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
28.11.2014, 00:00 #2
выкладывайте что сделали

вроде задачи простейшие
не понимаю в чем сложность
0
Xo4ySubaru
0 / 0 / 0
Регистрация: 27.11.2014
Сообщений: 4
28.11.2014, 01:02  [ТС] #3
Дальше надо сравнить kp и ko?
0
Изображения
 
tomb2002
32 / 32 / 43
Регистрация: 07.02.2014
Сообщений: 89
28.11.2014, 13:19 #4
Задание 1.

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
27
28
29
30
31
USES CRT;
Var i,a,kp,ko,counter,chet,nechet : integer;
BEGIN
REPEAT
  clrscr;
  a:=0; counter:=0; kp:=0; ko:=0; chet:=0; nechet:=0;
   Repeat
     WriteLn('Введите число : ');
     ReadLn(a);
     inc(counter);
     If a > 0 then kp:=kp+1;
     If a < 0 then ko:=ko+1;
     If ( (not odd(a)) and (a<>0) ) then chet:=chet+1;
     If odd(a) then nechet:=nechet+1;
   Until a = 0;
  counter:=counter - 1;
  If counter = 0 then counter:=1
  else If odd (counter) then
    begin
      writeLn('Количество введеных чисел нечётное, повторяем ввод чисел!');
      Readkey
    end
UNTIL not odd (counter);
If chet > nechet then WriteLn('Чётных чисел больше');
If chet < nechet then WriteLn('Нечётных чисел больше');
WriteLn('Количество положительных чисел = ',kp);
WriteLn('Количество отрицательных чисел = ',ko);
WriteLn('Количество чётных чисел = ',chet);
WriteLn('Количество нечётных чисел = ',nechet);
Readkey
END.
0
Cyborg Drone
28.11.2014, 20:05     Подсчитать количество введённых положительных и отрицательных чисел
  #5

Не по теме:

Xo4ySubaru, рекомендую Вам ознакомиться с правилами форума.

Фотографии текста запрещены.

0
28.11.2014, 20:05
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2014, 20:05
Привет! Вот еще темы с ответами:

Дан одномерный массив чисел. Подсчитать в нем количество элементов равных нулю, отрицательных элементов и положительных элементов
1)из заданной строки напечатать только заглавные английские буквы и их коды ...

Подсчитать количество положительных и количество отрицательных элементов массива
В массиве x(n) подсчитать количество положительных k1 и количество...

Подсчитать количество положительных и количество отрицательных элементов матрицы
Ввод данных выполнить с помощью оператора For. Для реализации циклических...

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


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

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

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