Ôn tập kiểm tra HKII 2011 - 2012

ÔN TẬP KIỂM TRA HKII
Bài 1: Cho xâu S có độ dài không quá 100 kí tự, thực hiện: in ra xâu chỉ chứa kí tự số.
Yêu cầu: Dữ liệu được đọc vào từ tệp Xau.int; kết quả được ghi vào tệp Xau.out.

Program b1;
var S, P: string [100];
f1, f2: text;
i: integer;
begin
assign (f1, ‘Xau.int’);
reset (f1);
read (f1, S);
P:=’’;
For i:= 1 to legnth (S) do
If (S[i] > ‘0’) and (S[i] <= ‘9’) then
P:= P + S [i];
Assign (f2, ‘Xau.out’);
Rewrite (f2);
Writeln (f2, P);
Close (f1);
Close (f2);
Readln
End.

Bài 2: Cho xâu S dài không quá 30 kí tự.
Đếm số lần xuất hiện của kí tự ‘k’.
Thay kí tự ‘k’ bằng kí tự ‘e’. (Làm việc với tệp)

Program b2;
Var f1, f2: text;
S: string [30];
i, x, D, tim: integer;
begin
assign (f1, ‘bandau.pas’);
reset (f1);
read (f1, S);
x:= length (S);
D:= 0;
For i:= 1 to x do if S[i] = ‘k’ then D:= D + 1;
While pos (‘k’, S) <> 0 do
Begin
Tim:= pos (‘k’, S);
Delete (S, tim, 1);
Insert (‘e’, S, tim);
End;
Assign (f2, ‘lucsau.pas’);
Rewrite (f2);
Writeln (f2, D);
Writeln (f2, S);
Close (f1);
Close (f2);
Readln
End.

Viết chương trình có sử dụng chương trình con thực hiện:
Bài 1: Tính tổng:
S =

* Hàm:
Program tong;
Var n: integer;
Function tinh(a: integer): real;
Var T: real;
i: integer;
begin
T:= 0;
For i:= 2 to a do
T:= T + a*(2/sqrt(2));
Tinh:= T;
End;
Begin
Write (‘Cho gia tri n = ‘); readln (n);
Write (tinh(n));
Readln
End.
* Thủ:
Program tong;
Var n: integer;
Procedure tinh (b: integer);
Var S: real;
i: integer;
begin
S:= 0;
For i:= 2 to b do
S:= S + a * (2/sqrt(2));
Writeln (‘Tong bang: ‘,S);
End;

Begin
Write (‘Nhap gia tri n: ‘); readln (n);
Tinh (n);
Readln
End.
Bài 2: Tính tổng 2 số nguyên a, b được nhập vào từ bàn phím.

Program B2;
Var a, b: integer;
Function Tong(x, y: integer): integer;
Var S: integer;
Begin
S:= x + y;
Tong:= S;
End;
Begin
Write (‘Cho 2 so nguyen: ‘);
Readln (a, b);
Writeln (Tong (a, b));
Readln
End.

Bài 3: Tính chu vi, diện tích hình tròn với bán kính được nhập từ bàn phím.

Program hinhtron;
Var r: real;
Function chuvi(d: real): real;
Const pi:= 3.14;
Var P: real;
Begin
P:= 2 * pi * d;
Chu vi:= P;
End;
Function dientich(x: real): real;
Const pi:= 3.14;
Var S: real;
Begin
S:= x * x * pi;
Dientich:= S;
End;
Begin
Write (‘Cho gia tri ban kinh: ‘,r); readln (r);
Writeln (Chu vi (r));
Writeln (Dientich (r));
End.


Bài 4: Tính tổng luỹ thừa: S = am + bn + cp + dq

Program b4;
Var tonglt: integer;
Function lthua(x, k: integer): integer;
Var i, LT: integer;
Begin
LT:= 1;
For i:= 1 to k do LT:= LT * x;
Lthua:= LT;
End;
Begin
Write (‘Cho