主页 / 问题 / 1121562
Accepted
zacc
Asked:2020-05-07 09:32:42 +0800 CST2020-05-07 09:32:42 +0800 CST

请帮我纠正流程图中的错误

  • 772
```   
program program2;
var a,b,c: integer;
begin
WriteLn('Программа для нахождения всех делителей чисел');
WriteLn('Введите от какого числа');
Readln(a);
WriteLn('Введите до какого числа');
REadln(b); 
while a<=b do begin
write (a,':');
for c := 2 to a-1 do begin
If a mod c = 0 then 
Write(c,' ');
end;
Writeln;
a := a+1;
end;
end.     
```

框图

pascal

1 个回答

  1. Best Answer

    为了更容易查找错误，理解编程算法，代码必须始终格式化！

    program program2;

var
  a, b, c: integer;
begin
  writeln('Программа для нахождения всех делителей чисел');

  writeln('Введите от какого числа');
  readln(a);

  writeln('Введите до какого числа');
  readln(b);

  while a <= b do
  begin
    write(a, ':');

    for c := 2 to a - 1 do
      if a mod c = 0 then
        write(c, ' ');

    writeln;

    a := a + 1;
  end;
end.

    之后，就更容易理解流程图出了什么问题。例如，很明显，它while包含的不是框图中的一条指令，而是多条指令，包括一个循环。循环中有一个条件，依此类推。

    祝你好运！

    • 0

相关问题