Дан текст. Замена латинских букв на "!", замена гласных русских букв на "-", подсчёт цифр в тексте

saren0 · Регистрация: 03.09.2015

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

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

Разработать программу, которая во введенном тексте заменяет все латинские буквы на символ “!”, все гласные русские буквы на знак “–“ и подсчитать количество цифр. На печать выдавать исходный текст, количество цифр и преобразованный текст.

Мне кажется что мой код не совсем соответствует условию. Всё ли верно сделано?

Pascal

const
  n=['0'..'9'];
  Letters=['A'..'Z', 'a'..'z'];
  Letters2=['А','У','О','Ы','И','Э','Я','Ю','Ё','Е','а','у','о','ы','и','э','я','ю','ё','е'];
var
  s,s2: String;
  i,k: Integer;
begin
Writeln('Исходный текст: ');
Readln(s);
 
//заменяем латинские буквы на "!"
s2:=' ';
for i:=1 to length(s) do
 begin
 If s[i] in Letters then
  s[i]:='!';
s2:=s2+s[i];
end;
 
//заменяем гласные русские буквы на "-"
s2:=' ';
for i:=1 to length(s) do
 begin
 If s[i] in Letters2 then
  s[i]:='-';
s2:=s2+s[i];
end;
 
//считаем количество цифр
For i:=1 to Length(s) do
If s[i] in n Then Inc(k);
 
writeln('Общее количество цифр = ',k);
writeln('Преобразованный текст: ',s2);
end.

@Puporev · 11.09.2015, 16:26

Pascal

const
  n=['0'..'9'];
  Letters=['A'..'Z', 'a'..'z'];
  Letters2=['А','У','О','Ы','И','Э','Я','Ю','Ё','Е','а','у','о','ы','и','э','я','ю','ё','е'];
var
  s: String;
  i,k: Integer;
begin
Writeln('Исходный текст: ');
Readln(s);
//заменяем латинские буквы на "!"
//заменяем гласные русские буквы на "-"
//считаем количество цифр
k:=0;
For i:=1 to Length(s) do
if s[i] in Letters then s[i]:='!'
else if s[i] in Letters2 then s[i]:='-'
else if s[i] in n then inc(k);
writeln('Общее количество цифр = ',k);
writeln('Преобразованный текст: ',s);
end.

Опции темы