Cho ví dụ về khai báo biến mảng

  • Viết chương trình cho phép nhập một dãy gồm n số nguyên từ bàn phím (0

    a) sắp xếp và in dãy số vừa nhập theo thứ tự giảm dần

    b) in ra phần tử có giá trị tuyệt đối lớn nhất trong dãy

    21/08/2022 |   0 Trả lời

Bài 9: Làm việc với dãy số – Câu 6 trang 78 SGK Tin học lớp 8. Viết chương trình sử dụng biến mảng để giải quyết bài toán nêu ở ví dụ 1.

Viết chương trình sử dụng biến mảng để giải quyết bài toán nêu ở ví dụ 1.

Lời giải : 

uses crt;

var x:array[1..100] of real;

n,i:byte;

dlc,xtb:real;

BEGIN

clrscr;

write(‘Nhap so ho gia dinh= ‘);readln(n);

xtb:=0;

for i:=1 to n do

Quảng cáo

begin

write(‘Muc thu nhap cua ho gia dinh thu ‘,i,’= ‘);

readln(x[i]);

xtb:=xtb+x[i];

end;

xtb:=xtb/n;

writeln(‘——————————————————-‘);

writeln(‘=> Thu nhap trung binh cua cac ho: ‘);

writeln(xtb:16:2);

writeln(‘——————————————————-‘);

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

*Cú pháp: Var : array [..] of ;

a) Var, array, of là từ khóa 

là tên biến do người viết chương trình đặt và tuân thủ theo các quy tắc đặt tên trong pascal

Chỉ số đầu, chỉ số cuối: là 2 số nguyên, thoả mãn: chỉ số đầu < chỉ số cuối, giữa 2 chỉ số là dấu ..

b) Vd: Var diem:array[1..42] of integer;

  • lý thuyết
  • trắc nghiệm
  • hỏi đáp
  • bài tập sgk

nêu cú pháp khai báo biến mảng trong pascal?lấy ví dụ

Các câu hỏi tương tự

Giáo án Tin học 8Năm học 2017 - 20184. Củng Cố: (5ph)Lấy ví dụ khai báo một dãy sốvar luongmua: array[1..12] of real;var Tuan: array[1..7] of integer;5. Dặn dò: (1ph) Trả lời phần câu hỏi và bài tập Tìm hiểu, chuẩn bị các kiến thức cho bài thực hành 6V. RÚT KINH NGHIỆM BỔ SUNG:........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................GV: Nguyễn Thị Hằng76Trường PPTD BT THCS LơKu Giáo án Tin học 8Năm học 2017 - 2018TUẦN: 30Tiết: 59 (Theo PPCT)Ngày soạn: 24/ 3/ 2018Ngày dạy: 27/ 3/ 2018Lớp dạy: 8Bài 9. LÀM VIỆC VỚI DÃY SỐ (tiết 2)I. MỤC TIÊU:1. Kiến thức: Biết được khái niệm mảng một chiều Biết cách khai báo mảng, nhập, in, truy cập các phần tử của mảng2. Kỹ năng: Hiểu được thuật tốn tìm giá trị lớn nhất và giá trị nhỏ nhất3. Thái độ: Thái độ học tập nghiêm túc, tích cực tham gia xây dựng bài. Làm cho HS u thích mơn lập trình, u thích mơn học hơn.4. Xác định nội dung trọng tâm: Thực hiện thao tác khai báo mảng, nhập, in, và truy cập đến phần tử của mảng5. Định hướng phát triển năng lực:a. Năng lực chung: Năng lực hợp tác, năng lực tri thứcb. Năng lực chuyên biệt:Năng lực tri thức thực hiện khai báo mảng, tri xuất đến phần tử trong mảng, nhập giátrị cho mảng, in giá trị của mảng ra ngồi màn hìnhII. PHƯƠNG PHÁP: Phương pháp thuyết trình, giảng giải, phân tích, làm mẫu, kết hợp sử dụng phươngpháp trực quanIII. CHUẨN BỊ1. Chuẩn bị của GV: Giáo án, máy tính, máy chiếu, SGK tin học dành cho THCS quyển 3, tài liệu thamkhảo khác2. Chuẩn bị của HS: Kiến thức đã học về ngơn ngữ lập trình, chương trình, đọc trước Nội Dung bài học ởnhàIV. TIẾN TRÌNH BÀI DẠY1. Ổn định trật tự lớp: (1ph) Kiểm tra sĩ số lớp. Kiểm tra vệ sinh lớp2. Kiểm tra bài cũ: (4ph)Câu hỏi: Em hãy nêu cách khai báo biến mảng trong Pascal, lấy ví dụ minh họa. (10đ)Trả lời: Cách khai báo biến mảng trong Pascal là:GV: Nguyễn Thị Hằng77Trường PPTD BT THCS LơKu Giáo án Tin học 8Năm học 2017 - 2018

