Nội dung của bài thực hành số 5 nhằm giúp các em biết khai báo xâu, nhập dữ liệu cho xâu, đưa ra màn hình giá trị của xâu; biết cách duyệt qua tất cả các kí tự của xâu và sử dụng hàm và thủ tục chuẩn đã học. Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
Làm quen với việc tìm kiếm, thay thế và biến đổi xâu.
Gợi ý làm bài:
Xâu đối xứng có tính chất: Đọc nó từ trái sang phải cũng thu được kết quả giống như đọc từ phải sang trái (còn được gọi là xâu Palindrome).
var i, x: byte;
a, p: string;
BEGIN
write(‘Nhap vao xau:’);
readln(a);
x:= length(a);
p:= ' ';
for i:=x downto 1 do
p:= p+a[i];
if a=p then
write(‘Xau la Palindrome’)
else
write(‘Xau khong la Palindrome’);
readln;
END.
Uses crt;
Var s: string;
x,i: byte;
palin: Boolean;
Begin
Clrscr;
Write(' Nhap xau s=');
readln(s);
x:=length(s);
palin:=true;
For i:=1 to (x div 2) do
begin
If s[i]<> s[x-i+1] then palin:=false;
break;
end;
If palin then write('doi xung')
else write('khong doi xung');
readln;
End.
Gợi ý làm bài:
Program bai02;
Uses crt;
Var a: array['A'.. 'Z'] of byte;
s: string;
i: byte;
c: char;
Begin
clrscr;
write('nhap xau :');
readln(s);
for c:='A' to 'Z' do a[c]:=0;
for i:=1 to length(s) do
begin
s[i]:=upcase(s[i]);
if (s[i]>='A') and (s[i]<='Z') then
a[s[i]]:=a[s[i]]+1;
end;
for c:='A' to 'Z' do
if a[c]<>0 then
writeln( 'So lan xuat hien', c,': ',a[c]);
readln;
End.
Gợi ý làm bài:
Uses crt;
Var s: string;
i: byte;
Begin
Clrscr;
Write('Nhap xau S:'); Readln(s);
i:=Pos('anh',s);
While i<> 0 do
Begin
Delete(s,i,3);
Insert('em',s,i);
I:=Pos('anh',s);
End;
writeln(S);
readln;
End.
Sau khi học xong Bài tập và thực hành 5, các em cần nắm các kiến thức:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài tập và thực hành 5 cực hay có đáp án và lời giải chi tiết.
Để tạo liên kết giữa các bảng, ta thực hiện chọn:
Các bước để tạo liên kết giữa các bảng là:
1. Chọn Tool/ Relationships…
2. Tạo liên kết đôi một giữa các bảng
3. Đóng hộp thoại Realationships/ Yes để lưu lại
4. Chọn các bảng sẽ liên kết
Câu 3-5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Để tạo liên kết giữa các bảng, ta thực hiện chọn:
Các bước để tạo liên kết giữa các bảng là:
1. Chọn Tool/ Relationships…
2. Tạo liên kết đôi một giữa các bảng
3. Đóng hộp thoại Realationships/ Yes để lưu lại
4. Chọn các bảng sẽ liên kết
Điều kiện để tạo mối liên kết giữa hai bảng:
Khi liên kết bị sai, ta có thể sửa lại bằng cách chọn đường liên kết cần sửa, sau đó ta thực hiện:
Để xóa liên kết, trước tiên ta chọn liên kết cần xóa. Thao tác tiếp theo nào sau đây là sai?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
a) Hãy chạy thử chương trình sau:
program vd2;
uses crt;
var
i,x:byte;
a,p:string;
begin
clrscr;
write(‘nhap xau:’);
readln(a);
x:=length(a);
p:=”;
for i:=x downto 1 do
p:=p+a[i];
if a=p then
write(‘xau la palindrome’)
else
write(‘xau khong phai la palindrome’);
readkey;
end.
Câu trả lời của bạn
Phân tích:
Ta sẽ tạo một mảng gồm 26 kí tự để lưu trữ số lần xuất hiện của các chữ cái trong bảng chữ cái tiếng Anh. Phần từ đầu tiên sẽ lưu số lần xuất hiện của kí tự ‘A’ (do đề bài yêu cầu không phân biệt chữ thường với chữ hoa). Để lấy vị trí mảng của một kí tự nào đó ta dùng câu lệnh:
ord(upcase(a[i]))-ord(‘A’)
ord sẽ lấy giá trị tương ứng của kí tự trong bảng mã ASCII sau đó trừ đi giá trị của ‘A’ trong bảng ASCII .
Ví dụ :
Mã ASCII của ‘A’ là 65 thì vị trí trong mảng của nó là 65-65 =0
Mã ASCII của ‘A’ là 66 thì vị trí trong mảng của nó là 66-65 =1
program vd2;
uses crt;
var
a:string;
gt:array[0..26] of integer;
i:integer;
begin
clrscr;
write(‘nhap xau:’);
readln(a);
for i:=0 to 25 do
gt[i]:=0;
for i:=1 to length(a) do
begin
gt[ord(upcase(a[i]))-ord(‘A’)]:=gt[ord(upcase(a[i]))-ord(‘A’)]+1;
end;
for i:=0 to 25 do
if gt[i]>0 then
writeln(chr(ord(‘A’)+i),’:’,gt[i]);
readkey;
end.
Câu trả lời của bạn
ý tưởng của mỗi chương trình trong 1 bài
Câu trả lời của bạn
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *