主页 / 问题 / 1090947
Accepted
EvilBDSM
Asked:2020-03-05 13:24:15 +0000 UTC2020-03-05 13:24:15 +0000 UTC

如何形成一个以逗号和点号结尾的枚举？

  • 772

我需要在输出的末尾，在最后一个字符之后，在末尾写一个点。例如：

现在得到我的输出是：

а, а, у, ю,

我想要这样：

а, а, у, ю.

我怎样才能做到这一点？

编码：

{uses crt;}
var
  b,s: string;
  q,i: integer;
begin
  b := ('аеёиоуыэюя');
  writeln('введите текст с точкой в конце');
  read(s);
  for i := 1 to 10 do begin
    q := 0;
    repeat
      q := q+1;
      if s[q] = b[i] then
        write(b[i], ', ');
    until s[q] = ('.');
  end;
end.
pascal

2 个回答

  1. Best Answer

    无需赘述。first - 表示这是要输出的第一个字符，之前不需要逗号。嗯，重点已经到了最后

    {uses crt;}
var b,s:string;
var q,i:integer;
var first:boolean;
begin
b:=('аеёиоуыэюя');
writeln('введите текст с точкой в конце');
read(s);
for i:=1 to 10 do begin
q:=0;
first:=true;
repeat
q:=q+1;
if s[q]=b[i] then begin
 if not first then write(', ');
 write(b[i]);
 first:=false;
end;
until s[q]=('.');
end;
write('.');
end.
    • 1

  2. 检查：（但我不喜欢你的 for 循环）

     {uses crt;}
    var b,s:string;
    var q,i:integer;
    begin
  b := ('аеёиоуыэюя');
 writeln('введите текст с точкой в конце');
read(s);

for i:=1 to 10 do 
begin
q:=0;
repeat
q:=q+1;
if i<10 then
       begin
           if s[q]=b[i] then
               write(b[i], ', ');
       end
   else 
       begin
          if s[q]=b[i] then 
             write(b[i], '. ');
   end
   until s[q]=('.');
end;
end.
    • 0

相关问题