Источники аналоговой информации(непрерывной): 1. Скрипка. Может создавать звук любой высоты. Переход от тона к тону происходит плавно и непрерывно. 2. телевизор. Луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно. 3. Телефон, Громкость звука меняется плавно и непрерывно. 4. Картина, нарисованная художником с использованием большого количества оттенков красок. 5. Графики функций.
Источники цифровой (дискретной) информации. 1. Фортепьяно . Нельзя исполнить звуки между нотами «ми» и «фа». Переход от ноты к ноте осуществляется скачком. 2. Монитор. Яркость луча изменяется скачком – есть луч )яркая белая или цветная точка), нет луча (черная точка). 3. Музыкальный проигрыватель компакт дисков. 4. Компьютер 5. Мобильные телефоны.
Аналоговую информацию можно превратить в цифровую (для этого достаточно, например, разным цветам присвоить номер или музыку записать нотами) и наоборот.
// PascalABC.NET 3.2, сборка 1478 от 10.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите текст, завершив его точкой:'); var p:=Pos('.',s); if (p>0) and (p<s.Length) then s:=s[:p+1]; Writeln('Количество предложений равно ',s.ToWords('!').Count) end.
Пример Введите текст, завершив его точкой: Тест 1!тестовое №2!Тест3.Тест4! Количество предложений равно 3
Если считать, что текст гарантированно завершается точкой, то можно упростить код программы до одного оператора:
begin Writeln('Количество предложений равно ', ReadlnString('Введите текст, завершив его точкой:').ToWords('!').Count) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
