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

@grimmick · Регистрация: 19.01.2015

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

@Joy · 20.01.2015, 14:19

Pascal

var
 s,s1:string;
 i,j:integer;
function myupcase(q:char):char;
const rl:string='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧЪЬЫШЩЭЮЯ';
   rlmin:string='абвгдеёжзийклмнопрстуфхцчъьышщэюя';
var
  p:integer;
begin
  p:=pos(q,rlmin);
  if p>0 then myupcase:=rl[p] else myupcase:=upcase(q);
end;
begin
  write('Введите текст:');readln(s);s1:=s;
  for i:=1 to length(s1) do begin
   if upcase(s1[i]) in ['A'..'Z'] then s1[i]:='*';
   if myupcase(s1[i]) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then s1[i]:='+';
   if myupcase(s1[i]) in ['Б','В','Г','Д','Ж','З','Й','К','Л','М',
                          'Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ'] then j:=j+1;
  end;
   writeln('Исходный текст: ',s);
   writeln('Количество согласных: ',j);
   writeln('Преобразованный текст: ',s1);
   readln;
end.

@grimmick 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 12
		1
	Составить программу, которая во введенном тексте заменяет все латинские буквы на "" 19.01.2015, 18:35. Показов* 2260. Ответов 1 Метки нет (Все метки) Составить программу, которая во введенном тексте заменяет все латинские буквы на "*", все гласные буквы на знак "+" и подсчитать количество согласных. Использовать данные типа множество. Программу просчитать для различных исходных данных. На печать выдавать исходный текст, количество согласных и преобразованный текст. 0

Опции темы

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

Решение