Tên mảng : array[.. ] of ;Trong đó: chỉ số đầu và chỉ số cuối là hai số nguyên hoặc biểu thức nguyên thoả mãn chỉ số đầu ≤chỉ số cuối. kiểu dữ liệu có thể là integer hoặc real.Vd: Hocsinh: array[1..32]of integer;3.Bài mới: (34ph)Hoạt Động Của GV & HSNội DungHoạt động 1: Tìm hiểu cách sử dụng biến mảng (14ph)GV: Đưa ví dụ 22. Ví dụ về biến mảng:HS: Đọc hiểu ví dụVí dụ 2. Tiếp tục với ví dụ 1, thay vìGV: Hướng dẫn HS cách sử dụng khai báo các biến Diem_1, Diem_2,biến mảngDiem_3,... để lưu điểm số của cácHS: Chú ýHS, ta khai báo biến mảng Diem nhưGV: Cách khai báo biến có ích lợi sau:gì?var Diem: array[1..50] of real;HS: Tiết kiệm thời gian và công sức Có thể thay rất nhiều Câu lệnh nhậpviết chương trình.và in dữ liệu ra màn hình bằng mộtCâu lệnh lặp. Chẳng hạn, để nhậpđiểm của các HS.For i:=1 to 50 do readln(Diem[i]);Để so sánh điểm của mỗi HS với mộtgiá trị nào đó, ta cũng chỉ cần mộtCâu lệnh lặp như:For i:=1 to 50 doif Diem[i]>8.0 then writeln('Gioi'); Điều này giúp tiết kiệm rất nhiềuthời gian và công sức viết chươngtrình.Hơn nữa, mỗi HS có thể có nhiềuđiểm theo từng mơn học: điểm Tốn,điểm Văn, điểm Lí,... Để xử lí đồngthời các loại điểm này, ta có thể khaibáo nhiều biến mảng:var DiemToan: array[1..50] of real;var DiemVan: array[1..50] of real;var DiemLi: array[1..50] of real;hayvar DiemToan, DiemVan, DiemLi:GV: Nguyễn Thị Hằng78Năng lựchình thành Nănglựctri thức thựchiệnkhaibáo mảng,tri xuất đếnphầntửtrong mảng,nhập giá trịcho mảng,in giá trịcủa mảng rangồi mànhìnhTrường PPTD BT THCS LơKu Giáo án Tin học 8Năm học 2017 - 2018array[1..50] of real;Khi đó, ta cũng có thể xử lí điểm thicủa một HS cụ thểVí dụ 2 cũng cho thấy rằng, chúng tagán giá trị, đọc giá trị và tính toán vớicác giá trị của một phần tử trong biếnmảng thơng qua chỉ số tương ứng củaphần tử đó. Chẳng hạn, trong Câulệnh trên Diem[i] là phần tử thứ i củabiến mảng Diem.Ta có thể gán giá trị cho các phần tửcủa mảng bằng Câu lệnh gán:A[1]:=5;A[2]:=8;hoặc nhập dữ liệu từ bàn phím bằngCâu lệnh lặp:for i := 1 to 5 do readln(a[i]);Hoạt động 2: Tìm hiểu bài tốn tìm giá trị lớn nhất và giá trị nhỏe nhất của dãy số (20ph)GV: Đưa ví dụ 33. Tìm giá trị lớn nhất và nhỏ nhất Năng lựcHS: Đọc hiểu ví dụcủa dãy sốtri thức thựcGV: Hướng dẫn HS cách sử dụng Ví dụ 3. (SGK) Phần khai báo củahiệnkhaibiến mảngchương trình có thể như sau:báo mảng,HS: Chú ýprogram MaxMin;tri xuất đến- Ghi vào vở và thực hiện chương uses crt;phầntửtrình.trong mảng,Varnhập giá trịi, n, Max, Min: integer;cho mảng,A: array[1..100] of integer;in giá trịPhần thân chương trình sẽ tương tựcủa mảng radưới đây:ngồi mànBeginhìnhclrscr;write('Hay nhap do dai cua day so, N= '); readln(n);writeln('Nhap cac phan tu cua dayso:');For i:=1 to n doGV: Nguyễn Thị Hằng79Trường PPTD BT THCS LơKu Giáo án Tin học 8Năm học 2017 - 2018Beginwrite('a[',i,']='); readln(a[i]);End;Max:=a[1]; Min:=a[1];for i:=2 to n do

begin if MaxMax:=a[i];if Min>a[i] then Min:=a[i]end;write('So lon nhat la Max = ',Max);write('; So nho nhat la Min =',Min);readlnEnd.4. Củng Cố: (5ph)Lấy ví dụ cách khai báo, nhập các phần tử mảng, in, truy cập đến phần tử mảngHS: Trình bày khai báo một biến mảng có độ rộng 5 phần tử, nhập 5 phần tử của mảngtrên, in ra màn hình các phần tử vừa nhập, viết Câu lệnh truy cập đến phần tử thứ 3 củamảng5. Dặn dò: (1ph) Trả lời phần còn lại ở phần câu hỏi và bài tập Tìm hiểu, chuẩn bị các kiến thức về mảng cho tiết bài tậpV. RÚT KINH NGHIỆM BỔ SUNG:........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................GV: Nguyễn Thị Hằng80Trường PPTD BT THCS LơKu