giai bai tap tin hoc 8 bai 9 lam viec voi day so

giáo án tin học 8 bài 9 làm việc với dãy số

Ngày tải lên : 18/10/2014, 10:22

... 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,']='); ... TB:= TB + 1; end; writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha '); writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem '); readln; End Củng cố - ... write( 'Day so vua nhap la: '); for i:=1 to n write(a[i], ' '); writeln; write('Tong day so la = ',Sum); readln; End Bài 2: Program Xep_loai; Bổ sung chỉnh sửa chương trình uses crt; BT2 (tiết 59 )...

27
12.6K
4

bai 9. lam viec voi day so lop 8 hay

Ngày tải lên : 23/01/2015, 13:00

... 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ữ liệu ... 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 ... nhất,nhỏ dãy số + 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 ...

19
1.2K
9

GA 8 bai 9 lam viec voi day so

Ngày tải lên : 02/02/2015, 16:00

... 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 so vớ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;...

5
665
0

Bai 9. Lam việc với dãy số

Ngày tải lên : 14/06/2013, 01:25

... 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) ... 80 ] of integer; Với câu lệnh thứ nhất, ta khai báo biến có tên Chieucao gồm 50 phần tử, phần tử biến có kiểu số thực Với câu lệnh khai báo thứ hai, ta có biến Tuoi gồm 60 phần tử (từ 21 đến 80 ) ... 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...

5
4.6K
25

Bài 9-Làm việc với dãy số

Ngày tải lên : 16/09/2013, 04:10

... hạn phần tử có thứ tự, có kiểu liệu  Mảng đặt tên phần tử mang số Ví dụ: A 17 20 24 10 16 22 18 Trong  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 ... dụng biến mảng câu lệnh lặp giúp cho việc viết chương trình ngắn gọn dể dàng Thực tháng 01 năm 20 09 ...

21
2.9K
13

Bai 9: lam viec voi day so

Ngày tải lên : 29/09/2013, 18:10

... lớn nhất, nhỏ dãy số (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 so vớ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 ... Dặn dò 10 n với n = Khai báo Truy cập Các bước Nhập số phần tử mảng Thể pascal Write(‘ Nhap vao so HS:’); Readln(n); Nhập vào giá trị For i:=1 to n phần tử Begin mảng (A[i]) write(‘Diem cho HS...

15
1.5K
10

bài 9: Làm Việc Với dãy số

Ngày tải lên : 26/10/2013, 15:11

... 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ãy số 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...

18
1.6K
6

Bài 9: LÀM VIỆC VỚI DÃY SỐ ppsx

Ngày tải lên : 07/07/2014, 19:20

... 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 ... 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 báo sử dụng biến mảng ví dụ ... Tuoi: array[21 80 ] of phần tử biến có kiểu liệu số thực integer; GV: Tương tự cho HS phân tích ý nghĩa câu lệnh thứ GV: Qua VD GV tổng quát câu lệnh khai báo mảng Pascal Giáo án Tin học * Cách...

4
1K
11

Bài 9: LÀM VIỆC VỚI DÃY SỐ (tt) ppsx

Ngày tải lên : 07/07/2014, 19:20

... 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ới số 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...

3
1.2K
1

Bài 9: làm việc với dãy số

Ngày tải lên : 15/07/2014, 17:00

... MẢNG Là tập hợp hữu hạn phần tử có thứ tự xếp phần tử có kiểu liệu Ví dụ: A 17 20 24 10 16 22 18 Trong  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...

20
1.1K
0

Bai 9. Lam viec voi day so

Ngày tải lên : 16/07/2014, 01:00

10
865
1

bai 9: Làm Việc với dãy số

Ngày tải lên : 16/07/2014, 08:00

... A[2]: =8; Hoặc nhập liệu từ bàn phím câu lệnh lặp: For i:=1 to readln(A[i]); 3.Tìm giá trị lớn nhỏ dãy số Ví dụ (SGK- Trang 78) Ghi nhớ (SGK- Trang 79) - Làm tập 1,2,3,4,5 (sgk- trang 79) - Xem ... mảng, số lượng, kiểu liệu phần tử -Ví dụ1: Var Chieucao:array[1 50] of real; Var Tuoi:array[21 80 ]of integer; Ví dụ biến mảng * Cách khai báo biến mảng: Var :array[

9
1.1K
11

Bai 9. Lam Viec Voi Day So

Ngày tải lên : 16/07/2014, 11:00

... 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 ... giá trị Max = a1 - Lần lợt cho i chạy từ đến Hóy nờu thut toỏn tỡm s ln nht v N,nh nht ca dóy s so sánh giá trị với giá trị Max, > Max Max nhận giá trị * Đoạn chơng trình Max:=A[1]; For i:=2 to...

13
501
0

Bài 9. Làm Việc Với Dãy Số

Ngày tải lên : 21/04/2015, 03:00

... 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 Tuần 29 Tiết 57 Bài Làm việc với dãy số www.themegallery.com ... of Real; Tuần 29 Tiết 57 Bài Làm việc với dãy số 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’);...

11
587
0

BÀI 9. LÀM VIỆC VỚI DÃY SỐ

Ngày tải lên : 27/04/2015, 19:00

... 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; ... 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 Phần khai báo Phần thân Bài Làm việc ... Làm việc với dãy số Ví dụ biến mảng: Ví dụ: Var Chieucao: Array[1 50] of real; Var Tuoi: Array[1 80 ] of Integer; www.themegallery.com Tên mảng: Array[

10
419
0

bai 9 : lam viec voi day so

Ngày tải lên : 08/05/2015, 03:00

... …: 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 ... giảm biến mảng ngôn ngữ pascal sau :  Var chieucao: array[1…50] of real;  Var tuoi: array[21 80 ] of integer;  Từ hai ví dụ trên, thấy cách khai báo mảng pascal sau:  Tên mảng: array [8. 0 then writeln(‘Gioi’);  Điều tiết kiệm nhiều thời gian công sức viết chương trình  Ta khai...

12
333
0

Bai 9: Làm việc với dãy số

Ngày tải lên : 08/05/2015, 06:00

... lí liệu If diem1 >8. 0 then Write(‘Gioi’); If diem2 >8. 0 then Write(‘Gioi’); If diem3 >8. 0 then Write(‘Gioi’); … If diemk >8. 0 then Write(‘Gioi’); For i:=1 to k begin If diem[i] >8. 0 then end; Write(‘Gioi’); ... SỐ Bài LÀM VIỆC VỚI DÃY SỐ Dãy số biến mảng: Ví dụ: Viết chương trình nhập vào điểm kiểm tra môn tin học học sinh lớp (k học sinh) In hình điểm số cao Input: điểm k HS Output: Điểm số cao Bài ... a) Var x: array [10,13] of Integer; b) Var x: array [5 10.5] of Integer; c) Var x: array [3.5 4 .8] of Integer; d) Var x: array [10 1] of Integer; e) Var x: array [4 13] of Integer; HẾT! CẢM ƠN...

