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

**Mr Bi** · 01-19-2010, 08:49 PM

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(n);
if n>0 then

begin
for i:=1 to n do
begin
write('Nhap gia tri so thu ',i,':');
readln(Z[i]);
a:=1*Z[i];
b:=2*Z[i];
c:=3*Z[i];
d:=4*Z[i];
e:=5*Z[i];
f:=6*Z[i];
g:=7*Z[i];
h:=8*Z[i];
k:=9*Z[i];
writeln(Z[i]:10:2,'x 1 =',a:10:5);
writeln(Z[i]:10:2,'x 2 =',b:10:5);
writeln(Z[i]:10:2,'x 3 =',c:10:5);
writeln(Z[i]:10:2,'x 4 =',d:10:5);
writeln(Z[i]:10:2,'x 5 =',e:10:5);
writeln(Z[i]:10:2,'x 6 =',f:10:5);
writeln(Z[i]:10:2,'x 7 =',g:10:5);
writeln(Z[i]:10:2,'x 8 =',h:10:5);
writeln(Z[i]: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!