De Thi LT Pascal Hoc Phan 2

BT 6.3 Cho số tự nhiên n(n<256).Xây dựng tập tất cả các số chính phương <= n.
uses crt;
Var A:set of byte;
n,i:byte;
Begin
clrscr;
writeln(`Xay dung tap cac so chinh phuong <=n (n<256)`);
repeat
write(`Nhap n= `); readln(n)
until (n>0) and (n<256);
A:=[];
for i:=0 to n do if frac(sqrt(i))=0 then A:=A+[i];
writeln(`Tap cac so chinh phuong <= `,n,` la:`);
write(`A={`);
for i:=0 to n do
if i in A then write(i:4);
writeln(`}`:4);
writeln(`Da hoan thanh.An phim enter de tro ve!`);
readln
End.

BT 6.4 Cho
Uses crt;
Type CH=set of char;
Var A,B,C,P,Q,R:CH;
i:byte;
Procedure Nhapptu(var A:CH; x:char);
var ch:char;
begin
writeln(`Nhap phan tu cho tap hop `,x);
i:=1; A:=[];
while ch<>#13 do
begin
write(`phan tu thu `,i,` la: `); readln(ch);
A:=A+[ch]; i:=i+1;
end;
clrscr;
end;
Procedure Inptu(var A:CH; x:char);
begin
writeln(`Cac phan tu cua tap hop `,x,` la:`);
for i:=0 to 255 do
if chr(i) in A then write(chr(i),` `);
writeln;
end;
Begin clrscr;
C:=[];
for i:=0 to 255 do C:=C+[chr(i)];
Nhapptu(A,`A`); Nhapptu(B,`B`);
P:=C-A; Q:=C-B; R:=A*B;
Inptu(A,`A`);
Inptu(B,`B`);
Inptu(P,`P`);
Inptu(Q,`Q`);
Inptu(R,`R`);
Readln;
End.

BT 6.5 Cho
Uses crt;
Var A:set of char; B:set of byte;
m,n,i,j,k:byte; ch:char;
Begin clrscr;
repeat
write(`Nhap so ptu cua 2 TH A,B la m,n(0 until (n>0)and(n<17)and(m>0)and(m<17);
writeln(`Nhap ptu tap A(gom cac ki tu):`);
A:=[];
for i:=1 to m do
begin
write(`Ptu thu `,i,` la:`); readln(ch);
A:=A+[ch];
end;
writeln(`Nhap ptu tap B(gom cac so nguyen):`);
B:=[];
for i:=1 to n do
begin
write(`Ptu thu `,i,` la:`); readln(k);
B:=B+[k];
end;
writeln(`Cac ptu cua tich Decac A*A la:`);
for i:= 0 to 255 do
if chr(i) in A then
for j:= 0 to 255 do
if chr(j) in A then write(`(`,chr(i),`,`,chr(j),`)`,`;`);
writeln; writeln;
writeln(`Cac ptu cua tich Decac A*B la:`);
for i:= 0 to 255 do
if chr(i) in A then
for j:= 0 to 255 do
if j in B then write(`(`,chr(i),`,`,j,`)`,`;`);
writeln; writeln;
writeln(`Da hoan thanh xong.An phim enter de tro ve!`);
readln;
End.
BT 6.6 Cho
Uses crt;
Const monan:array[1..10] of string[10]=
(`Tom`,`Ca`,`Trung`,`Bo`,`Lon`,`Ga`,`Vit`,`Dau`,`Khoaitay`,`Rau`