用pascal打印“*”字三角形. 打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 时

来源：学生作业帮助网 编辑：作业帮 时间：2024/12/02 03:01:26
用pascal打印“*”字三角形. 打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 时
xTN@R%Bh }j'nڦ(% %,b   < @TުZfsΜ;W/Вaϒyvz$.jy~3AE-ϸkn/l\IH8gd{n ]8I&7E\he<1 P?!r٪FM1u0 4xm2x[ʶ^Sؔjt[X hAcJEP2vE=e tIƒܮ;ۢM-t Tzi֪׋/q˴W|5P{:e5l32~`;1NΒ92]pNJS)C(&oOwj6^FՐLcul+GNX+ة15XwWRccZ}d}ef)>re/'UTdodzq= &

用pascal打印“*”字三角形. 打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 时
用pascal打印“*”字三角形.
 
       打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 时
 

 

用pascal打印“*”字三角形. 打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 时
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打印“*”字三角形. 打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 时 用pascal打印“*”字三角形. 打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9）,根据N的值,打印输出对应的“*”字三角形,例如： N = 4 用VB按金字塔形状打印杨辉三角形要求打印前8行, pascal打印一个星号右三角形.Description 打印一个星号右三角形.Input 一个整数nOutput 输出图形Sample Input 3Sample Output * *****Source 在线等答案!@! 用pascal语句打印下列图形:1 121 12321 1234321 12321 121 1 用PASCAL打印下列图形aa ba b c....a b c .y z free pascal语言.打印下列图形（共4个）.用循环.88888888881121123211234321#空空空空@#空空@@###@@@ 教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印YES',否则中打印NO用turbo pascal格式回答 PASCAL 打印 1 121 12321 1234321 123454321 12345654321 pascal打印数字图形读入一个整数n（n Pascal 制作三角形结果：1222333334444444555555555 用vb.net2008打印杨辉三角形(打印10行),要求如图所示 用C#打印出杨辉三角形,打印出10行?是输出,不好意思 打印下列图形!用pascal做!6、 1 2 4 7 11 16 223 5 8 12 17 236 9 13 18 2410 14 19 2515 20 2621 2728用pascal打印出来!别只给我个打印!要做! 输入三角形的三个边,判断它是何类型的三角形.用pascal语言 用java中的（for循环）打印如下三角形图形： ***** **** *** ** * 利用队列打印出n行杨辉三角形.用C语言 用for循环打印倒三角形及菱形