Во введенном тексте заменить все латинские буквы на символ *

@Shults_13 · Регистрация: 25.11.2013

Author24 — интернет-сервис помощи студентам

Написать программу на языке Паскаль (можно и в среде Delphi 7.0), реализующую решение задачи с использованием структурированного типа данных: множества (обязательно!).

Разработать программу, которая во введенном тексте заменяет все латинские буквы на символ *, все гласные буквы на знак + и подсчитать количество согласных. На печать выдавать исходный текст, количество согласных и преобразованный текст.

Kodzaev · 09.06.2014, 20:36

Pascal

const
  eng = ['A'..'Z'];
  rus = ['А'..'П', 'Р'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё'];
  g = [ 'ё','у','е','ы','а','о','э','я','и','ю','Ё','У','Е','Ы','А','О','Э','Я','И','Ю'];
  s = rus - g;
  
var
  x: string;
  i, k: integer;
  
begin
  WriteLn('Введите строку:');
  ReadLn(x);
  for i := 1 to Length(x) do
  begin
    if UpCase(x[i]) in eng then
      x[i] := '*'
    else
      if x[i] in g then
        x[i] := '+'
      else
        if x[i] in s then
          k := k + 1
  end;
  WriteLn('Полученный текст:');
  WriteLn(x);
  Write('Количество согласных = ', k);
  ReadLn
end.

@Shults_13 · 09.06.2014, 20:48 **[ТС]**

Спасибо Большое

!!!

Новые блоги и статьи
[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .

@Shults_13 1 / 1 / 0 Регистрация: 25.11.2013 Сообщений: 74
		1
	Во введенном тексте заменить все латинские буквы на символ * 09.06.2014, 20:14. Показов 3091. Ответов 2 Метки нет (Все метки) Написать программу на языке Паскаль (можно и в среде Delphi 7.0), реализующую решение задачи с использованием структурированного типа данных: множества (обязательно!). Разработать программу, которая во введенном тексте заменяет все латинские буквы на символ *, все гласные буквы на знак + и подсчитать количество согласных. На печать выдавать исходный текст, количество согласных и преобразованный текст. 0

@Shults_13 1 / 1 / 0 Регистрация: 25.11.2013 Сообщений: 74
	09.06.2014, 20:48 [ТС]	3
	Спасибо Большое!!! 0

Во введенном тексте заменить все латинские буквы на символ *

Решение