В заданном тексте удвоить каждую согласную букву - Free Pascal

Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.86/7:

@kainachka 0 / 0 / 0 Регистрация: 24.02.2014 Сообщений: 5

	В заданном тексте удвоить каждую согласную букву 17.03.2014, 17:15. Показов 1504. Ответов 1 Метки нет (Все метки) Ваша программа должна в заданном тексте удвоить каждую согласную букву. 0

Лучшие ответы (1)

Сообщение: #5912458

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

17.03.2014, 17:15

Ответы с готовыми решениями:

В заданном тексте удвоить каждую гласную букву
Ваша программа должна в заданном тексте удвоить каждую гласную букву.

Удвоить каждую букву в заданном тексте
Ребят, помогите плиз решить задачи, до понедельника надо сделать :cry: 1)Определить число, полученное выписыванием в обратном порядке...

В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’,
В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’, Решил,но ниче не делает!!!Ужас просто! ...

ildwine

Почетный модератор

6201 / 2963 / 1300

Регистрация: 04.03.2013

Сообщений: 5,797

Записей в блоге: 1

17.03.2014, 18:03

Сообщение было отмечено kainachka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  g = ['a', 'e', 'i', 'o', 'u', 'y'];
var
  s : set of char;
  t : string;
  i : integer;
begin
  write('введите строку текста: ');
  readln(t);
  s := ['a'..'z'] - g;
  for i := length(t) downto 1 do
    if lowercase(t[i]) in s then insert(t[i], t, i);
  writeln('после удаления согласных: ', t);
  readln
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

17.03.2014, 18:03

Помогаю со студенческими работами здесь

Утройте каждую букву в заданном тексте.
Нпишите плиз программу!СПАСИБО! Утройте каждую букву в заданном тексте.

Утройте каждую букву в заданном тексте.
Помогите пожалуйста решить!СПАСИЬО! Утройте каждую букву в заданном тексте.

Составить алгоритм, утраивающий каждую букву в заданном тексте
Составить алгоритм, утраивающий каждую букву в заданном тексте.Выведите полученную строку на экран. Используйте подпрограммы для решения...

Удвоить каждую букву в строке
В строке, вводимой с клавиатуры в переменную st, заменить каждую букву на два таких символа (например: ввели "мама", а получили...

Удвоить каждую букву алфавита
Составьте программу, печатающую строку «ААББВВ... ЭЭЮЮЯЯ».

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

Наверх