PASCAL语言小程序练习
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
writeln('NiShuaYa?'); writeln('WoBuHeShui!'); end. 请编写程序输出两句话： "HaoHaoBianCheng" "TianTianGaoXing"
3.请输出一个三角形 请参考如下程序 program p3(input,output); begin
writeln(' 1'); writeln(' 2 3'); writeln('4 5 6'); end. 请输出一个三角形
readln(a); writeln(a); end; 请读入一个数，把这个数输出两次，一行一个。
10.读入一个数，把这个数输出 请参考如下程序 program p10(input,output); var a:longint; begin
readln(a); writeln(a); end; 请读入一个数，把这个数输出两次，一行输出，中间用空格隔开。
write(i,' '); if i mod 10 = 0 then
writeln; end; end. 请编写如下程序 输出 1 到 100 的数字（一行 5 个输出，中间有一个空格）： 12345 6 7 8 9 10 . . . 96 97 98 99 100
9.读入一个数，把这个数输出 请参考如下程序 program p9(input,output); var a:longint; begin
7.输出 1 到 100 这 100 个数，中间有一个空格（自然换行）。 请参考第 5 题的程序 1 2 3 ... 100
8.输出 1 到 100 这 100 个数，10 个一换行。
请参考如下程序 program p8(input,output); var i:integer; begin
for i:=1 to 100 do begin
6.在一行输出 15 到 5 这 16 个数，中间有一个空格。 请参考如下程序 program p6(input,output); var i:integer; begin
for i:=10 downto 1 do write(i,' '); end. 请编写如下程序 输出 15 到 5 的数字（一行输出，中间有一个空格）： 15 14 13 ... 5
6 7 . . . 15
5.在一行输出 5 到 15 这 11 个数，中间有一个空格。 请参考如下程序 program p5(input,output); var i:integer; begin
for i:=1 to 10 do write(i,' '); end. 请编写如下程序 输出 5 到 15 的数字（一行输出，中间有一个空格）： 5 6 7 . . . 15
1 23 456 7 8 9 10
4.输出 5 到 15 这 16 个数，一行一个。 请参考如下程序 program p4(input,output); var i:integer; begin
for i:=1 to 10 do writeln(i); end. 请编写如下程序 输出 5 到 15 的数字（一行一个）： 5
1.输出一句Baidu Nhomakorabea 请参考如下程序： program p1(input,output); begin
writeln('WoHuiLaiLe!'); end. 请编写程序输出一句话："HuiLaiYeMeiYong!'
2.输出两句话 请参考如下程序 program p2(input,output); begin
3.请输出一个三角形 请参考如下程序 program p3(input,output); begin
writeln(' 1'); writeln(' 2 3'); writeln('4 5 6'); end. 请输出一个三角形
readln(a); writeln(a); end; 请读入一个数，把这个数输出两次，一行一个。
10.读入一个数，把这个数输出 请参考如下程序 program p10(input,output); var a:longint; begin
readln(a); writeln(a); end; 请读入一个数，把这个数输出两次，一行输出，中间用空格隔开。
write(i,' '); if i mod 10 = 0 then
writeln; end; end. 请编写如下程序 输出 1 到 100 的数字（一行 5 个输出，中间有一个空格）： 12345 6 7 8 9 10 . . . 96 97 98 99 100
9.读入一个数，把这个数输出 请参考如下程序 program p9(input,output); var a:longint; begin
7.输出 1 到 100 这 100 个数，中间有一个空格（自然换行）。 请参考第 5 题的程序 1 2 3 ... 100
8.输出 1 到 100 这 100 个数，10 个一换行。
请参考如下程序 program p8(input,output); var i:integer; begin
for i:=1 to 100 do begin
6.在一行输出 15 到 5 这 16 个数，中间有一个空格。 请参考如下程序 program p6(input,output); var i:integer; begin
for i:=10 downto 1 do write(i,' '); end. 请编写如下程序 输出 15 到 5 的数字（一行输出，中间有一个空格）： 15 14 13 ... 5
6 7 . . . 15
5.在一行输出 5 到 15 这 11 个数，中间有一个空格。 请参考如下程序 program p5(input,output); var i:integer; begin
for i:=1 to 10 do write(i,' '); end. 请编写如下程序 输出 5 到 15 的数字（一行输出，中间有一个空格）： 5 6 7 . . . 15
1 23 456 7 8 9 10
4.输出 5 到 15 这 16 个数，一行一个。 请参考如下程序 program p4(input,output); var i:integer; begin
for i:=1 to 10 do writeln(i); end. 请编写如下程序 输出 5 到 15 的数字（一行一个）： 5
1.输出一句Baidu Nhomakorabea 请参考如下程序： program p1(input,output); begin
writeln('WoHuiLaiLe!'); end. 请编写程序输出一句话："HuiLaiYeMeiYong!'
2.输出两句话 请参考如下程序 program p2(input,output); begin