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 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