为什么编写的 PASCAL 程序只能在 CDM 下运行 续 4

有了循环，你仍然是一个初学者。

定义字符变量 z：char

在程序开头添加重复

末日之前加上在前面。

writeln('repeat(y/n)--readln(z);

until (z='n') or (z='n');

这样，每次程序即将结束的时候，它都会询问你是否要重复它，只有输入'n'或'n'否则再次运行。 此时，可以删除这些读物。

但是，应该注意的是，在这种情况下，程序的变量一定不能忘记分配初始值。 初始赋值意味着所有变量最初都是在程序开始时（重复后）赋值的（例如，a：=0; b:

0;等）。因为一个操作改变了一个变量的值（例如，a 从 0 变为 2），并且循环不会结束程序，也就是说，这个 a 仍然等于 2，而不是初始 0。 因此，有必要分配一个初始值，以防止程序受到先前操作的影响而出错。

PS：无论在什么情况下，分配一个初始值总是一个好习惯，以防止意外错误。

关于FP乱码字符的解析：

右键单击 freepascal 快捷方式（如果没有，请在 FPC 中单击鼠标右键创建一个），选择“属性”，将“选项”选项卡中的“当前**页面”（可能是“语言”）更改为“437 （OEM-US）”，OK“，然后使用此快捷方式运行它。

Turbo Pascal 本来应该不错，但它不适合当前的 Windows 时代，你应该使用它的升级产品 Delphi。

Free Pascal 也不错，但我不习惯，我还是更喜欢 Delphi。

用免费帕斯卡比用涡轮帕斯卡好 你用的教科书和我用的那本一模一样 是不是有绿色封面的 呵呵，别的都不用学，直接变成FP（好缘分饿。。。

由于程序已结束，窗口将自动关闭。

它应该在源程序的末尾，end添加一个 readln 以让程序在读取回车后完成。

然后重新运行以生成新的 exe 文件，仅此而已。

如果一个不起作用，请添加两个 readln

问题 1. var sum,i:integer;

beginfor i:=1 to 298 doif i mod 3=1 then sum:=sum+i;

writeln(sum);

end.问题 2.

var a:array[1..10]of integer;

i,j,min,max,sum:integer;

beginmin:=maxint;

max:=-maxint;

for i:=1 to 10 do

beginread(a[i]);

if a[i]>max then max:=a[i];

if a[i]end;for i:=1 to 10 dosum:=sum+a[i];

sum:=sum-min-max;

writeln(sum/8:0:2);

end.第三个问题是关于忠心。

var i,j,k:integer;

beginfor i:=1 to 100 dofor j:=1 to 50 do

for k:=1 to 20 do

if i+j*2+k*5=100 then writeln('one fen:',i,' er fen:',j,' wu fen:',k);

end.玩檀元好累了！！ 多年的泡桐。

第一个问题樱桃纤维，带有重复循环：

program abc;

var sum,i:integer;

beginsum:=0;i:=1;

repeat

sum:=sum+i;

i:=i+3;

until i>298;

writeln('Bridge Pure 1 + 4 + 7 + ...298=',sum);

readln;

end.您还可以使用 while 循环：

program abc;

var i,sum:integer;

begini:=1;sum:=0;

while i<=298 do

beginsum:=sum+i;

i:=i+3;

end;writeln('1+4+7+..298=',sum);

readln;

end.或者递归：

program abc;

function sum(i:integer):integer;

beginif i=298 then sum:=298 else sum:=i+sum(i+3);

end;begin

writeln('1+4+7+..298=',sum(1));

readln;

end.稍加修改，您就可以用 Min Song 打印出完整的方程式：

program abc;

function sum(i:integer):integer;

begincase i of

1:write(i);

298:write('+i,'=

else write('+i);

end;if i>=298 then sum:=298 else sum:=sum(i+3)+i;

end;begin

writeln(sum(1));

readln;

end.

写完后直接按F3，在窗口中写下名称，然后确认保存好了，你的程序有一个非常致命的错误，帮你改一下：

program ..你不需要写它）;

vara,b,c:real;

beginwriteln((a+b+c)/3);

writeln(a*b*c);

end.你可以直接复制它，然后在 pascal 上按 alt 添加 enter 来减少它，右键点击下面任务栏上的 pascal 程序，然后点击它，里面有一个副本。

我不知道您使用的是哪个版本的 pascal

跟。 Pas 文件是 pascal** 文件，可以使用记事本、写字板等文本工具打开。

如果你需要编写一个编译后，你应该运行你的IDE（我使用Free Pascal）。

在文件字段中，有打开，然后选择要打开的文件。 PAS 文件在线。

而。 exe 文件是可执行应用程序，每次保存程序、成功编译并运行程序时，都会生成其中一个文件。

双击选择“记事本”，大功告成！ ~

exe是一个可以直接运行的编译程序，o是像编译信息一样的文件不用管它，bak是一个备份文件，也可以用记事本打开它！

只需右键单击并选择它，或双击即可使用记事本或写字板（有时需要）打开它！

编译器就是你写的那个，常见的有 turbo pascal、free pascal 和 delphi，以 turbo 和 free 为例，打开源码的 sui jin lu **按 F9，就可以在 **saved 目录下生成 exe 文件。