20
643
0

Bai 9 Lam viec voi day so

Ngày tải lên : 20/05/2015, 23:00

... hạn phần tử có thứ tự, có kiểu liệu  Mảng đặt tên phần tử mang số Ví dụ: A 17 20 24 10 16 22 18 Trong  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 ... dụng biến mảng câu lệnh lặp giúp cho việc viết chương trình ngắn gọn dể dàng Thực tháng 01 năm 20 09 ...

21
919
0

BÀI 9: LÀM VIỆC VỚI DÃY SỐ

Ngày tải lên : 23/05/2015, 07:00

... mảng diemtin gồm 10 phần tử Nhập liệu cho diemtin biết phần tử cuối mang giá trị Các phần tử lại có giá trị nhập từ bàn phím Program vidu; Var diemtin: array [1 10] of real; Begin Diemtin[1]:=5; ... 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 day so ‘); For i:=1 to n Begin Write(‘a[ ‘,i,’] =‘);readln(a[i]); End; ... diemtin: array [1 10] of real; Begin Diemtin[1]:=5; Diemtin[10]:=5; for i:=2 to write(‘diem =‘); readln(diemtin[i]); For i:=1 to 10 write(diemtin[i]); Readln End Khai báo biến Sử dụng lệnh gán để...

15
603
2

Bài 9 : Làm việc với dãy số (T1)

Ngày tải lên : 24/05/2015, 00:00

... 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 ... Khithì chương trình chạy chương trình, có hạn máy tính phải nhiều + B2: So sánh điểm chế ? thời gian đọc liệu hs lớp  việc so sánh điểm + B3: Tìm điểm số cao gặp khó khăn, lâu Diem_Max Trịnh Thị ... Phải khai báo nhiều biến • Khi chạy chương trình, máy tính phải nhiều thời gian đọc liệu  việc so sánh điểm gặp khó khăn, lâu Trịnh Thị Ngọc – THCS Phú Cường  Khắc phục : • Ghép chung N biến...

17
288
0