... clrscr; write('Hay nhap dai cua day so, N = Trong chơng trình này, '); readln(n); writeln('Nhap cac phan tu cua day lu ý điểm sau: Số tối đa phần tử mảng (còn gọi kích thớc so: '); For i:=1 to n mảng) ... then Min:=a[i] liệu end; Việc gán giá trị, nhập giá trị tính write( 'So lon nhat la Max = ',Max); toán với giá trị phần tử write('; So nho nhat la Min = ',Min); biến mảng đợc thực readln; thông qua ... lệnh nhập, ta cần viết hai câu lệnh đủ kết đạt đợc nh Ta sử dụng biến mảng cách hiệu xử lí liệu Để so sánh điểm học sinh với giá trị đó, ta cần câu lệnh lặp, chẳng -3- Ví dụ Tiếp tục với ví dụ 1,...
... lớn nhất, nhỏ dãysố (xem lại ví dụ trang 43 SGK)? - Về nhà làm tập 2, 4, trang 79 SGK? - Làm tập 9. 1, 9. 2, 9. 3, 9. 7 sách tập? ... n2…n100 cách số lớn lý số vấn có nhận gọn sovới tập vừa nhập, emđề xét nhẹ dễ trên? dàng 100 không? (khai báo 100 biến, hơnlệnh nhập liệu, so sánh giá trị với 99 số lại … chương trình sẻ dài, dễ nhầm ... Truy cập Nhập mảng In mảng Củng cố Dặn dò I,n:integer; A: array[1 20] of integer; Writeln(‘ nhap so phan tu’); Readln(n); For i:=1 to n Begin Writeln(‘ Nhap gia tri a[‘,i,’]=‘); Readln(n); End;...
... A: array[1 100] of integer; Begin clrscr; write('Hay nhap dai cua day so, = '); readln(n); writeln('Nhap cac phan tu cua day so: '); For i:=1 to n Begin write('a[',i,']='); readln(a[i]); End; ... to n begin if Maxa[i] then Min:=a[i] end; write( 'So lon nhat la Max = ',Max); write( 'So nho nhat la Min = ',Min); Readln End Câu Cách khai báo biến mảng sau pascal ... liệ p để xử lý liệ vài câu liệu gì? gì? kiểu mảng Với i=1 đến 50: nhập Diem_i; Với i=1 đến 50: so sánh Max với Diem_i; Dãysố biến mảng Việc thứ tự thực cách gán cho Dữ liệu kiểu mộng làsố:p...
... chương trình Pascal có khai báo sử dụng biến mảng - So n phần Mỹ Xuyên, ngày / Người duyệt / 2010 GVHD : LÂM THANH VIỆT Giáo án Tin học Người so n SVTT : DANH PHƯƠNG VŨ Trường THCS Mỹ Xuyên ... (thay 50 câu lệnh khai báo 50 câu lệnh đọc ta cần viết câu lệnh) GV: Đưa cách viết câu lệnh lặp để so sánh điểm Toán với giá trị For i:= to 50 If diem[i] > 8.5 then writeln(‘gioi’); GV: Cách khai...
... write('Hay nhap dai cua day so, N = GV: Yêu cầu HS trình bày lại thuật toán '); readln(n); writeln('Nhap cac GV: Cho HS thảo luận nhóm để nghiên cứu cách phan tu cua day so: '); viết chương trình ... tạm thời) + So sánh số lớn tạm thời vớisố thứ 2, số thứ lớn số thứ tạm thời-Max gán giá trị số thứ cho Max Như vậy, đến thời điểm này, Max số lớn số thứ số thứ + Cứ tiếp tục vậy, đem so sánh Max ... if Min>a[i] then Min:=a[i]; end; write( 'So lon nhat GV: Nhấn mạnh: Qua ví dụ ta thấy khác biệt la Max = ',Max); người máy tính giải công việc write('; So nho Trong nhiều tình người giải nhat...
... BàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng BàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng Những hạn chế: Em cho báo qua nhiều ... trình BàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng Khắc phục hạn chế: 1.Ghép chung biến thành dãy Em nêu ý tưởng Để chung tên Đặt khắc phục biến đặt cho phần tử sốHạn chế ? Sử dụng liệu kiểu mảng Bài ... phần tử có thứ tự xếp phần tử có kiểu liệu Hãy cho biết khái niệm kiểu mảng BàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng BàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng ...
... readln(A[i]); 3.Tìm giá trị lớn nhỏ dãysố Ví dụ (SGK- Trang 78) Ghi nhớ (SGK- Trang 79) - Làm tập 1,2,3,4,5 (sgk- trang 79) - Xem trước thực hành - Tiết sau học TH ...
... ngưtrìnhưchạyưvàưchoưkếtưquảưnhưsau: Nhap so phan tu cua day so: n= Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu : Nhap so thu : So lon nhat la Max = So nho nhat la Min = Bi ... write( Nhap so phan tu cua day so: n= ) ; readln(n) ; For i := to n Begin write( Nhap so thu ,i, : ) ; readln(A[i]) ; End; Max:=A[1]; For i := to n If A[i]>Max Then Max := A[i]; Writeln( So lon nhat ... Diem2 >= then writeln( gioi ) ; IF Diem40 >= then writeln( gioi ) ; For i: =1 to 40 If Diem[i] > =9 then Writeln( gioi ) ; S dng bin mng rt hiu qu vic x lý d liu Bi LM VIC VI DY S (tt) Vớ d v bin...
... array[1 100] of integer; Begin {Nhap N} write('Hay nhap dai cua day so, N = '); readln(N); {Nhap day so} writeln('Nhap cac phan tu cua day so: '); For i:=1 to N Begin Hoạt động : 15 phút write('a[',i,']='); ... phan tu cua day so: '); For i:=1 to n Begin write('a[',i,']='); readln(a[i]); End; Min:=a[1]; for i:=2 to n if Min>a[i] then Min:=a[i]; write( 'So nho nhat la Min = ',Min); readln; End Bài 2: Viết ... writeln('Nhap cac phan tu cua day so: '); For i:=1 to n HS chia nhóm làm thực hành Begin write('a[',i,']='); readln(a[i]); End; Sum:=0; for i:=1 to n Sum:= Sum + a[i]; write( 'Dayso vua nhap la: '); for...
... dụ1: A 25 10 15 79 38 * Từ mảng A trên, xác định: Tên mảng : A Số phần tử mảng: Kiểu liệu phần tử: Kiểu nguyên Khi tham chiếu đến phần tử thứ i: ta viết tenmang[i] A[6] = 79 * Cách khai ... array[1…50] of real; 27/03/2013 Lương Thị Bích Thảo 15 Ví dụ biến mảng: 8 … … … … … … … … 7 9 … … … … … i diemvan[4] =9; diemtoan[2] =7; diemli[1] =8; 27/03/2013 Lương Thị Bích Thảo 16 … 50 Củng cố + Dữ ... phần lại bài: + Viết thuật toán tìm số lớn nhất,nhỏ dãysố + Xem phần thân chương trình SGK trang 78 nêu ý nghĩa câu lệnh 27/03/2013 Lương Thị Bích Thảo 18 27/03/2013 Lương Thị Bích Thảo 19 ...
... trình tương tự đây: Begin clrscr; write('Hay nhap dai cua day so, N = '); Trong chương trình này, readln(n); writeln('Nhap cac phan tu cua day so: '); lưu ý điểm sau: Số tối đa phần tử For i:=1 to ... nhiều sovới 100) for i:=2 to n Ghi nhớ begin if Maxa[i] then Min:=a[i] hạn phần tử có thứ tự phần end; tử có kiểu liệu write( 'So lon ... i,x: interger; X : array[ 5] of Interger; Begin For i:= to begin Write(‘ ban hay nhap giá tri cho so ); readln(X[i]) ; end For i:=1 to begin Write(‘ hien thò gia tri X’, i); write(X[i]);end; Readln;...
... Tuần 29 Tiết 57 BàiLàmviệc vớiTRA BÀI CŨ KIỂM dãysố Câu 1: Hãy ghi cú pháp câu lệnh lặp vớisố lần chưa biết trước ? www.themegallery.com Câu 2: Câu lệnh thực ? Tuần 29 Tiết 57 BàiLàmviệc ... A: Array[1 100] of integer; Begin Clrscr; Write('Hay nhap dai cua day so, N = '); readln(n); Writeln('Nhap cac phan tu cua day so: '); For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; ... Min>a[i] then Min:=a[i] End; Write( 'So lon nhat la Max = ',Max); Write('; So nho nhat la Min = ',Min); Readln; End Phần khai báo Phần thân Tuần 29 Tiết 57 BàiLàmviệcvớidãysố www.themegallery.com...
... A: Array[1 100] of integer; Begin Clrscr; Write('Hay nhap dai cua day so, N = '); readln(n); Writeln('Nhap cac phan tu cua day so: '); For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; ... Max:=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); Readln; End Phần khai báo Phần thân BàiLàmviệcvớidãysố www.themegallery.com ... of Real; BàiLàmviệcvớidãysố Ví dụ biến mảng: www.themegallery.com For i:=1 to 50 Readln(Diem[i]); Đoạn chương trình có ưu điểm ? For i:=1 to 50 If Diem[i]>8.0 then Writeln(‘Gioi’); Bài Làm...
... …: read; … Read (diem_1); read(diem_3);… - Với i = đến 50: nhập diem_i; - Với i = đến 50: so sánh Max với diem_i diem_1 diem_2 diem_3 … diem_K … k Mảng Chỉ Ví dụ : cách khai...
... KIỂM TRA BÀI Câu hỏi: Hãy xác đònh công cụ nêu thao tác để vẽ hình tam giác cân phần mềm Geogebra? BàiLÀMVIỆCVỚIDÃYSỐBàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng: ... …… Mảng 10 k BàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng: Diem Chỉ số ……… …… Mảng Dữ liệu kiểu mảng 10 k BàiLÀMVIỆCVỚIDÃYSỐDãysố biến mảng: Diem Chỉ số ……… …… Phần tử mảng 10 k BàiLÀMVIỆC ... biến khó khăn Nhầm lẫn sai sót Bài LÀMVIỆCVỚIDÃYSỐDãysố biến mảng: Vậy có cách để thay k biến biến hay không? Và thay k lần câu lệnh nhập câu lệnh hay không? BàiLÀMVIỆCVỚIDÃYSỐDãy số...
... Integer; BEGIN {Phần thân chương trình} Write(‘ Hay nhap dai cua day so, N= ‘);Readln(n); Writeln(‘Hay nhap cac phan tu cua dayso ‘); For i:=1 to n Begin Write(‘a[ ‘,i,’] =‘);readln(a[i]); End; ... Begin If max < a[i] then Max:=a[i]; If Min >a[i] then Min:=a[i]; End; Writeln ( So lon nhat la Max =‘,max); Writeln( So nho nhat la Min =‘,min); Readln; END 1.Dãy số biến mảng 2.Ví dụ biến mảng ... gán để gán giá trị cho phần tử đầu cuối Sử dụng lệnh lặp for to để nhập liệu cho phần tử lại (2- >9) Xuất nội dung mảng hình sau nhập liệu 1.Dãy số biến mảng 2.Ví dụ biến mảng 3.Tìm giá trị lớn...
... tử có kiểu liệu Trịnh Thị Ngọc – THCS Phú Cường Bài tập Dãysố & biến mảng Bài 2: Em chọn khai báo biến mảng khai báo sau: a Khái niệm b Khai báo Bài tập Dặn dò a) Var X: Array [10 , 13] of Real; ... Cường Bài tập: Dãysố & biến mảng Bài 3: Câu lệnh khai báo biến mảng sau máy tính có thực không ? Tại ? Nếu sai sửa lại a Khái niệm cho ? Var b Khai báo N : Integer ; A: array [ N ] of real ; c Bài ... Củng cố Dặn dò Sử dụng khai báo trường hợp nào, cách khai báo biến mảng ? Làm tập: 1, trang 79 SGK 9. 1- >9. 4 SBT Xem nội dung lại SGK chuẩn bị tiết sau Trịnh Thị Ngọc – THCS Phú Cường ...