Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
KinjongUn
0 / 0 / 0
Регистрация: 25.10.2019
Сообщений: 16
1

Без начальных согласных

25.03.2020, 10:15. Просмотров 1462. Ответов 2
Метки нет (Все метки)

Дана строка, состоящая из заглавных английских букв и цифр. Определить число согласных букв, расположенных после первой буквы 'A'.
input
KDSFJHGLKDJGHLSUIRH5HGUHG58HGLAHEJATI8GLSRU984GKDJ
output
11
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2020, 10:15
Ответы с готовыми решениями:

Дифференциальное уравнение без начальных данных
((4e^3y)-x)dy=dx В задание не указаны начальные данные, как решить этот пример в MathCAD

УТ 11.4 Ввод начальных остатков без расчетного документа
Всем привет Ут 11.4.2.109. Делаю ввод начальных остатков, и тут он начал требовать указать...

Без согласных
Доброго времени суток! Друзья, как выполнить такую задачу? Программа должна спрашивать у...

Вывести текст без согласных
Доброе время суток. Есть задание над которым долго сижу. Вывести текст 100 символов, удалить...

2
Puporev
Модератор
59482 / 44875 / 30982
Регистрация: 18.05.2008
Сообщений: 107,675
25.03.2020, 10:35 2
Лучший ответ Сообщение было отмечено KinjongUn как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const sg:string='BCDFGHJKLMNPQRSTVWXZ';
var s:string;
    p,i,k:integer;
begin
writeln('Введите строку из цифр и прописных английских букв');
readln(s);
p:=pos('A',s);
if p=0 then write('В строке нет буквы А')
else if p=length(s) then write('буква А последняя в строке')
else
 begin
  k:=0;
  for i:=p+1 to length(s) do
  if pos(s[i],sg)>0 then inc(k);
  write('Количество согласных после первой буквы А=',k)
 end;
end.
1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
5723 / 3894 / 4358
Регистрация: 05.06.2014
Сообщений: 19,402
25.03.2020, 10:38 3
Лучший ответ Сообщение было отмечено KinjongUn как решение

Решение

Взято отсюда: Вывести все согласные буквы строки
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
program bb;
 
const
  b = ['B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'M', 'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Y', 'Z',
  'b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'y', 'z'];
 
var
  k, i: integer;
  s: string;
 
begin
  writeln('Enter string:');
  readln(s);
  for i := 1 to length(s) do 
    if s[i] = 'A' then
    begin
      k := i;
      break;
    end;
  writeln('Result:');
  for i := k to length(s) do 
    if s[i] in b then 
      write(s[i]); //та самая строка
end.
0
25.03.2020, 10:38
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2020, 10:38

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

Подсчитать количество гласных и согласных букв в строке без учета регистра
помогите написать программу на СИ. Пользователь вводит с клавиатуры строку S. Подсчитать...

Вывести слова без повторений,которые имеют больше гласных,чем согласных.
Пусть у нас есть текстовый файл,на который не накладываются ограничения относительно его размера....

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

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


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

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

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