Bµi
14
Gi¸o ¸n ®iÖn tö tin häc líp 11
A
!"#
$%&'
()*
+),%-*
!"#
./0123.4(*
7935
3829
6741
1 2 3 4
1
2
3
5637833
!"#$%&'()**+,&'-./012&'-./34$&'(5
6*$0.7(8$%&'(5
690:8 !"#;)**+,<2<34==*5
6*>8;5
563$839
6*$?.7(8**+,'-./012&'-./34$&'(5
6*>2;8**+,@2A@34*=5
690:8 6*;8**+,<2<34==*5
ABC9*
1.
:;<=>?@<=>?
Write(‘ Nhap vao so dong, cot:’);
Readln(n,m);
$ :;@3A23
)
>
?
For i:= 1 to n do
For j:=1 to m do
Begin
write(‘A[’,i,j,’ ] = ’ );
readln(A[i,j]);
end;
C¸c bíc:
ThÓ hiÖn b»ng
pascal
:;)B
A
1 2 3 4
1
2
3
7935
3829
6741
8 C)B
Writeln(‘ Mang vua nhap : ’);
For i:=1 to n do
Begin
For j:=1 to m do Write(A[i,j],’ ’);
Writeln;
end;
Mang vua nhap:
1 4 7 6
9 2 8 3
5 3 9 7
1.
D83
2.
C3A23
E)@F
BC9DE0FGFOR do H
For i :=1 to 9 do
For j:=1 to 9 do
A[i,j] := i*j;
633G0"H3
VÝ dô: TÝnh vµ in ra mµn h×nh b¶ng cöu ch¬ng.
For i :=1 to 9 do
Begin
For j:=1 to 9 do write(A[i,j]:5);
writeln; writeln;
End;
IJ4K3LM4
NOF
@P
8@3"#
QR
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 12 24 32 40 48 56 68 72
9 18 27 36 45 54 63 72 81
* TÝnh
* IN ra mµn h×nh
Quan s¸t b¶ng cöu ch¬ng ta thÊy:
A[2,5]=2 x 5 = 10
A[5,8]=5 x 8 = 40
A[i,j]=i*j
H·y nhí!
+)B0@)B@
S 2 0T 0@ )
B
8()H.P<=
H.P<=H.
78
(8)<<
3G0"NKUVW
J01XYZ [Y0, …
15 20 19
16 25 18
17 12 16
Var
A:ARRAY[1 10,1 10] OF integer;
A[1,3] = 19