turbo pascal一些编程

来源：百度知道 编辑：UC知道 时间：2024/06/05 18:06:18
帮我解一下
1.用字符输出一个平行四边形
2.a，b，c分别等于1.12.123把他们按左对齐向右对齐大印
3读一个大写pascal利用函数输出大写PASCAL
今晚就要

帮你把
1.
var
i,j:integer;
begin
for i:=1 to 4 do begin
for j:=1 to i do
write(' ');
for j:=1 to 5 do
write('*');
end;
end.
{5*4的 可以自己看情况改}
2.
var
a,b,c:string;
begin
a:='1';
b:='12';
c:='123';
writeln(a);
writeln(b);
writeln(c);
a:=' '+a;
b:=' '+b;
writeln(a);
writeln(b);
writeln(c);
end.
3.
var
s:string;
begin
readln(s);{比如你输入‘pascal’}
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
writeln(s);
end.

program xx1;
var
i1,j1,i,j:integer;
begin
read(i1,j1);
for i:=1 to i1 do
begin
for j:=1 to j1 do
write('*');
writeln;
end;
end.

program xx2;
var
a,b,c:string;
a1,b1,c1:integer;
begi