Nội dung của Bài 11: Kiểu mảng dưới đây, các em sẽ cùng tìm hiểu về khái niệm mảng một chiều, mảng hai chiều; cách khai báo và truy cập cập đến phần tử của hai loại mảng này; làm quen với cách cài đặt thuật toán của một số bài toán đơn giản với kiểu dữ liệu mảng một chiều và mảng hai chiều;... Mời các em cùng theo dõi nội dung chi tiết của bài học.
Tổng quát, khai báo biến mảng một chiều có dạng:
var < tên biến mảng >: array [ kiểu chỉ số ] of < kiểu phần tử >;
type < tên kiểu mảng > = array [ kiểu chỉ số ] of < kiểu phần tử >;
var < tên biến mảng >: < tên kiểu mảng >;
Trong đó:
Ví dụ 1. Các khai báo kiểu mảng một chiều sau đây là hợp lệ:
type
ArrayReal = array[-100..200] of real;
ArrayBoolean = array[-n+1..n+1] of boolean;
ArrayInt = [-100..0] of integer;
Trong đó, n là hằng nguyên.
Ví dụ 2: Tham chiếu tới nhiệt độ của ngày thứ 20, trong chương trình trên, được viết là Nhietdo[20].
Hình 1. Minh họa mảng một chiều
Tổng quát, khai báo biến mảng hai chiều trong Pascal như sau:
var < tên biến mảng > : array[ kiểu chỉ số dòng, kiểu chỉ số cột ] of < kiểu phần tử >;
type < tên kiểu mảng > = array[ kiểu chỉ số dòng, kiểu chỉ số cột ] of < kiểu phần tử >;
var < tên biến mảng >: < tên kiểu mảng >;
Ví dụ 4. Các khai báo sau đây là hợp lệ:
type
ArrayReal = array[-100..200,100..200] of real;
ArrayBoolean = array[-n+1..n+1,n..2*n] of boolean;
var
ArrayInt: array[1..10,1..15] of integer;
ArrayLong:array[0..3*(n+1),0..n] of longint;
Trong đó, n là hằng nguyên.
Ví dụ 4. Tham chiếu tới phần tử ở dòng thứ 5, cột thứ 9 của biến mảng ArrayInt khai báo được viết: ArrayInt [5, 9].
Hình 2. Minh hoạ mảng hai chiều
Chú ý:
Ta xét chương trình có sử dụng mảng một chiều cài đặt một số thuật toán giải những bài toán tìm kiếm và sắp xếp.
program TimMax;
uses crt;
const
Nmax = 250;
type
ArrInt = array[1..Nmax] of integer;
var
N,i, Max, csmax: integer;
A: ArrInt;
begin
clrscr;
write('Nhap so luong phan tu cua day so, N = ');
readln(N);
for i:=1 to N do
begin
write('Phan tu thu ',i,' = ');
readln(A[i]);
end;
Max:= A[1]; csmax:=1;
for i:=2 to N do
if A[i]> Max then
begin
Max:= A[i];
csmax:= i;
end;
writeln('Gia tri cua phan tu Max: ', Max);
writeln('Chi so cua phan tu Max: ', csmax);
readln
end.
program sapxep;
uses CRT;
const Nmax = 250;
type
ArrInt = array[1..Nmax] of integer;
var
N,i,j,t: integer;
A: ArrInt;
begin
clrscr;
write('Nhap so luong phan tu cua day so, N = ');readln(N);
for i:=1 to N do
begin
write('Phan tu thu ',i,' = ');
readln(A[i]);
end;
for j:=N downto 2 do
begin
for i:=1 to j-1 do
if A[i]> A[i+1] then
begin (*Trao doi A[i] va A[i+1]*)
t:= A[i];
A[i]:= A[i+1];
A[i+1]:= t
end;
end;
writeln('Day so duoc sap xep la: ');
for i:=1 to N do write(A[i]: 4);
readln
end.
program TK_nhiphan;
uses crt;
const
Nmax = 250;
type
ArrInt = array[1..Nmax] of integer;
var
N, i, k: integer;
Dau, Cuoi, Giua: integer;
A: Arrint;
Tim_Thay: boolean;
begin
clrscr;
write('Nhap so luong phan tu cua day so, N = ');
readln(N);
writeln('Nhap cac phan tu cua day so tang: ');
for i:=1 to N do
begin
write('Phan tu thu ',i,' = ');
readln(A[i]);
end;
write('Nhap gia tri k = ');
readln(k);
Dau:= 1; Cuoi:=N; Tim_thay:= false;
while (Dau <= Cuoi) and not (Tim_Thay) do
begin
Giua:= (Dau+Cuoi) div 2;
if A[Giua] = k then
Tim_thay:= true
else
if A[Giua]>k then Cuoi:= Giua-1
else Dau:= Giua+1;
end;
if Tim_thay then writeln('Chi so tim duoc la: ', Giua)
else writeln('Khong tim thay');
readln
end.
program BangCuuChuong;
uses crt;
var
B: array[1..9,1..10] of integer;
{B: bien mang hai chieu luu bang cuu chuong}
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.
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
begin
read(b[i,j]);
write(' ');
end;
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.
Sau khi học xong Bài 11: Kiểu mảng, các em cần nắm vững các nội dung trọng tâm:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài 11 cực hay có đáp án và lời giải chi tiết.
Phát biểu nào dưới đây về kiểu mảng là phù hợp?
Để khai báo số phần tử của mảng trong PASCAL, người lập trình cần:
Phát biểu nào dưới đây về chỉ số của mảng là phù hợp nhất?
Câu 4-10: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Phát biểu nào dưới đây về kiểu mảng là phù hợp?
Để khai báo số phần tử của mảng trong PASCAL, người lập trình cần:
Phát biểu nào dưới đây về chỉ số của mảng là phù hợp nhất?
Phát biểu nào sau đây về mảng là không chính xác?
Thế nào là khai báo biến mảng gián tiếp?
Phương án nào dưới đây là khai báo mảng hợp lệ?
Cho khai báo mảng và đoạn chương trình như sau:
Var a : array[0..50] of real ;
k := 0 ;
for i := 1 to 50 do
if a[i] > a[k] then k := i ;
Đoạn chương trình trên thực hiện công việc gì dưới đây?
Cho khai báo mảng như sau: Var m : array[0..10] of integer ;
Phương án nào dưới đây chỉ phần tử thứ 10 của mảng?
Khai báo mảng hai chiều nào sau đây là sai?
Mảng là kiểu dữ liệu biểu diễn một dãy các phần tử thuận tiện cho:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
viết chương trình lập mảng A gồm N số nguyên. tính và đưa ra màn hình số lượng các số âm
Câu trả lời của bạn
Program bai1;
uses crt;
var a: array [1..1000] of integer;
i,n,dem: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
dem:=0;
for i:= 1 to n do
if a[i] < 0 then dem:=dem+1;
write('so luong cac so am la : ',dem);
readln;
end.
cho dãy A gồm N số nguyên (n ≤150) .
a)đếm số lượng các phần tử dương trong mảng.
b)tính tổng các phần tử dương trong mảng.
c)đếm số lượng các số chẵn trong mảng.
Câu trả lời của bạn
viết chương trình nhập dãy số tự nhiên. Hãy đếm và in ra màn hình số phần tử lẻ, tính tổng các số lẻ trong n số vừa nhập từ bàn phím
m.n giúp e với ạ
1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3.xóa hoặc chèn phần tử ( mảng một chiều)
4. tìm một phần tử K ( trong mảng một chiều )
Câu trả lời của bạn
cau3)
program bai_tap;
uses crt;
var n,i:byte;
b,chen:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
write('nhap gia tri can chen: ');
readln(chen);
write('nhap vi tri can chen: ');
readln(b);
for i:= n+1 downto b+1 do
a[i]:=a[i-1];
a[b]:=chen;
for i:= 1 to n+1 do
write(a[i]:4);
readln
end.
xóa cũng tương tụ kiểu như vậy
tạo mảng gồm n phần tử (n>=10)
nhập và in mảng
nhập k
đếm số phần tử có giá trị lớn hơn k
Câu trả lời của bạn
Program Mang;
Uses crt;
Var A:array[1..̀̀50] of integer;
i,n,dem:integer;
k:integer;
Begin
Clrscr;
writeln('Nhap so phan tu cua day so: n = ');
Readln(n);
For i:= 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = ');
Readln(A[i]);
End;
Writeln('In mang da nhap:')
For i := 1 to n do writeln('A[',i,'] = ',A[i],' ; ');
Write('Nhap so k:'); Readln(k);
dem:=0;
For i := 1 to n do
If (A[i]>k) then dem := dem + 1;
Writeln('So phan tu cua mang có gia tri lon hon k la: ',dem);
Readln;
End.
1. Viết chương trình nhập vào một mảng A gồm n phần tử (n<=50). Tìm và xuất ra màn hình tất cả các phần tử dương trong mảng A.
2. Viết chương trình nhập vào một mảng A gồm n phần tử (n<=50). Sắp xếp và xuất ra màn hình vị trí và giá trị của phần tử nhỏ nhất trong mảng A.
Mọi người giúp em với ạ mai em phải nộp rồi :((
Câu trả lời của bạn
pascal ah bạn
khi nào ta nên khai báo biến mảng gián tiếp thông qua định nghĩa kiểu ?
Câu trả lời của bạn
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *