Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 25.01.2017
Сообщений: 21
1

Определить, во сколько раз количество элементов «сигнал» превышает количество элементов «шум».

25.01.2017, 19:47. Просмотров 872. Ответов 2
Метки нет (Все метки)

Дана числовая последовательность, элементы которой не превышают по модулю число "32000". Конец полследовательности - число "ноль". Те элементы, которые являются целыми положительными числами мы назовем «Сигналы», элементы, которые являются дробными или отрицательными - назовем «Шумы». Определить, во сколько раз количество элементов «сигнал» превышает количество элементов «шум». Результат вывести на экран в виде дробного числа с тремя знаками в целой части и тремя знаками в дробной части. Дробная часть округлена до третьего знака после запятой. В случае, если "шумы" отсутствуют вывести слово "UNREAL", в случае, когда только одни шумы - "HELL". В случае пустой последовательности - "SILENCE".


Пример работы программы:
Ввод: 1 2 3 4 -5 0.6 -7 8 9 10 0
Вывод: 002.333
Ввод: 0.5 -0.5 0
Вывод: HELL
Ввод: 1 2 3 4 5 6 0
Вывод: UNREAL
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2017, 19:47
Ответы с готовыми решениями:

Определить количество элементов массива, значение которых превышает заданное
Определить количество элементов массива, значение которых превышает заданное. Составить новый...

Определить количество элементов двумерного массива, чья величина превышает среднюю
Определить количество элементов двумерного массива, чья величина превышает среднюю.

Выяснитьь верно ли, что количество количество положительных элементов не превышает 5
Добрый день, помогите пожалуйста. Дан массив вещественных чисел. Выяснить: а) верно ли, что...

Найти сумму всех элементов массива, и количество элементов, значение которых превышает 6
ввести с клавитуры из N элементов.Найдите сумму всех элементов и количество элементов значение...

2
133 / 117 / 152
Регистрация: 22.03.2016
Сообщений: 484
30.01.2017, 18:45 2
Лучший ответ Сообщение было отмечено clone2305 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
begin
  var Buffer:= 0;
  var Collection:= ReadString('Input your collection by _:').Split(' ').Where(x -> x.Length > 0).Select(x -> begin
                                                                                      if integer.TryParse(x, Buffer)
                                                                                      then
                                                                                        result:= Buffer
                                                                                      else
                                                                                        result:= -1;
                                                                                    end).Println('; ');
  Writeln('Some Text Out:', (Collection = nil) or (Collection.Count() = 0) ? 'SILENCE' : Collection.Where(x -> x < 0).Count() = 0 ? 'UNREAL' : Collection.Where(x -> x <= 0).Count() = Collection.Count() ? 'HELL' : (Collection.Where(x -> x <= 0).Count()/Collection.Count()).ToString());
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29831 / 19637 / 7683
Регистрация: 22.10.2011
Сообщений: 34,219
Записей в блоге: 6
31.01.2017, 11:36 3
Pascal
1
2
3
4
begin
  var t := ReadString().ToWords(' ').Select(StrToFloat).TakeWhile(x -> x <> 0).Partition(x -> (x > 0) and (Frac(x) = 0));
  writeln(t[0].Count = 0 ? 'HELL' : t[1].Count = 0 ? 'UNREAL' : (t[0].Count / t[1].Count).ToString('N3').PadLeft(7, '0'));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.01.2017, 11:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти количество элементов значение которых превышает среднее арифметическое всех элементов
дан целочисленный массив из n элементов. Найти количество элементов значение которых превышает...

Дан массив целых чисел. Определить количество четных элементов и количество элементов, оканчивающихся на цифру 5
Дан массив целых чисел. Определить количество четных элементов и количество элементов,...

Определить количество четных элементов массива и количество элементов, оканчивающихся а цифру 5
Одномерные массивы. Дан массив целых чисел. Определить количество четных элементов и количество...

Дан массив P(m), m=16. Определить количество положительных элементов KP, количество отрицательных элементов KM
Здравствуйте! Помогите решить задачу. Дан массив P(m), m=16. Определить количество положительных...

Определить в списке количество четных элементов и количество элементов, оканчивающихся на цифру 5
Дан список целых чисел. Определить количество четных элементов и количество элементов,...

Определить количество четных элементов массива и количество элементов, оканчивающихся на цифру 5
помогите очень надо. 3.Одномерные массивы. Дан массив целых чисел. Определить количество четных...


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

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

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