Tiết 34 - BTTH 5

TRƯỜNG TRUNG HOG PHO TRONG Buôn Đôn TIN HOC 11... Chương trình được viết lại như sau: Var I,x:Byte; a:string;palindrome:boolean; Begin Write Nhap vao xau: `; Readina; X:=lengtha; Pa

TRƯỜNG TRUNG HOG PHO TRONG

Buôn Đôn

TIN HOC 11

for reine ——=— —

BAI TAP VA THUC HANH 5

Thoi gian 1 tiét

Bài thực hành †1: Quan sát chương trình sau

-Hx ` Ni

ã a

var i,x:byte;

a,.p-istring;

begin

write¢’Nhap vao xau:’);

"eadln<a}>zs

x:z:=lengthéca>z

¬

Gv for i:=x downto 1 do

p:=ptalil;

if a=p then

writeC’Rau la palindrome’ >

else

readin;

- 5:46 ;

| Fi Help F2 Save F3 Open Alt+F9 Compile F? Make Al1t+F1@ Local menu

Hãy viết lại chương trình trên, trong đó không dùng biến xâu p.

Chương trình được viết lại như sau:

Var I,x:Byte;

a:string;palindrome:boolean;

Begin

Write( Nhap vao xau: `);

Readin(a);

X:=length(a);

Palindrome:=true;

For t:= 1 to length(a) div 2 do

if ali] <> a[x-i] then palindrome:=false;

lf palindrome then

write(Xau la palindrome’)

Else

write(Xau khong la palindrome’);

ReadIn;

End

c\ Borland Pascal 7.0

dit earch un ompile e buc tions

indow

NONRHE88 PñS

begin

var i,x:byte;

a:strlingš pa Lindrone : boo lean š

1teC?Nhap vao xau:’);

readln(a);

x:=lengthad;

palindrome :=true;

for i:=1 to length<a> div 2 do

if alil<>alx-il then palindrome :=false;

if palindrome then_

write¢’au la palindrome’ >

else

write¢’au khong la palindrome’ );

readln;

Compile Make Local menu

xâu kí tự S và thông báo ra màn hình sô lân xuât hiện của môi cAư cái tiêng Anh trong S

Chương trình được viết lại như sau:

Var I,x:Byte;

a:string;palindrome:boolean;

Begin

Write(Nhap vao xau: `);

Readin(a);

X:=length(a);

Palindrome:=true;

For t:= 1 to length(a) div 2 do

if ali] <> a[x-i] then palindrome:=false;

lf palindrome then

write(Xau la palindrome’)

Else

write(Xau khong la palindrome);

ReadIn:

End

DẶN DÒ

1 Thực hiện bài tập chương 4 - Sach bai tap

2 Thực hiện bai tap s6 10 -Trang 80 _ Sach giáo khoa

3 Xem trước §13 _ “Kiểu bản ghi” _ Trang 74- Sách

giao khoa

4 Xem nội dung phụ lục B_ “Moi trwo’ng Turbo Pascal”

Trang 122 _ Sách giáo khoa.

ÀI HỌC ĐÃ `“

` Ấ