关于Free Pascal 编程问题

2025-02-21 12:26:52

推荐回答（6个）

回答1：

显然你是在学循环，想当年我学循环时也为此煞费脑汁。
这么说吧，做这些画星星的题目关键是找到星星数、空格数与你所使用的循环变量之间的函数关系（或者说是大小关系）。
大体思路都是：
readln(n);
for i:=1 to n do
begin
……
for j:=1 to … do ……
end;
关键是如何弄出“……”部分。
如：
1）图应该是如下：
*
**
***
****
每行的星星数与行号数相同所以就是
for i:=1 to n do
begin
for j:=1 to i do write('*');
writeln;{每做完一行要换行}
end;
{核心内容就是这些，自己加个头尾就行了}
2）画出来应该是这样：
****
***
**
*
显然，这次随着行号递增，星星数递减。那么就试试看，行号加星星数有什么关系（如上图就是：行号+星星数=n+1）所以：
for i:=1 to n do
begin
for j:=1 to (n+1)-i do write('*');
writeln;
end;
{注意：j表示的是每行要画星星的次数，所以用 to 或 downto 没有关系}
同理后面的也是这么分析
3）应该是：
####*
###***
##*****
#*******
可见，这次在前面的基础上要加上一个输出空格的语句，不难发现空格数与2）的星星数是相同的，所以直接把上面的程序中write('*')改成write(' ')。
然后考虑星星数，因为行数 i 每加一，星星数就加了 2 ，所以 for j:=1 to 2*i-1 {就是第i行画2*i-1个星星}
程序实现：
for i:=1 to n do
begin
for j:=1 to n+1-i do write(' ');
for j:=1 to 2*i-1 do wirte('*');
writeln;
end;
4）就是结合2）和3）的分析方法。
程序实现：
for i:=1 to n do
begin
for j:=1 to i do write(' ');
for j:=1 to 2*(n-i)+1 dowrite('*');
writeln;
end;
5)如下图：
####*
###*#*
##*###*
#*******
其实这个跟3）差不了多少，区别就是 2*i-1 个星星中中间的换成了空格。
所以，完全可以把3）中for j:=1 to 2*i-1 do wirte('*');改成
write('*');for j:=1 to 2*i-3 do write(' ');write('*');再分别单独处理首行末行。
程序代码：
for j:=1 to n do write(' ');
write('*');
for i:=2 to n-1 do
begin
for j:=1 to n+1-i do write(' ');
write('*');
for j:=1 to 2*i-3 do write(' ');
writeln('*');{把writeln结合进来了}
end;
write(' ');
for j:=1 to 2*n-1 do write('*');
6）只要根据前面的思路把5）倒过来就好了，这个自己想想吧，如果想不到，就用 hi baidu 问我吧。
这种题主要就是要培养自己对程序整体的把握能力，知道自己每一步要做什么，程序的每一个变量的“现实”意义是什么。别忘了循环做的是一系列有共同规律或类似规律的事情，所以无规律或规律不明显的地方不要强行用一个循环做，可以像5）一样分开操作。
补充：为了理解方便，程序通通没有优化，特别是5），你可以自己理解后编出更简洁的程序，用一些规律代替write(' ');
受百度格式的影响上面的图都有"#"代替空格
祝你成功！

回答2：

循环问题。楼上讲得很详细，对楼上的进行补充一下循环语句的基本格式，这对初学者的用处也是不可忽视，得从基本的开始，先掌握理论，进行实战，事半功倍。
for <循环变量>:=<初始值>to<终值> do
循环体；
接着就是了解方法，楼上已经把解题的方法讲的很详细了，综合的应用就要看楼主自己的啦，多练习两次，相信不难掌握循环语句。
告戒：语言是招式，算法是内功，要想成为变成界的高手，算法内功要一起学。
祝：楼主早日成为“高手”。

回答3：

代码如下：
problemN 表是你问的第N个问题。
循环很简单，很好学。
var
m,n:longint;

procedure problem1//第1个问题，下同;
var i,j:longint;
begin
for i:=10 downto 0 do //三角形的层数
begin
for j:=1 to i do write(' ');//空格数，递减
for j:=1 to 10-i do write('*');//三角形，递增
writeln;//每次写完一行要回车
end;
end;

procedure problem2; //（problem1的逆运算）
var i,j:longint;
begin
for i:=0 to 10 do
begin
for j:=1 to i do write(' ');
for j:=1 to 10-i do write('*');
writeln;
end;
end;

procedure problem3;
var i,j:longint;
begin
for i:=1 to 5 do
begin
for j:=6-i downto 1 do write(' ');//就是两个直角三角形在一起
for j:=1 to i do write('*');
for j:=1 to i-1 do write('*');{注意，第一层只有一个‘*’，所
以是i-1，以后每次递减。}
writeln;//回车。
end;
end;

procedure problem4;//仔细观察，也是上一个的逆运算，不多说。
var i,j:longint;
begin
for i:=5 downto 1 do
begin
for j:=6-i downto 1 do write(' ');
for j:=1 to i do write('*');
for j:=1 to i-1 do write('*');
writeln;
end;
end;

procedure problem5;
var i,j:longint;
begin
for i:=1 to 4 do //左边空格数，右边不用写的
begin
for j:=5-i downto 1 do write(' ');//同P3，空格递减
write('*');//写一个‘*’
for j:=1 to i-1 do write(' ');//中间是空格，同p3的‘*’，内容不同
for j:=1 to i-2 do write(' ');//右面的空格
if i<>1 then writeln('*') else writeln;//补回一个‘*’，但注意第一行的不要补回
end;
for i:=1 to 9 do write('*');//最后一行全是‘*’
writeln;
end;

procedure problem6;//上一题的逆运算，自己看一下吧。
var i,j:longint;
begin
for i:=1 to 9 do write('*');
writeln;
for i:=4 downto 1 do
begin
for j:=5-i downto 1 do write(' ');
write('*');
for j:=1 to i-1 do write(' ');
for j:=1 to i-2 do write(' ');
if i<>1 then writeln('*') else writeln;
end;
end;

[begin
writeln('Case 1:');
problem1;
writeln;
writeln('Case 2:');
problem2;
writeln;
writeln('Case 3:');
problem3;
writeln;
writeln('Case 4:');
problem4;
writeln;
writeln('Case 5:');
problem5;
writeln;
writeln('Case 6:');
problem6;
writeln;
end.]

[]里面的是枝干。
就这样。图案很好看。你肯定很快学会的，加油！

回答4：

var m,n:longint;
procedure problem1//第1个问题
var i,j:longint;
begin
for i:=10 downto 0 do
begin
for j:=1 to i do write(' ');//空格数，递减
for j:=1 to 10-i do write('*');//三角形，递增
writeln;
end;
end;

回答5：

有语言篇吗？？这种题目很基础的

回答6：

看书啊,书上有例题

最新问答

英语与语文哪个容易一些？

融资买入的股票，分红是现金到个人账号，还是直接还款了，还是到券商账号

药妆SANA的护肤品怎么样

仙人掌如何净水的？

血糖高黑眼圈怎么回事

(Happy birthday)翻译成中文是什么意思？

谜底是服务行业的成语

妇产科医生论文题目

在移动营业厅买iPhone6可信吗？4900块，为什么比官网便宜啊，质量怎么样

求三月微草的《谁许我一世安稳》全文加番外TXT完整版