-3

成功计算了每个字母，但字母顺序不能像 word 中那样按顺序显示。例如- 输入字-bbinood 输出=b2i1n1o2d1

这是我在 qbasic 中的程序：

INPUT "Enter the string:", A$
n = LEN(A$)

FOR i = 97 TO 122

    FOR j = 1 TO n
        IF CHR$(i) = MID$(A$, j, 1) THEN
            count = count + 1
        END IF
    NEXT
    FOR j = 1 TO n
        IF (MID$(A$, j, 1) = CHR$(i)) THEN
            PRINT CHR$(i), count
            j = n
        END IF

    NEXT

    count = 0
NEXT
4

3 回答 3

2

有两种方法可以回答这个问题。

第一种是简单的行程编码方案，其中输入cabc结果为c1 a1 b1 c1. 这样做的好处是，您通常可以以相当低的内存要求立即输出内容来启动：

input-string := Get-Input

(* nil is the representation of no characters here. *)
last-char := nil
count := 0

For Each (char c) In input-string
    If c = last-char Then
        count := count + 1
    Else
        If last-char = nil Then
            count := 1
            last-char := c
        Else
            Display last-char, count
            count := 1
            last-char := c
        End If
    End If
Loop
If count != 0 Then
    Display last-char, count
End If

我设想的另一个解决方案将保留顺序并确定字符串中所有唯一字母的计数，c2 a1 b1产生cabc. 这个解决方案有点复杂，需要更多的内存和更多的执行时间，但由于缺少重复的字母，它会导致更紧凑的输出：

input-string := Get-Input

(* 26 is the number of letters a-z. *)
counts := Create-Array 26
order-string := ""

For Each (char c) In input-string
    i := Locate-Char order-string, c
    If i = 0 Then
        order-string := order-string + c
        counts [Length order-string] := 1
    Else
        counts [i] := counts [i] + 1
    End If
Loop

For i := 1 To (Length order-string)
    Display (Char-At order-string, i), counts [i]
Loop

第一个应该可以直接转换为 QBASIC，但您可能需要使用帮助文件来了解DIM关键字以及如何使用它来创建数组。该算法假设数组从 1 开始，而不是 0。

于 2017-05-03T07:25:38.117 回答
2

好的，这是应该在 Qbasic 中工作的代码。

DEFINT A-Z
DIM char(1 TO 255) AS STRING * 1
DIM outp(1 TO 255) AS STRING
INPUT "Type your string: ", inp$

'**** Comment out the following line if you want upper and lower cases
'**** treated separately:
inp$ = LCASE$(inp$)

FOR i = 1 TO LEN(inp$)
  char(i) = MID$(inp$, i, 1)
NEXT i

l = 0
FOR i = 1 TO LEN(inp$)
  k = 1
  FOR j = 1 TO i - 1
    IF char(j) = char(i) THEN GOTO skplet
  NEXT j
  l = l + 1
  FOR j = i + 1 TO LEN(inp$)
    IF char(j) = char(i) THEN k = k + 1
  NEXT j
  outp(l) = char(i) + LTRIM$(STR$(k))
skplet:
NEXT i

FOR i = 1 TO l
  PRINT outp(i);
NEXT i

请注意，正如评论中所述，大写和小写将被视为与此答案相同的字母。如果您希望将它们分开处理，只需删除或注释掉该inp$ = LCASE$(inp$) 行。希望这可以帮助！

于 2017-05-03T17:18:51.240 回答
1

建议 2 个数组，每个 26 个（如果只考虑字母）该数组

size_t counts[26] = {0};

然后是第二个数组`

char order[26] = {'\0'};

然后对于输入字符串中的每个字母。 

if( isalpha( str[i]) ) 
{ 
    letter = tolower( str[i];
    counts[ letter - 'a' ]++;

order如果匹配发现什么都不做， 则循环遍历，否则将 '\0' 替换为字母

打印输出将通过 order[] 循环，直到遇到 '\0' 或检查所有元素。

在每个订单 [] != '\0' 处：

putc( order[ element ]);
printf( "%d", counts[ element-'\a' ] );
于 2017-05-02T07:33:23.360 回答