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
Câu trả lời của bạn
uses crt;
var a:array[1..300]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu trả lời của bạn
Program HOC24;
var i,n: integer;
a: array[1..200] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chan trong mang la: ',t);
readln
end.
Câu trả lời của bạn
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(dem);
readln;
end.
Câu trả lời của bạn
program Phantichso;
var N, i, m, a:Longint;
dem: Integer;
Begin
write('Nhap N: ');
readln(N);
dem:=0;
for i:= 1 to N div 2 do
if (2*N-i*(i+1)) mod (2*(i+1)) = 0 then
Begin
a:= (2*N-i*(i+1)) div (2*(i+1));
inc(dem);
if (a>0) then
Begin
writeln('Cach thu ', dem);
for m:=a to a+i-1 do
write(m, '+');
writeln(m+1);
End;
End;
End.
a. Nhập mảng từ bàn phím.
b. Hiển thị mảng ra màn hình.
c. Tổng các phần tử
d. Tìm và in số nhỏ nhất cùng số lần xuất hiện của nó trong dãy
Câu trả lời của bạn
uses crt;
var a:array[1..50]of integer;
m,n,t,min,vt:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to m do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln('Tong cac phan tu la: ',t);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
vt:=0;
for i:=1 to n do
if min=a[i] then inc(vt);
writeln('So nho nhat la: ',min);
writeln('So lan xuat hien la: ',vt);
readln;
end.
Câu trả lời của bạn
uses crt;
var i,n:integer;
s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=2021;
for i:=1 to n do
s:=s+i;
writeln('s=', s);
readln;
end.
Câu trả lời của bạn
Mảng 1 chiều:
Program DapAnHay;
var a: array[1..32000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i]>0 then t:=t+a[i];
write('Tong cac phan tu duong la: ',t);
readln
end.
Mảng 2 chiều:
Program DapAnHay;
var a: array[1..100,1..100] of integer;
i,n,m,j: integer;
t: longint;
begin
write('Nhap so hanh va so cot: '); readln(n,m);
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,';',j,']='); readln(a[i,j]);
end;
t:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>0 then t:=t+a[i,j];
write('Tong cac phan tu duong la: ',t);
readln
end.
1;\(\dfrac{1}{2}\);\(\dfrac{1}{3}\);.... sao cho số hạng cuối cùng của dãy không bé hơn 0,0321. Cho biết dãy có tất cả bao nhiêu số hạng?
b. Tìm số hạng nhỏ nhất của dãy sao cho tổng từ số hạng đầu tiên đến nó không vượt
Câu trả lời của bạn
program bai1;
uses crt;
var i,j,d:integer;
a:array[1..100]of real;
t,k:real;
begin
clrscr;
i:=1;
while 1/i>0.0321 do
begin
a[i]:=1/i;
inc(i);
d:=i;
end;
writeln('mang tren co ',d,' so hang');
i:=1;
while t+a[i]<=3 do
begin
t:=t+a[i];
inc(i);
end;
writeln('so can tim la: ',a[i+1]:5:4);
writeln(a[i+1]:5:4,' la so hang thu ',i+1);
write('nhap k:');readln(k);
for i:=1 to d do
if (k>a[i])and(k<a[i-1]) then writeln(k:5:4,' nam giua ',a[i]:5:4,' va ',a[i-1]:5:4);
readln;
end.
Câu trả lời của bạn
c++:
#include <iostream>
#include <vector>
using namespace std;
const int N = (int) 1e5 + 5;
const int MOD = (int) 1e9;
int a[N];
int n;
int main() {
cin >> n;
if (n == 0) {
cout << 0 << endl;
return 0;
}
vector<int> p;
for (int i = 1;;) {
p.push_back(i * (3 * i - 1) / 2);
if (p.back() >= n) break;
i = -i;
if (i > 0) i++;
}
a[0] = 1;
for (int i = 1; i <= n; ++i) {
int sign = 1, cnt = 0;
for (int j : p) {
if (j > i) break;
a[i] += sign * a[i - j];
if (a[i] < 0) a[i] += MOD;
if (a[i] >= MOD) a[i] -= MOD;
cnt += 1;
if (cnt == 2) {
cnt = 0;
sign = -sign;
}
}
}
cout << a[n] << endl;
return 0;
}
Câu trả lời của bạn
Program DapAnHay;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 3=0 then d:=d+1;
end;
write('Co ',d,' so chia het cho 3');
readln
end.
Câu trả lời của bạn
uses crt;
var a,b,c:integer;
begin
clrscr;
write('Nhap diem Toan:'); readln(a);
write('Nhap diem Van:'); readln(b);
write('Nhap diem Anh:'); readln(c);
writeln((a+b+c)/3:4:2);
readln;
end.
1. Viết thủ tục nhập vào mảng A là điểm toán của n học sinh
2. Viết thủ tục xuất mảng A đã được sắp xếp lên màn hình
3. Viết hàm tính Tổng điểm của n học sinh trên
4. Viết thủ tục hoán vị trí điểm giữa các học sinh
5. Hoàn thành chương trình chính với số điểm được sắp xếp theo thứ tự tăng dần
Câu trả lời của bạn
uses crt;
var a:array[1..100]of integer;
i,n,t,tam,j:integer;
begin
clrscr;
write('Nhap n=');readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong diem cua ',n,' ban la: ',t);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Câu trả lời của bạn
uses crt;
var a:array[1..100]of integer;
i,n,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i] mod k=0 then write(a[i]:4);
readln;
end.
Câu trả lời của bạn
Program DapAnHay;
var i,n,k: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];
write('Tong cac phan tu la boi cua 3 va 5 la: ',t);
readln
end.
Câu trả lời của bạn
uses crt;
var a:array[1..2,1..5]of integer;
i,j,t:integer;
begin
clrscr;
for i:=1 to 2 do
for j:=1 to 5 do
begin
write('A[',i,',',j,']='); readln(a[i,j]);
end;
t:=0;
for i:=1 to 2 do
for j:=1 to 5 do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu trả lời của bạn
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln(dem);
readln;
end.
Câu trả lời của bạn
uses crt;
const fi='vtmin.out';
var a:array[1..100]of integer;
i,n,min:integer;
f1:text;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
assign(f1,fi); rewrite(f1);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
for i:=1 to n do
if min=a[i] then write(f1,i:4);
close(f1);
readln;
end.
Câu trả lời của bạn
#include<bits/stdc++.h>
using namespace std;
int a[1000000],n,b[1000000];
int main(){
cin >>n;
for (int i=1;i<=n;i++) {cin >> a[i];
if (a[i]%2==1) b[a[i]]=i;
}
for (int i=1;i<=n;i++){
if (b[a[i]]!=0) {cout << b[a[i]] << " "<<a[i]<<'\n';b[a[i]]=0;}
}
}
Nhập trực tiếp , in dạng :
Chỉ số _ số
......
a. Đếm số lượng phần tử dương cho kết quả ra màn hình
b. Tính tổng các phần tử dương trong mảng
c. Tính trung bình các phần tử trong mảng
d. Tính trung bình các phần tử dương trong mảng
e. Tìm vị trí đầu tiên cảu phần tử =k với k nhập từ bàn phím
f. Tìm vị trí phần tử =k với k nhập từ bàn phím, nếu có nhiều phần tử =k thì hiển thị ra màn hình tất cả vị trí phần tử =k đó.
g. Đếm số lượng phần tử là nguyên tố trong mảng.
h. Kiểm tra mảng vừa nhập có phải là cấp số cộng hay không?
i. Sắp xếp mảng theo thứ tự tăng dần các phần tử và hiển thị ra màn hình mảng tăng đó
Câu trả lời của bạn
uses crt;
var a:array[1..100]of integer;
i,n,dem,t,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('So luong phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);
readln;
end.
Câu trả lời của bạn
uses crt;
var b:array[1..25]of integer;
i,n,dem1,dem2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if b[i]>0 then inc(dem1);
if b[i]<0 then inc(dem2);
end;
writeln('So cac so nguyen duong la: ',dem1);
writeln('So cac so nguyen am la: ',dem2);
readln;
end.
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 *