使用 Turbo Pascal 7 0 编程程序。 从大到小输出三个数字 a、b 和 c

我自己写的。

使用 goto 语句不好！ 销毁计划的结构！！

procedure prime;

var i:integer;

function pr(inf:integer):boolean;

var tempb:boolean;

begintempb:=true;

for i:=2 to sqrt(inf) doif inf mod i=0 tempb=false;

pr:=tempb;

end;begin

for i:=1 to 100 do

if pr(i) then write(i:4);

end.

你怎么看这个......

var i,j,k:longint;

begink:=1;

for i:=1 to 5 do beginfor i:=1 to i do beginwrite(k,' ');

inc(k);

end;writeln;

end;end.

var a:array[1..5,1..5]of longint;

i,j,k,h,l:longint;

beginh:=1;l:=1;k:=3;

for i:=1 to 15 do begina[h,l]:=i;

if h=5 then begin

h:=h-k;

dec(k);

inc(l);

end else begin

if h<>5 then inc(h);

end;end;

for i:=1 to 5 do beginfor j:=1 to 5 do beginif a[i,j]<>0 then write(a[i,j],' ');

end;writeln;

end;end.

var i,j,k:longint;

begink:=1;

for i:=5 downto 1 do beginfor i:=1 to i do beginwrite(k,' ');

inc(k);

end;writeln;

end;end.

var i,j,k:longint;

begink:=1;

for i:=1 to 5 do beginfor i:=1 to i do beginif k<>15 then write(k,' ');

inc(k);

end;writeln;

end;end.

第五个问题懒得玩。

做你自己的研究。

总有一种模式。

如果法律与输出顺序不匹配。

让我们首先将其存储在二维数组中。

然后输出。

这类题目是最基本的编程，当然，从顺序语句到循环语句可能都是一层纸门槛，我先给你写一道题，剩下的就完全差不多了，希望你能得出推论，如果你有问题，那就联系：

vari,j,k:integer;

begink:=1;

for i:=1 to 5

beginfor j:=1 to i do begin write(k,' '); k:=k+1; end;

writeln;

end;end.

楼上是对的，这些是基本的。 这里有两个答案，其余的将由您自己讨论。

i,j,k:integer;

begink:=1;

for i:=1 to 5 do

beginfor j:=1 to i do

beginwrite(k,' ');

k:=k+1;

end;writeln;

end;end.

i,j,k:integer;

begink:=1;

for i:=5 downto 1 do

beginfor j:=1 to i do

beginwrite(k,' ');

k:=k+1;

end;writeln;

end;end.

4.？？我想我犯了一个错误。

var i:integer;

function pls(x:integer):boolean;

var n,i,s:integer;

begini:=2; pls:=true;

repeat

while x mod i>0 do inc(i);

s:=0;while x mod i=0 do begin inc(s); x:=x div i; end;

if s=1 then begin pls:=false; exit; end;

inc(i);

until x=1;

if s>1 then pls:=true;

end;begin

for i:=4 to 9999 do

if (pls(i))and (pls(i+1)) then writeln(i,' ',i+1);

end.10,000 人中有 4 对双胞胎

此程序需要调用 DOS 库。

这是将整数 12345 写入 C： FPC 并自动打开它的演示

usesdos;

constfilename='c:\fpc\';

beginassign(output,filename);

rewrite(output);

writeln(12345);

close(output);

exec(getenv('systemroot')+'\system32\',filename);

end.该程序的原理是执行Windows自带的记事本程序，打开C：FPC。

该程序在我的计算机上创建 C：FPC 并自动打开它。 可能是您在错误的路径中找不到文件。 或者你可以尝试免费的 pascal。

当然，什么样的数据应该写到什么格式的文件中？

我给大家写了一个简单的文件操作，其实只有几种文件操作，你可以根据自己的需要编写一个功能强大的程序。

#include ""

void main()

while (c != eof);重复直到 eof（文件末尾）。

fprintf(fp,"%s",*funny);

fclose(funny);

fclose(printer);

fclose(fp);关闭打印机}

我曾经听说 Pascal 可以写关于 GBA 游戏的文章。

目前，Pascal 的使用主要用于比赛。 特别是在小学和中学比赛中。

Pascal 在教学中经常被用作一种优秀且易于理解的语言，虽然已经逐渐被 C 取代，但它可以解决一些小问题，并且 Turbo 还可以画图和做一些小游戏（例如：西洋双陆棋等，但很麻烦）可以去各大论坛咨询应该有很多懂 P 的人。

一种相对容易学习的语言写作环境，非图形化。 目前主要用于信息学中的奥林匹克竞赛。 你也可以用它来编写一些简单的公式计算器，比如可以分解一个数的因数、确定素数等的简单运算。

此外，熟悉简单的环境有利于后期的高级程序编写。

free pascal、delphi、super pascal.

这取决于所使用的编译器。