Hoạt động của giáo viên và học sinh | Nội dung |
Hoạt động 1 : bài tập 1 (20’) | |
GV :Yêu cầu HS chia nhóm làm thực hành. Chương trình nhập vào một dãy số tự nhiên và tính tổng dãy số đó ? HS : lắng nghe , làm bài tập . GV : phân học sinh làm bài theo nhóm GV : yêu cầu các nhóm lên trình bày bài của nhóm mình HS : thảo luận theo nhóm , lên làm bài tập. |
Chương trình nhập vào một dãy số tự nhiên và tính tổng dãy số đó ? Program tong; Var i, n, Min : integer; A: array[1..100] of integer; Begin write('Hay nhap do dai cua day so, N='); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; for i:=1 to n do begin s:=s+a[i]; i:=i+1; end; write(‘tong la’); Write(s); readln; End. |
Hoạt động 2 : bài tập 2 (20’) | |
Viết chương trình tính tổng các số chẳn nhập từ bàn phím S=2+4+6+...n HS chia nhóm làm thực hành. GV gợi ý: - Dùng câu lệnh if…then…và phép toán “mod” để thực hiện |
Viết chương trình tính tổng các số chẳn nhập từ bàn phím S=2+4+6+...n ? Program tongchan; uses crt; Var i, n,s: integer; A: array[1..100] of real; Begin clrscr; write(nhap do dai day so= '); readln(n); writeln('Nhap gia tri day so :'); For i:=1 to n do Begin write(i,' . '); readln(a[i]); End; for i:=1 to n do Begin If (a[i] mod 2 = 0) then s:=s+a[i]; end; write(‘tong cac so chan trong day ban nhap la’); write(s); readln; end. |
Hoạt động 3 : củng cố (3’) | |
Tại sao lại cần có biến mảng? Nếu không có biến mảng được không? Khi gọi biến mảng cần có những chú ý gì? Có thể có nhiều tên mảng nhưng cùng số phần tử vá kiểu hay không? Có thì khai báo ra sao? |
Ý kiến bạn đọc
Những tin cũ hơn