Delphi 利用集合求大写字符与元音字符

weiabc

于 2024-04-12 01:11:36 发布

阅读量141

点赞数 3

分类专栏： Delphi基础文章标签：学习

本文链接：https://blog.youkuaiyun.com/weiabc/article/details/137659056

版权

Delphi基础专栏收录该内容

20 篇文章

订阅专栏

该代码片段展示了如何使用WindowsAPI在字符流中统计出现的字母（仅限元音和辅音），并分别计数。它定义了TAlphaLetter类型和两个字符集合，用于存储输入字符中的元音和辅音。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses winapi.Windows;

type
  TAlphaLetter = set of 'A' .. 'Z';

var
  AlphaLetter: TAlphaLetter;
  YuanLetter: TAlphaLetter;
  CountAlpha: ShortInt = 0;
  CountYuan: ShortInt = 0;
  ch: char;

begin
  AlphaLetter := [];
  YuanLetter := [];
  read(ch);
  write(ch);
  while ch <> '?' do
  begin
    if ch in ['A' .. 'Z'] THEN
      AlphaLetter := AlphaLetter + [ch];
    if ch in ['A', 'E', 'I', 'O', 'U'] THEN
      YuanLetter := YuanLetter + [ch]; //集合与集合相加，不是和一个ch变量代表的字符相加
    read(ch);
    write(ch);
  end;

  for ch := 'A' to 'Z' do
    if ch in AlphaLetter then
    begin
      inc(CountAlpha);
      write(ch);
    end;
  writeln('AlphaLetter', CountAlpha);

  for ch := 'A' to 'Z' do
    if ch in YuanLetter then
    begin
      inc(CountYuan);
      write(ch);
    end;
  writeln('YuanLetter', CountYuan);

  sleep(1000000);
end.