Giúp em về bài tập Pascal lớp 11!

[fuocub]

Dưới đây là 2 VD ở SGK trang 61, 62:

VD1:

Program Bang_nhan;
Uses crt;
Var
B: array [1..9, 1..10] of integer;
{B: bien mang hai chieu luu bang nhan}
i, j: integer;
begin
clrscr;
for i:=1 to 9 do
for j:=1 to 10 do
B [i, j] := i*j;
for i:=1 to 9 do
begin
for j:=1 to 10 do write (B[i, j] : 4);
writeln;
end;
readln
end.

VD2:

Program MangHaiChieu;
Uses crt;
Var b: array [1..5, 1..7] of integer;
d, i, j, k: integer;
begin
clrscr;
writeln (‘Nhap cac phan tu cua mang theo dong: ‘);
for i:=1 to 5 do
begin
for j:=1 to 7 do read (b[i,j]);
writeln;
end;
write (‘Nhap vao gia tri k= ‘); readln (k);
d:=0;
writeln (‘DS cac phan tu mang nho hon ‘, k, ‘:’);
for i:=1 to 5 do
for j:=1 to 7 do
if b[i, j] < k then begin
write (b[i, j], ‘ ‘);
d:=d+1;
end;
if d=0 then writeln (‘Khong co phan tu nao nho hon’, k);
readln
end.

Cô giáo em yêu cầu là phải giải thích rõ từng dòng có ý nghĩa gì và để làm gì!


Ví dụ như này ạ:

Program Bang_nhan; {Khai bao ten chuong trinh la Bang_nhan}
Uses crt; {Khai bao thu vien crt}

Mong các anh em trong DDTH giúp đỡ! Cám ơn mọi người nhiều!

[Yuhari]

Mình sợ cô bạn chưa chắc đã hiểu đâu :| (nói thì nói thôi). Như mình học 3 năm cấp 3, cái sách cải cách đó, thấy nó thật là =.= thầy giáo còn gà hơn học sinh ~.~
Năm lớp 10 dạy word :D, năm 11 dạy Pascal, năm 12 dạy Access :D
Chẳng thấy có Excel, thấy vô lý sao đó =.="
(mình thấy pascal bây h ít ai dùng lắm :|)

Bạn mua Sách giáo viên hay sách thiết kế bài giảng thử xem bạn, mình nghĩ trong đó nó có đầy đủ đó :D

[fuocub]

Mình sợ cô bạn chưa chắc đã hiểu đâu :| (nói thì nói thôi). Như mình học 3 năm cấp 3, cái sách cải cách đó, thấy nó thật là =.= thầy giáo còn gà hơn học sinh ~.~
Năm lớp 10 dạy word :D, năm 11 dạy Pascal, năm 12 dạy Access :D
Chẳng thấy có Excel, thấy vô lý sao đó =.="
(mình thấy pascal bây h ít ai dùng lắm :|)

Bạn mua Sách giáo viên hay sách thiết kế bài giảng thử xem bạn, mình nghĩ trong đó nó có đầy đủ đó :D
Trời. Chấm điểm luôn đó. Cô giáo tớ cũng Pro lém đó. Ai giúp mình đi

[nhokdragon94]

Dưới đây là 2 VD ở SGK trang 61, 62:

VD1:

Program Bang_nhan;
Uses crt;
Var
B: array [1..9, 1..10] of integer;
{B: bien mang hai chieu luu bang nhan}
i, j: integer;
begin
clrscr;
for i:=1 to 9 do {chạy 1->9 (cửu chương 1-->9)}
for j:=1 to 10 do {thừa số nhân trong từng cửu chương}
B [i, j] := i*j; {tính tích các thừa số i*j}
for i:=1 to 9 do
begin
for j:=1 to 10 do write (B[i, j] : 4); {xuất ma trận(bảng cửu chương)}
writeln;
end;
readln;
end.

VD2:

Program MangHaiChieu;
Uses crt;
Var b: array [1..5, 1..7] of integer;
d, i, j, k: integer;
begin
clrscr;
writeln (‘Nhap cac phan tu cua mang theo dong: ‘);
for i:=1 to 5 do
begin
for j:=1 to 7 do read (b[i,j]);
writeln;
end; {đoạn trên là nhập ma trận}
write (‘Nhap vao gia tri k= ‘); readln (k); {cái này bạn tự bic nghĩa là j` roài :D}
d:=0; {biến đếm số ptử nhỏ hơn k}
writeln (‘DS cac phan tu mang nho hon ‘, k, ‘:’);
for i:=1 to 5 do
for j:=1 to 7 do
if b[i, j] < k then begin
write (b[i, j], ‘ ‘); {xuất ra màn hình những ptử nhỏ hơn k}
d:=d+1; {đếm số lượng các số trên}
end;
if d=0 then writeln (‘Khong co phan tu nao nho hon’, k);{d=0 có nghĩa là hem có số nào hít :D}
readln;
end.

P/s: pascal hem thể giải thích rõ ràng đc đâu phải lấy ví dụ chứng minh cụ thể mới hỉu rõ đc:
Vd bài thứ nhất
với i=1,j=1 thì A[1,1]:=1*1=1;
với i=1;j=2 thì A[1,2]:=1*2=2;
................
tới khi i=9 và j=9 thì hết bảng cửu nhương :D}
Cô giáo em yêu cầu là phải giải thích rõ từng dòng có ý nghĩa gì và để làm gì!

[anh_twin]

Tôi muốn hỏi bài tập 4.40 trong sách Bài Tập Tin Học 11(Bài toán về xếp thùng). Rất mong sớm được giải đáp từ các bạn. Xin cảm ơn!

[fdoublef2008]

bạn post cái đề lên đi

[avada_kedavra]

Tôi muốn hỏi bài tập 4.40 trong sách Bài Tập Tin Học 11(Bài toán về xếp thùng). Rất mong sớm được giải đáp từ các bạn. Xin cảm ơn!

bạn ghi bài đó ra đc hem, mình ko có SBT :D

[nhokdragon94]

Tui hem có SGK lun chứ nói gì đến SBT :)

[bara_dh]

uses crt;
var i,k,S,j:integer;
begin
clrscr;
write(' Bang cuu chuong ');
writeln;
for i:=1 to 9 do
begin
write(' ');
for k:=1 to 5 do
write(k:2 ,' x ', i:2 ,' = ',i*k:2,' ');
writeln;
end;
writeln;
for i:=1 to 9 do
begin
write(' ');
for k:=6 to 10 do
write(k:2,' x ', i:2 ,' = ',i*K:2,' ');
writeln;
end;
readln
end.