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

Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита

26.06.2018, 11:49. Показов 2985. Ответов 2
Метки нет (Все метки)

Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита, удваивает цифры и подсчитывает количество строчных букв латинского алфавита. Использовать данные типа множество. Программу просчитать для различных исходных данных. На печать выдать исходный текст, количество строчных букв латинского алфавита и преобразованный текст.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.06.2018, 11:49
Ответы с готовыми решениями:

Во введенном тексте удалить все гласные буквы латинского алфавита
1. Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита,...

Составить программу, которая во введенном тексте все гласные буквы русского алфавита заменяет на знак "!"
Составить программу, которая во введенном тексте все гласные буквы русского алфавита заменяет на...

Во введенном тексте все строчные буквы латинского алфавита заменить прописными
Доброго времени суток! Возникли проблемы с написанием программы в Visual Basic. **** в...

Написать программу, которая формирует множество символов Y и выделяет из него подмножество Y1 : гласные буквы латинского алфавита, входящие в Y.
Помогите.Срочно!!!!! Написать программу, которая формирует множество символов Y и выделяет из него...

2
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
26.06.2018, 20:33 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
var
  st, s: string;
  k, err, q, i: integer;
  Zagl, digits, gl: set of char;
 
begin
  k := 0;
  gl := ['a', 'e', 'i', 'o', 'u', 'y', 'A', 'E', 'I', 'O', 'U', 'Y'];
  digits := ['0'..'9'];
  Zagl := ['A'..'Z'];
  readln(s);
  //s := '11239eeeAAAББББ42353"!№!";К12';
  for i := length(s) downto 1 do
  begin
    if s[i] in Zagl  then 
      inc(k);
    if s[i] in digits  then 
    begin
      val(s[i], q, err);
      q := q * 2;
      str(q, st);
      delete(s, i, 1);
      insert(st, s, i);
    end;
    if s[i] in gl  then 
      delete(s, i, 1);
  end;
  writeln(s);
  writeln(k);
end.
0
0 / 0 / 0
Регистрация: 19.06.2018
Сообщений: 21
27.06.2018, 00:39  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2018, 00:39
Помогаю со студенческими работами здесь

Написать программу, которая печатает все буквы латинского алфавита
Добрый день. Нужна помощь, т.к пока не очень разбираюсь в Паскале, задание простенькое. Само...

Составить программу, которая во введенном тексте заменяет все латинские буквы на "*"
Составить программу, которая во введенном тексте заменяет все латинские буквы на "*", все гласные...

Выдать все гласные буквы в порядке латинского алфавита
Программа выдает все Гласные буквы ,по-порядку как они есть в тексте , а надо ,чтоб выдавала в...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru