برنامه زیر مثلث عددی به صورت شکل زیر است:
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
این برنامه با پاسکال نوشته شده...
برای مشاهده سورس برنامه به ادامه مطلب مراجعه فرمایید.
برنامه زیر مثلث عددی به صورت شکل زیر است:
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
این برنامه با پاسکال نوشته شده...
program mosallas;
uses crt;
var
i,j,k,f,g:Integer;
BEGIN
textcolor(7);
textbackground(1);
clrscr;
j:=8;
for i:=1 to 5 do
begin
for g:=1 to j do
write(' ');
for k:=1 to i do
write(k,' ');
for f:=( i-1) downto 1 do
write(f,' ');
j:=j-2;
writeln;
end;
readln;
end.