Viết giải thuỊt cho bài toán Từ giải thuỊt viết chơng trình

Một phần của tài liệu GA Pascal (Trang 26 - 27)

- Từ giải thuỊt viết chơng trình - soạn chơng trình trên máy - Kiểm tra lỡi cú pháp - Dịch và chạy chơng trình Giải thuỊt nh sau:

n: Các sỉ tự nhiên

s : tưng; i là biến điều khiểnS:=0; S:=0;

for i=1 to n doS := S+i; S := S+i;

HS : Trả lới câu hõi.

GV: NhỊn xét đánh giá và cho điểmGv: Cho hục sinh viết giải thuỊt Gv: Cho hục sinh viết giải thuỊt - Gụi 1 hục sinh trình bèy giải thuỊt HS: Trình bèy giải thuỊt lên bảng GV: NhỊn xét g đánh giá

? Từ giải thuỊt trên em hãy viết chơng trình HS: Chơng trình đợc viết nh sau: HS: Chơng trình đợc viết nh sau:

Program Tinh_tong;Var s, i, n : Integer; Var s, i, n : Integer;

Begin

Writeln(‘ NhỊp vào sỉ tự nhiên cèn tínhtưng’); Readln (n) tưng’); Readln (n)

S:=0;

For i:= 1 to n doS := S+i; S := S+i;

Writeln (‘ Tưng của n sỉ tự nhiên là:’, S);Readln ; Readln ;

End.

HS: + Soạn chơng trình trên máy tính+ Sửa lỡi cú pháp + Sửa lỡi cú pháp

+ Dịch và chạy chơng trình với 1 vài giá trị cụthể của n để kiểm tra lại lỡi lô gíc. thể của n để kiểm tra lại lỡi lô gíc.

+ Lu chơng trình vào máy tính

sỉ thực đợc nhỊp vào từ bàn phímYêu cèu: Yêu cèu:

- Viết giải thuỊt cho bài toán- Từ giải thuỊt viết chơng trình - Từ giải thuỊt viết chơng trình - soạn chơng trình trên máy - Kiểm tra lỡi cú pháp - Dịch và chạy chơng trình Giải thuỊt nh sau:

n: Các sỉ tự nhiên

s : tưng; i là biến điều khiểnS:=0; S:=0;

for i=1 to n doBegin Begin

Writeln(‘ a [‘,i,’]=’); Readln(a);S := S+a; S := S+a;

End;Tb := S/n; Tb := S/n;

GV: Gụi 1 hụ sinh lên bảng giải thích giảithuỊt của mình thuỊt của mình

HS: giải thích giải thuỊtGV: NhỊn xét đánh giá GV: NhỊn xét đánh giá

? Từ giải thuỊt trên em hãy viết chơng trình HS: Chơng trình đợc viết nh sau: HS: Chơng trình đợc viết nh sau:

Program Tinh_trung _binh;Var i, n : Integer; S, a: Real; Var i, n : Integer; S, a: Real;

Begin

Writeln(‘ NhỊp vào đĩ dài của dãy sỉ thựccèn tính tưng’); Readln (n) cèn tính tưng’); Readln (n)

S:=0; Writeln;For i:= 1 to n do For i:= 1 to n do Begin

Writeln(‘ a [‘,i,’]=’); Readln(a);S := S+a; S := S+a;

End;

Tb := S/n;

Writeln (‘ Trung bình cĩng của dãy sỉ là:’,S: 5:1); S: 5:1);

Readln ;End. End.

HS: + Soạn chơng trình trên máy tính+ Sửa lỡi cú pháp + Sửa lỡi cú pháp

+ Dịch và chạy chơng trình với 1 vài giá trị cụthể của n để kiểm tra lại lỡi lô gíc. thể của n để kiểm tra lại lỡi lô gíc.

+ Lu chơng trình vào máy tính

Một phần của tài liệu GA Pascal (Trang 26 - 27)

Tải bản đầy đủ (DOC)

(30 trang)
w