pascal [模拟][二维数组]三角设计
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/23 01:18:03
pascal [模拟][二维数组]三角设计
题目描述
下边的三角形是由某个确定的算法生成的,观察这一算法并用它写一个程序,对于任意从键盘输入的1到20的自然数,输出相应的三角形。你的程序必须完整 地计算结果,注意在这一算法中数字'0'紧跟着数字'9'。
输入
输入数据仅有一行包含一个正整数。
输出
一个象下例一样的数字三角形,数字三角形中没有空格字符。
样例输入
7
样例输出
1
232
34543
4567654
567898765
67890109876
7890123210987
题目描述
下边的三角形是由某个确定的算法生成的,观察这一算法并用它写一个程序,对于任意从键盘输入的1到20的自然数,输出相应的三角形。你的程序必须完整 地计算结果,注意在这一算法中数字'0'紧跟着数字'9'。
输入
输入数据仅有一行包含一个正整数。
输出
一个象下例一样的数字三角形,数字三角形中没有空格字符。
样例输入
7
样例输出
1
232
34543
4567654
567898765
67890109876
7890123210987
var
n,i,j,k,l:longint;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
inc(k);
if k>9 then k:=0;
l:=k;
for j:=1 to i-1 do
begin
write(l);
inc(l);
if l>9 then l:=0;
end;
for j:=1 to i do
begin
if j<i then write(l) else writeln(l);
dec(l);
if l<0 then l:=9;
end;
end;
readln;
end.其实可以不用二维数组
n,i,j,k,l:longint;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
inc(k);
if k>9 then k:=0;
l:=k;
for j:=1 to i-1 do
begin
write(l);
inc(l);
if l>9 then l:=0;
end;
for j:=1 to i do
begin
if j<i then write(l) else writeln(l);
dec(l);
if l<0 then l:=9;
end;
end;
readln;
end.其实可以不用二维数组
pascal问题(与二维数组有关)
pascal或JAVA语言 将二维数组行和列的元素互换后输出
如何把一个二维数组转化为上三角矩阵和下三角矩阵
程序定义了 4× 4 的二维数组,请编写程序,给二维数组赋值,并使数组下半三角元素中的值乘以n .
定义一个N行N列的二维整型数组,使数组左下三角元素中的值乘以3
通过二维数组实现杨辉三角的前10行并输出.杨辉三角形式如下:
矩阵,二维数组
matlab三维数组如何转成二维数组?
『数据结构』 二维数组
c++ 函数和二维数组
编程实现以下功能:打印4行4列的二维数组,其上三角元素均为0,其下三角元素均为1,并将数组元素以4行4列
设计一个3×3的二维数组,同时使用一个指针指向该数组的首单元,试观察在指针的移动过程中,