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

@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 **[ТС]**

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

!!!

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

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

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

Решение