Giáo án môn Tin học khối 11 - Bài: Bài tập chương IV

Kỹ năng - Rèn luyện kĩ năng khai báo kiểu dữ liệu có cấu trúc với Pascal, sử dụng thành thạo các từ khoá Var, Type.. - Sử dụng thành thạo các thao tác vào/ ra và các phép toán trên các t[r]

BÀI: BÀI TẬP CHƯƠNG IV (t 1 )

Ngày soạn: 14/01/2010 Ngày giảng: 18/01/2010

I MỤC TIÊU

1 Kiến thức

- Các quy

-cách

-45

- Trong ngôn * Pascal dùng mô >    C =C + khoá Type

2 Kỹ năng

- Rèn

2 các + khoá Var, Type)

.

3 Tư duy

-'5

4 Thái độ

-ham

-II CHUẨN BỊ BÀI GIẢNG

1 Phương tiện

+

45 5,6,7,8,9,10,11 trang 79 & 80 SGK

2 Phương pháp dạy học

- '  = "5

- e@  2

- fg = "h

III TIẾN TRÌNH DẠY HỌC

1 Kiểm tra bài cũ

- %$ '5 trong *; bài 45

2 Nội dung bài giảng

HOẠT ĐỘNG 1

1

Tiết: 34

jkA elS m
GIÁO VIÊN jkA elS m
q SINH

1

ra màn hình -0 X 

Ví KU S$ 45 vào 2 -0 3, 7 thì "& ra

màn hình -0 X  là: 3

câu  nào là phù '5s

Yêu

máy

Yêu

$ >

 IF THEN ELSE Program Min_ab;

Uses crt;

Var a,b : integer;

Begin Clrscr;

Write('Nhap so thu nhat: ');

Readln(a);

Write('Nhap so thu hai: ');

Readln(b);

if a < b then Writeln('Gia tri nho nhat la:',a) else

Writeln('Gia tri nho nhat la:',b); Readln;

End



HOẠT ĐỘNG 2

Bài 45 1

jkA elS m
GIÁO VIÊN jkA elS m
q SINH Bài

nguyên và in ra màn hình 5R J X 

Ví KU 45 vào >* -0 2 4 5 13 7 9 20

Thì

>* là 2

e& ra 4 toán:

Bước 1: S45 N và >* -0 nguyên A1,

A2,…An;

n

Bước 3: S$ i>n thì "& ra Min ƒ $

thúc;

Bước 4:

4.1 S$ Ai< Min thì gán Min = Ai;

4.2 Gán i:=i+1 quay

„ ") chúng ta -J K* câu  For ",

Yêu

Uses crt;

Var A: array[1 100] of integer;

Min,i, N : integer;

Begin Clrscr;

Write('So phan tu cua mang: ');

Readln(N);

For i:=1 to N do Begin

Write(' A[', i,']= ');

Readln(A[i]);

End;

Min:=A[1];

if A[i] < Min then Min:= A[i];

Writeln(' Gia tri nho nhat cua mang la:',Min);

Readln;

End

Test

HOẠT ĐỘNG 3

Bài 45 2:

jkA elS m
GIÁO VIÊN jkA elS m
q SINH Bài 45 2: S45 / xâu + bàn phím và

"& ra màn hình :

-

- In ra xâu

- In ra xâu

Yêu

- Cho

- In ra xâu

- In ra xâu

Yêu

máy

Program Xoaxau;

Uses crt;

Var a:string;

n, vt, k:integer;

Begin Clrscr;

write('Nhap vao mot xau '); readln(a); write('Nhap vi tri muon xoa ');

readln(vt);

write('Nhap so luong ki tu muon xoa '); readln(n);

k:=length(a);

delete(a,vt,n);

writeln(' Do dai cua xua la:', k);

writeln('Xau ket qua sau khi xoala:',a); readln;;

End

HOẠT ĐỘNG 4

Bài 45 3:

jkA elS m
GIÁO VIÊN jkA elS m
q SINH Bài

phím thông tin

diemtoan, diemvan, diemtin

• In ra màn hình * thông tin sau:

- Hoten,

- Diemtoan

- Diemvan

- Diem tin

-Tongdiem

Gợi ý

Type { phan Khai bao}

Hocsinh = record

Hoten : string[30];

diemtoan,diemvan,diemtin,Tong:integer;

end;

Var A: ARRAY[1 100] of Hocsinh;

i,n: integer;

Write(' Nhap vao so hoc sinh trong lop : ');

readln(n);

Program hocsinh;

Type { phan Khai bao} Hocsinh = record

Hoten : string[30];

diemtoan,diemvan,diemtin ,Tong:integer;

end;

Var A: ARRAY[1 100] of Hocsinh;

i,n: integer;

BEGIN Write(' Nhap vao so hoc sinh trong lop : '); readln(n);

For i:=1 to n do Begin

writeln('Nhap so lieu cho hoc sinh thu ',i);

S45   ?> ghi

For i:=1 to n do

Begin

writeln('Nhap so lieu cho hoc sinh

thu ',i);

Write('Ho Va Ten : ');

readln(A[i].Hoten);

Write(' Diem toan :

');readln(A[i].diemtoan);

Write(' Diem van :

');readln(A[i].diemvan);

Write(' Diem Tin :

');readln(A[i].diemtin);

End;

Cách tính

For i:=1 to n do

A[i].Tong := A[i].diemtoan+

A[i].diemvan+ A[i].diemtin;

ˆ   ra màn hình

{ Xuat bang du lieu ra man hinh}

For i:=1 to n do

Writeln('BANG KET QUA THI');

Writeln(' Ho va ten diemtoan

diemvan diem tin Tong diem ');

Writeln(A[i].Hoten:5);

Write(A[i].diemtoan:8);

Write(A[i].diemvan:8);

Write(A[i].diemtin:8);

Write(A[i].tong:8);

Yêu

readln(A[i].Hoten);

Write(' Diem toan : ');readln(A[i].diemtoan);

Write(' Diem van : ');readln(A[i].diemvan);

Write(' Diem Tin : ');readln(A[i].diemtin);

End;

For i:=1 to n do A[i].Tong := A[i].diemtoan + A[i].diemvan+ A[i].diemtin;

Writeln('BANG KET QUA THI'); Writeln(' Ho va ten diemtoan diemvan diem tin Tong diem ');

For i:=1 to n do

Writeln(A[i].Hoten:5,A[i].diemtoan:8,A[i ].diemvan:8,A[i].diemtin:8,A[i].tong:8); Readln;

END.

3 Củng cố

+ + % xâu : Cách khai báo, thao tác (J lý xâu

+ % ?> ghi: Cách khai báo, các thao tác =C ?> ghi

4 Dặn dò

- Các em =h xem 2 lý $ =h % >*I  xâu và  ?> ghi " $ sau chúng ta

- Các em *Ž

IV NHẬN XÉT

o 7&,* pháp:

o  > -J K*U

o  > SD TBDH:

o ND

SS XÉT m
GIÁO VIÊN ’“S DÂN

phím thơng tin

diemtoan, diemvan, diemtin

• In hình * thơng tin sau:

- Hoten,

- Diemtoan

- Diemvan...

Bài 45 2:

jkA elS m
GIÁO VIÊN jkA elS m
q SINH Bài 45 2: S45 / xâu + bàn phím

"& hình :

-

- In xâu

- In xâu

Yêu

- Cho... Phương pháp dạy học< /b>

- ''  = "5

- e@  2

- fg = "h

III TIẾN TRÌNH DẠY HỌC

1 Kiểm tra cũ

- %$ ''5 *;