作业帮 > 综合 > 作业

用pascal打印“*”字三角形.

来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/05/14 16:36:43
用pascal打印“*”字三角形.
 
       打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 时
 

 
用pascal打印“*”字三角形.
program hello;
var a,b,c,d,e:integer;
begin
writeln('please input a number between 1 and 9');
readln(a);
for b:= 1 to a do
begin
for e:=1 to a-b do
begin
write(' ');
end;
for c:=1 to 2*b-1 do
begin
write('*');
end;
write(' ');
for d:=1 to 2*a+1-2*b do
begin
write('*');
end;
writeln;
end;
readln;
end.
我是用的TP编译的,你可以放到txt文档里,再把拓展名改为pas用.要不就用free pascal直接从windows里面复制过去.我都试过了,应该是没有问题的.
PS.pascal语言有点老了,建议该学Cpp吧.
用pascal打印“*”字三角形. pascal打印一个星号右三角形. 用PASCAL打印下列图形 打印下列图形!用pascal做! 用PASCAL打印下列图形（急!) 打印下列图形成 用PASCAL做 pascal打印下列图形 pascal打印数字图形 打印如下图形 pascal .用FREE PASCAL 编程序打印出下列平行四边形图案 pascal求打印回文数 用C#打印出杨辉三角形,打印出10行?