Bằng pascal viết chương trình tính bảng cửu chương bằng mảng

[Mr Bi]

Trong bài này mình hướng các bạn tới cách tính bảng cửu chương bằng mảng 1 chiều.

program bangcuuchuong;
uses crt;
const max=100;
type X=array[1..max] of real;
var n,i:integer;
a,b,c,d,e,f,g,h,k: real;
Z:X;
begin
clrscr;
write('Nhap so luong so can tinh cuu chuong,N=');
readln;
if n>0 then
begin
for i:=1 to n do
begin
write('Nhap gia tri so thu ',i,':');
readln(Z);
a:=1*Z;
b:=2*Z;
c:=3*Z;
d:=4*Z;
e:=5*Z;
f:=6*Z;
g:=7*Z;
h:=8*Z;
k:=9*Z;
writeln(Z:10:2,'x 1 =',a:10:5);
writeln(Z:10:2,'x 2 =',b:10:5);
writeln(Z:10:2,'x 3 =',c:10:5);
writeln(Z:10:2,'x 4 =',d:10:5);
writeln(Z:10:2,'x 5 =',e:10:5);
writeln(Z:10:2,'x 6 =',f:10:5);
writeln(Z:10:2,'x 7 =',g:10:5);
writeln(Z:10:2,'x 8 =',h:10:5);
writeln(Z:10:2,'x 9 =',k:10:5);
end;
end;
if n<=0 then writeln('Ban vua nhap gia tri la:',n:5,'Gia tri can nhap la so nguyen duong, ban vui long kiem tra lai');
readln
end.

Nhớ nhỳn kỹ nha, phần nào không hiểu có thể hỏi, mình trả lời thêm!