0 / 0 / 0
Регистрация: 27.06.2017
Сообщений: 12
1

Определить, в каком слове строки больше заданных букв: в первом или последнем

31.01.2018, 02:29. Показов 1596. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
дан текст определить в каком слове больше заданных букв в первом или последнем.
0
31.01.2018, 02:29
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.01.2018, 02:29
Ответы с готовыми решениями:

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

Определить, сколько указанных букв в первом и последнем слове предложения
10-тую пытался решить Dim strA, strB, strC As String Dim intk, intl, inti As Integer Private Sub Command1_Click() strA =...

Определить, в каком столбце массива сумма элементов меньше: в первом или в последнем
1) В каком столбце массива сумма элементов меньше: в первом или в последнем; 2) В какой строке массива сумма элементов больше: во второй...

2
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
31.01.2018, 09:08 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
43
44
var
  s, a1, a2: string;
  n1, n2, k, i: integer;
  ch: char;
 
begin
  writeln('Введите строку: ');
  readln(s);
  writeln('Введите символ: ');
  readln(ch);
  for i := 1 to length(s) do 
    if s[i] in [' ', '.', '.', '!', '?'] then 
    begin
      k := i;
      break
    end;
  a1 := copy(s, 1, k);
  writeln(a1);
  if s[length(s)] in ['.', '.', '!', '?'] then 
    delete(s, length(s), 1);
  for i := length(s) downto 1 do 
    if s[i] in [' ', '.', '.', '!', '?'] then 
    begin
      k := i;
      break
    end;
  a2 := copy(s, k + 1, Length(s) - k);
  writeln(a2);
  n1 := 0;
  for i := 1 to length(a1) do 
    if a1[i] = ch then
      inc(n1);
  for i := 1 to length(a2) do 
    if a2[i] = ch then
      inc(n2);
  if n1 > n2 then 
    writeln('В первом больше букв, чем в последнем.')
  else
  if n2 > n1 then 
    writeln('В последнем больше букв, чем в первом.')
  else
  if n1 = n2 then 
    writeln('В первом и последнем количество букв одинаково.');
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7799 / 4622 / 2831
Регистрация: 22.11.2013
Сообщений: 13,128
Записей в блоге: 1
31.01.2018, 11:30 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

ZX Spectrum-128,
использование именованных констант для повторяющихся значений сильно облегчает сопровождение (в том числе модификацию) программы, транслятору все-равно, а человеку приятно :
Pascal
1
2
3
4
5
6
7
8
const
  Delims = [' ', '.', '.', '!', '?'];
...
    if s[i] in Delims then
...
  if s[length(s)] in Delims then
...
    if s[i] in Delims then
0
31.01.2018, 11:30
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
31.01.2018, 11:30
Помогаю со студенческими работами здесь

Строки. Подсчитать количество символов в первом и последнем слове
Вводится строка произвольного текста. Подсчитать количество символов в первом и последнем слове.

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

Определить, гласных или согласных букв в слове больше
Дано предложение. Используя множества, определить, гласных или согласных букв в последнем слове больше.

Количество букв в последнем слове строки
Метод должен возвращать количество букв в последнем слове в данной строке (Входным параметром метода является строка) Не получается...

Число букв в последнем слове строки
Дана строка символов. Подсчитайте число букв в последнем слове строки. У меня получилось так: Var s:string; k,q:integer; Begin ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отключение отслеживания файла, занесенного в .gitignore в Git
hw_wired 10.02.2025
Git помогает следить за изменениями в проекте, но иногда требуется исключить определенные файлы из системы контроля версий. Это могут быть конфигурационные файлы с локальными настройками, временные. . .
Что такое use strict в JavaScript
hw_wired 10.02.2025
Директива use strict - способ перевода JavaScript-кода в строгий режим работы, который делает язык более безопасным и предсказуемым. Она появилась в ECMAScript 5 как ответ на многочисленные проблемы,. . .
Как в jQuery проверить, что элемент скрыт
hw_wired 10.02.2025
jQuery предоставляет несколько эффективных способов определить, скрыт элемент или отображается на странице. Самый простой метод использует специальные селекторы :hidden и :visible. Селектор :hidden. . .
Как проверить (check out) ветку Git в удаленном репозитории
hw_wired 10.02.2025
Проверка удаленной ветки в Git требует понимания нескольких базовых концепций и точного выполнения определенной последовательности действий. Для начала необходимо получить актуальную информацию о. . .
chucknorris в HTML и другие обозначения цветов
hw_wired 10.02.2025
HTML, как основной язык разметки веб-страниц, прошел длинный путь развития в плане работы с цветами. На заре развития веб-технологий разработчики могли использовать только базовый набор из 16. . .
Стек и куча: отличия и назначение
hw_wired 10.02.2025
Управление памятью - ключевой элемент работы любой программы. В современных языках программирования память делится на две основные области: стек и кучу. Каждая из них обладает уникальными. . .
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru