Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project19;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils, Windows;
- type
- SetOFChar = set of char;
- const
- Vocals = ['а','е','ё','и','о','у','ы','э','ю','я','А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
- Consonants = ['б','в','г','д','ж','й','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ь','ъ','Б','В','Г','Д','Ж','Й','З','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ','Ь','Ъ'];
- procedure LineResult(VowelsNum, ConsonantsNum: Integer; ActualVowels, ActualConsonants: SetOFChar);
- var
- i: Ansichar;
- begin
- if (VowelsNum = 0) and (ConsonantsNum = 0) then
- Writeln('В строке отсутствуют буквы.')
- else
- begin
- if VowelsNum = 0 then
- begin
- Writeln('В предложении отсутствуют гласные буквы.')
- end;
- if ConsonantsNum = 0 then
- begin
- writeln('В предложении отсутствуют согласные буквы.')
- end;
- end;
- writeln('Количество гласных: ', VowelsNum);
- writeln('Количество согласных: ', ConsonantsNum);
- end;
- procedure LineCheck(InputLine: AnsiString; High: Integer);
- var
- i: Integer;
- ActualVowels, ActualConsonants : set of Char;
- VowelsNum, ConsonantsNum: Integer;
- begin
- VowelsNum := 0;
- ConsonantsNum := 0;
- ActualVowels := [];
- ActualConsonants := [];
- for i := 0 to High do
- begin
- if InputLine[i] in Vocals then
- begin
- Inc(VowelsNum);
- Include(ActualVowels, InputLine[i]);
- end
- else
- if InputLine[i] in Consonants then
- begin
- Inc(ConsonantsNum);
- Include(ActualConsonants, InputLine[i]);
- end;
- end;
- LineResult(VowelsNum, ConsonantsNum, ActualVowels, ActualConsonants);
- end;
- procedure LineRead();
- var
- InputLine: ansistring;
- IsIncorrect: boolean;
- begin
- IsIncorrect := False;
- repeat
- Writeln('Введите предложение:');
- Readln(InputLine);
- IsIncorrect := True;
- if InputLine = '' then
- begin
- writeln('Введена пустая строка, повторите попытку!');
- IsIncorrect := False;
- end;
- until IsIncorrect;
- LineCheck(InputLine, Length(InputLine));
- end;
- begin
- SetConsoleCP(1251);
- SetConsoleOutputCP(1251);
- LineRead();
- Readln;
- e
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement