作业帮 > 综合 > 作业

用TURBO PASCAL 输出如下图形

来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/11 23:19:27
用TURBO PASCAL 输出如下图形
请问下列图形输出应该怎么写:
1、 *
+++

+++
*
2、
a
bbb
ccccc
ddddddd
eeeeeeeee
fffffffffff
谢谢了
谢谢,是需要用循环实现的,麻烦帮我看看下面2道题,
1、找出1,2,3,4,5里3个数的组合,如1,2,3算一组,但是1,3,2或者3,2,1只能算同一组,输出要求,每行一组数,中间空一格,最后输出总的组数.
2、求出两位数中所有的绝对素数,绝对素数：绝对素数是指本身是素数,其逆序数也是素数的数.例如：31与13是绝对素数.
用TURBO PASCAL 输出如下图形
第一道题：
Program Bd1;
Var c:Integer; d:Integer; e:Integer;
Begin
For c := 1 to 4 Do Begin
For d := 1 to 4-c Do Write(' ');
For e := 1 to 2*c-1 Do If Odd(c) Then Write('*') Else Write('+');
WriteLn; End;
For c := 3 downto 1 Do Begin
For d := 0 to 3-c Do Write(' ');
For e := 1 to 2*c-1 Do If Odd(c) Then Write('*') Else Write('+');
WriteLn; End;
ReadLn;
End.
第二道题：
Program Bd2;
Var a,b,c,d:Integer;
Begin
For a := 1 to 6 do Begin
For b := 1 to 6-a do Write(' ');
For d := 1 to 2*a-1 do Write(Chr(a+96));
WriteLn; End;
ReadLn;
End.
第三道题：
Program Bd3;
Var a,b,c,d:Integer;
Begin
d := 0;
For a := 1 to 5 Do
For b := a+1 to 5 Do
For c := b+1 to 5 Do Begin
WriteLn(a,' ',b,' ',c);
d := d+1; End; WriteLn(d);
ReadLn;
End.
第四道题：
Program Bd4;
Var a,b,c,d:Integer; f,g:Boolean;
Begin
For a := 10 To 99 Do Begin
f := True;
For b := 2 To Trunc(Sqrt(a)) Do
If a Mod b = 0 Then Begin f := False; Break; End;
If f Then Begin c := a Div 10 + (a Mod 10)*10;
g := True;
For d := 2 To Trunc(Sqrt(c)) Do
If c Mod d = 0 Then Begin g := False; Break; End;
If g Then WriteLn(a); End; End;
ReadLn;
End.
好了,四道题全部做完.
我这里都可以运行,你可以再试一下!
这些题都是循环语句的练习题吧?
如果可以用子程序会更简单点,但不知道你会不,所以没用!
但愿可以解决你的问题.
望采纳!
用TURBO PASCAL 输出如下图形 打印如下图形 pascal Pascal题（用Turbo Pascal）数码排序 Turbo Pascal编程题目 Turbo Pascal编程问题 turbo pascal 题目 Turbo Pascal题目~ Turbo Pascal习题： 急求TURBO PASCAL 用循环语句编程,输出如下图形 * *** *** * 怎么用C语言输出如下图形 用循环语句输出如下图形.* * * * * * * * * * * * * * * *