THPT Chuyên Vị Thanh

Số 04 Đường Đồ Chiểu TX Vị Thanh - Tỉnh Hậu Giang


You are not connected. Please login or register

Bài giả CLB Tin học kì 3

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

1 Bài giả CLB Tin học kì 3 on Tue Dec 02, 2008 8:44 pm

Admin


Admin
Admin
Bài giải CLB Tin học kì III của bạn LƯƠNG VĂN ĐÔ - Lớp 11LH
========================================
Program KTDX;
Var s,s1:string;
f1,f2:text;
Function KT(s:string):boolean;
Var t,j:integer;
Begin
t:=length(s);
For j:=1 to length(s) do
If s[j]=s[t] then
Begin
dec(t);
kt:=true;
End
Else
Begin
kt:=false;
break;
End;
End;
Procedure docfile;
Begin
s:='';
assign(f1,'doixung.inp');
reset(f1);
assign(f2,'doixung.out');
rewrite(f2);
While not eof(f1) do
Begin
While not eoln(f1) do
Begin
read(f1,s1);
s:=s+s1;
End;
readln(f1);
If kt(s)=true then writeln(f2,'YES')
Else writeln(f2,'NO');
s:='';
End;
close(f2);
End;
Begin
docfile;
End.

Xem lý lịch thành viên

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết