Thuật toán kiểm tra số nguyên tố

CÁC BÀI TẬP VỀ XÂU KÍ TỰ

BÀI TẬP 1

1. 
   Xoá các dấu cách thừa
   
2. 
   Chuyển những kí tự đầu từ thành chữ hoa, những kí tự khác thành chữ thường.
   

HƯỚNG DẪN

var s : string;

procedure chuanhoa(var s : string); {s là tham biến để có thể thay đổi trong chương trình con}

var i : integer;

begin

while s[1]=' ' do delete(s,1,1); {xoá các kí tự cách thừa ở đầu xâu}

{xoá các kí tự cách thừa ở giữa các từ: nếu s[i-1] là cách thì s[i] là dấu cách là thừa. Phải dùng vòng lặp for downto vì nếu trong quá trình xoá ta làm giảm chiều dài của xâu, nếu for to sẽ không dừng được.}

for i := length(s) downto 2 do

if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1);

{Chuyển kí tự đầu xâu thành chữ hoa}

s[1] := Upcase(s[1]);

for i := 2 to length(s) do

if s[i-1]=' ' then s[i] := Upcase(s[i]) {Chuyển s[i] là kí tự đầu từ thành chữ hoa.}

else

if s[i] in ['A'..'Z'] then {s[i] là kí tự chữ hoa không ở đầu một từ}

end;
BEGIN

write('Nhap vao 1 xau s:');

readln(s);

chuanhoa(s);

writeln('Xau s sau khi chuan hoa:',s);

readln;

END.

BÀI TẬP 2

HƯỚNG DẪN

var x : string;

(************************************************)

function doixung(x : string) : boolean; {hàm kiểm tra xâu đối xứng}

var y : string;

i : integer;

begin

y := '';

for i := length(x) downto 1 do y := y + x[i];

{so sánh x và xâu đảo của nó}

if x=y then doixung := true else doixung := false;

end;

BEGIN

readln(x);

if doixung(x) then

writeln('Xau doi xung!')

else

writeln('Xau khong doi xung!');

END.

BÀI TẬP 3

HƯỚNG DẪN

var s : string;

{Hàm đếm số từ của một xâu}

function sotu(s : string) : integer;

var i, dem : integer;

begin

s := ' ' + s; dem := 0;

for i := 2 to length(s) do {s[i] là vị trí bắt đầu 1 từ}

if (s[i-1]=' ') and (s[i]<>' ') then dem := dem + 1;

sotu := dem;

end;

write('Nhap vao 1 xau:');

readln(s);

writeln('So tu trong xau la:',sotu(s));

readln;

END.

BÀI TẬP 4

HƯỚNG DẪN

1. 
   Bỏ qua các dấu cách cho đến khi gặp một kí tự khác cách (hoặc hết xâu).
   
2. 
   Ghi các kí tự tiếp theo vào xâu tạm cho đến khi gặp dấu cách hoặc hết xâu, khi đó ta được 1 từ.
   
3. 
   Nếu chưa hết xâu thì quay lại bước 1.
   

var s : string;

dem : integer;

{Hàm kiểm tra từ đối xứng}

function doixung(x : string) : boolean;

var y : string;

i : integer;

begin

for i := length(x) downto 1 do y := y + x[i];

if x=y then doixung := true else doixung := false;

end;

procedure tach;

var i, len : integer;

t : string;

begin

writeln('Cac tu trong xau:');

repeat

while (s[i]=' ') and (i<=len) do inc(i);

if i>=len then break; {nếu hết xâu thì dừng}

t := ''; {t là biến tạm lưu từ đang tách}

{B2: lấy các kí tự khác cách đưa vào biến tạm cho đến khi hết xâu hoặc gặp 1 kí tự cách:}

while (s[i]<>' ') and (i<=len) do begin

t := t + s[i];

inc(i);

{in ra từ vừa tách được và kiểm tra đối xứng}

writeln(t);

if doixung(t) then inc(dem);

until i >= len;

writeln('So tu doi xung trong xau:',dem);

end;

(************************************************)

write('Nhap vao 1 xau:');

readln(s);

tach;

BÀI TẬP 5

HƯỚNG DẪN

uses crt;

var n : integer;

a : array[1..20] of integer;

{Thủ tục nhập dữ liệu}

procedure nhap;

var i : integer;

begin

repeat

if (n<=20) and (n>=5) then break; {nếu đã thoả mãn thì thoát khỏi vòng lặp}

writeln('Yeu cau 5<=n<=20. Nhap lai!');

until false;

for i := 1 to n do

repeat

if (a[i]<=9999) and (a[i]>=10) then break; {a[i] có 2 đến 4 chữ số}

writeln('Yeu cau cac phan tu co 2 den 4 chu so. Nhap lai!');

until false;

end;

{Hàm kiểm tra bằng các kiểm tra xâu đối xứng}

var x,y : string;

i : integer;

begin

y := '';

{nếu x là đối xứng thì k là palindrom}

if x=y then palindrom := true else palindrom := false;

end;

procedure palin;

var i : integer;

begin

for i := 1 to n do

if palindrom(a[i]) then writeln(a[i]);

readln;

(* Chương trình chính *)

BEGIN

nhap;

END.

CÁC BÀI TẬP VỀ TỆP

BÀI TẬP 1

1. 
   Hãy in ra những số là số nguyên tố của mảng.
   
2. 
   Tìm vị trí phần tử lớn nhất trong mảng.
   
3. 
   Sắp xếp mỗi dòng của mảng tăng dần và in ra mảng dạng ma trận.
   

HƯỚNG DẪN

Để sắp xếp mảng theo yêu cầu, ta thực hiện sắp xếp từng dòng của mảng bằng cách viết một thủ tục sắp xếp (kiểu đổi chỗ cho đơn giản) coi mỗi dòng của mảng như 1 mảng 1 chiều.

var m,n : integer;

a : array[1..100,1..100] of integer;

(* Nhập dữ liệu *)

procedure nhap;

var f : text;

i,j : integer;

begin

readln(f,m,n);

for i := 1 to m do

for j := 1 to n do read(f,a[i,j]);

close(f);

end;
function ngto(k : integer): boolean;

var i : integer;

begin

if k < 2 then exit;

for i := 2 to round(sqrt(k)) do

if k mod i = 0 then exit;

ngto := true;

end;
procedure inngto;

var i,j : integer;

begin

for i := 1 to m do

for j := 1 to n do

if ngto(a[i,j]) then write(a[i,j],' ');

writeln;

end;
procedure timmax;

var max,i,j,im,jm : integer;

begin

for i := 1 to m do

for j := 1 to n do

if max < a[i,j] then begin

max := a[i,j]; {mỗi lần gán max thì gán toạ độ luôn}

im := i; jm := j;

end;

writeln('Phan tu lon nhat bang la A[',im,',',jm,']=',max);

{Thủ tục thực hiện sắp xếp tăng dần dòng thứ k. Các phần từ dòng k có dạng a[k,i]}

procedure xepdong(k: integer);

var i,j, tg : integer;

begin

for i := 1 to n do

if a[k,i] > a[k,j] then begin

tg := a[k,i]; a[k,i] := a[k,j]; a[k,j] := tg;

end;

var i,j : integer;

begin

for i := 1 to m do xepdong(i); {sắp xếp từng dòng}

for i := 1 to m do begin {in dạng ma trận}

for j := 1 to n do write(a[i,j] : 5); {in các phần tử trên 1 dòng}

writeln; {in hết 1 dòng thì xuống dòng}

end;

end;

nhap;

timmax;

END.

BÀI TẬP 2

1. 
   In mn số đã sinh dạng ma trận m dòng, n cột.
   
2. 
   In ra các số chính phương.
   

HƯỚNG DẪN

• 
  Để sinh các số ngẫu nhiên từ a đến b, ta dùng biểu thức a + random(b-a+1).
  
• 
  Để kiểm tra số k có phải là số chính phương không, ta lấy căn bậc 2 của k, làm tròn rồi bình phương. Nếu kết quả bằng k thì k là số chính phương. Tức là kiểm tra sqr(round(sqrt(k))) = k.
  

var m,n : integer;

f : text;

procedure sinh;

var

i,j : integer;

write('Nhap vao 2 so m,n: '); readln(m,n);

assign(f,'BANG.TXT'); rewrite(f);

writeln(f,m,' ',n);

for i := 1 to m do begin

for j := 1 to n do

write(f,15 + random(300-15+1) : 6); {sinh số ngẫu nhiên từ 15 đến 300}

writeln(f);

end;

close(f);

{Hàm chính phương}

function cp(k : integer) : boolean;

begin

else cp := false;

end;
procedure chinhphuong;

var

begin

readln(f,m,n);

writeln('CAC SO CHINH PHUONG CUA BANG:');

for i := 1 to m do begin

for j := 1 to n do begin

read(f,k);

if cp(k) then write(k,' '); {vừa đọc vừa xử lí}

end;

close(f);

end;
procedure inbang;

var

begin

readln(f,m,n);

writeln(#10,'IN BANG DANG MA TRAN:');

for i := 1 to m do begin

for j := 1 to n do begin

read(f,k);

write(k : 6); {đọc đến đâu in đến đó}

end;

end;

end;
BEGIN

sinh;

chinhphuong;

END.

CÁC BÀI TẬP VỀ BẢN GHI

BÀI TẬP 1

1. 
   Đưa ra danh sách các cuốn sách của nhà xuất bản Giáo dục.
   
2. 
   Tính tổng số tiền sách.
   
3. 
   Sắp xếp danh sách theo năm xuất bản giảm dần và ghi kết quả ra màn hình.
   
4. 
   In ra màn hình các cuốn sách có giá tiền<=10.000đ và xuất bản sau năm 2000.
   

HƯỚNG DẪN

Khai báo kiểu dữ liệu mô tả sách như sau:

type

sach = record

nxb : string[20]; {tên Nhà xuất bản}

namxb : integer; {năm xuất bản}

soluong : integer; {số lượng}

gia : real; {giá tiền}

end;

var

n : integer;

procedure nhap;

var t : string;

begin

writeln('NHAP THONG TIN VE CAC CUON SACH');

writeln('(nhap ten sach la xau rong neu muon dung)');

repeat

readln(t);

if t='' then break;

n := n + 1;

with ds[n] do begin

ten := t;

write('NXB: ');readln(nxb);

write('Nam xuat ban: ');readln(namxb);

write('So luong: ');readln(soluong);

write('Gia tien: ');readln(gia);

end;

until false;

procedure insach;

var

i : integer;

Clrscr;

for i:=1 to n do

with ds[i] do

if nxb='Giao duc' then begin

writeln('Ten:',ten);

writeln('Nam xuat ban:',namxb);

writeln('So luong:',soluong);

writeln('Gia tien:',gia);

end;

readln;

procedure tinh;

var i : integer;

tong : real;

begin

tong := 0;

with ds[i] do tong := tong + gia * soluong;

writeln('TONG GIA TRI CUA TAT CA CAC CUON SACH:', tong:0:3);

end;

procedure sxep;

var i,j : integer;

tg : sach;

begin

for i := 1 to n do

if ds[i].namxb < ds[j].namxb then begin

tg := ds[i]; ds[i] := ds[j]; ds[j] := tg;

end;

with ds[i] do begin

writeln('Ten:',ten);

writeln('Nam xuat ban:',namxb);

writeln('So luong:',soluong);

writeln('Gia tien:',gia);

end;

readln;

procedure inds;

var i : integer;

begin

for i := 1 to n do

with ds[i] do

if (gia <= 10000) and (namxb >= 2000) then writeln(ten);

end;
Chương trình chính: Lần lượt gọi các chương trình con theo thứ tự:

BEGIN

insach;

sxep;

readln;

BÀI TẬP 2

1. 
   Nhập thông tin cán bộ từ file văn bản CANBO.TXT. Các thông tin gồm tên, tuổi, hệ số lương, phụ cấp, mỗi thông tin trên một dòng.
   

2. 
   Đưa ra danh sách các bộ trẻ (tuổi <= 30), in đầy đủ các thông tin
   
3. 
   Sắp xếp tên cán bộ theo abc và ghi lên file truy cập trực tiếp SAPXEP.DAT.
   
4. 
   Đọc danh sách từ file SAPXEP.DAT, in ra màn hình các cán bộ có thu nhập từ 3 triệu trở lên.
   

HƯỚNG DẪN

Toàn văn chương trình:

uses crt;

type

ten : string[20];

tuoi : byte;

hsl, phucap, thunhap: real;

end;

var

n : integer;

(*********************************************)

procedure nhap;

var f : text;

begin

n := 0;

n := n + 1;

with ds[n] do begin

readln(f,ten);

readln(f,tuoi);

readln(f,hsl);

readln(f,phucap);

thunhap := hsl * 350000 + phucap;

end;

end;

end;

procedure in30;

var i : integer;

begin

for i := 1 to n do

with ds[i] do

if tuoi <= 30 then begin

writeln('Ten:',ten);

writeln('Tuoi:',tuoi);

writeln('He so luong:',hsl :0 :3);

writeln('Phu cap:',phucap :0 :3);

writeln('Thu nhap:',thunhap :0 :3);

end;

(*********************************************)

procedure sxep;

var i,j : integer;

tg : canbo;

begin

for j := i + 1 to n do

if ds[i].ten > ds[j].ten then begin

tg := ds[i]; ds[i] := ds[j]; ds[j] := tg;

end;

end;

procedure ghitep;

var f : file of canbo;

i : integer;

begin

assign(f,'SAPXEP.DAT'); rewrite(f);

close(f);

end;

procedure doctep;

i : integer;

begin

assign(f,'SAPXEP.DAT'); reset(f);

while not eof(f) do begin

i := i + 1;

read(f,ds[i]);

end;

n := i;

end;

procedure in3M;

var i : integer;

begin

for i := 1 to n do

with ds[i] do

if thunhap >= 3000000 then begin

writeln('Ten:',ten);

writeln('Tuoi:',tuoi);

writeln('Thu nhap:',thunhap :0 :3);

end;

BEGIN

in30;

in3M;

END.