Есть тут программисты?
друзья, срочно нужна помощь...Завтра сессия. очень нужна ваша помощь в решении ( комменты для минусов оставлю ) п.с язык Паскаль
7)
procedure p1 (text:string; var glt,soglt:string); //то что в варе - на вывод.
var gl,sogl:set of char;
begin:
gl:=['а','е','ё','и','о','у','ы','э','ю','я']; //множество гласных букв
sogl:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь']; //множество сщгласных букв
text:=AnsiLowerCase(text); //переводим весь текст в нижний регистр
for i:=0 to length(s)-1 do //цикл чтобы пройти по всем элементам строки
begin
if s[i] in gl //два разных условия чтобы игнорировались знаки препинания и пробелы.
then glt:=s[i];
if s[i] in sogl
then soglt:=s[i];
end;
end;
//данная процедура выводит ВСЕ гласные и согласные с повторением.
procedure p1 (text:string; var glt,soglt:string); //то что в варе - на вывод.
var gl,sogl:set of char;
begin:
gl:=['а','е','ё','и','о','у','ы','э','ю','я']; //множество гласных букв
sogl:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь']; //множество сщгласных букв
text:=AnsiLowerCase(text); //переводим весь текст в нижний регистр
for i:=0 to length(s)-1 do //цикл чтобы пройти по всем элементам строки
begin
if s[i] in gl //два разных условия чтобы игнорировались знаки препинания и пробелы.
then glt:=s[i];
if s[i] in sogl
then soglt:=s[i];
end;
end;
//данная процедура выводит ВСЕ гласные и согласные с повторением.
раскрыть ветку (3)
procedure p1 (text:string; var glt,soglt:string); //то что в варе - на вывод.
var gl,sogl:set of char;
begin:
gl:=['а','е','ё','и','о','у','ы','э','ю','я']; //множество гласных букв
sogl:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь']; //множество сщгласных букв
text:=AnsiLowerCase(text); //переводим весь текст в нижний регистр
for i:=0 to length(s)-1 do //цикл чтобы пройти по всем элементам строки
begin
if s[i] in gl //два разных условия чтобы игнорировались знаки препинания и пробелы.
begin
then glt:=s[i];
exclude(gl,s[i]); //убирает из множества гласных букву
end;
if s[i] in sogl
begin
then soglt:=s[i];
exclude(sogl,s[i]); //убирает из множества согласных букву
end;
end;
end;
//данная процедура выводит все гласные и согласные без повторения.
var gl,sogl:set of char;
begin:
gl:=['а','е','ё','и','о','у','ы','э','ю','я']; //множество гласных букв
sogl:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь']; //множество сщгласных букв
text:=AnsiLowerCase(text); //переводим весь текст в нижний регистр
for i:=0 to length(s)-1 do //цикл чтобы пройти по всем элементам строки
begin
if s[i] in gl //два разных условия чтобы игнорировались знаки препинания и пробелы.
begin
then glt:=s[i];
exclude(gl,s[i]); //убирает из множества гласных букву
end;
if s[i] in sogl
begin
then soglt:=s[i];
exclude(sogl,s[i]); //убирает из множества согласных букву
end;
end;
end;
//данная процедура выводит все гласные и согласные без повторения.
раскрыть ветку (2)