Page 97 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 97

Process;
END.
Cách ghi kết quả trong file Vtron.out như sau: trong mỗi dòng ghi một cách đặt các số
theo thứ tự từ 1 đến 15 theo cách đánh số như trên hình vẽ. Số cách xếp được ghi ở cuối
tệp.

(Lời giải của bạn Đỗ Thanh Tùng - Lớp 12 Tin - PTTH chuyên Thái Bình)

Bài 46/2000 - Đảo chữ cái
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R+,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
(*Du lieu vao: file 'inp.txt' voi cac tu khac nhau, moi tu ghi o mot dong;
Du lieu ra: file 'out.txt' *)
PROGRAM Sinh_hoan_vi;
USES Crt;
CONST
MAX = 100;
INP = 'inp.txt';
OUT = 'out.txt';
TYPE
STR = array[0..max] of char;
VAR
s :str;
f,g :text;
n :longint; { so luong tu}
time:longint ;

PROCEDURE Nhap_dl;
Begin
Assign(f,inp);
Assign(g,out);
Reset(f);
Rewrite(g);
Readln(f,n);
End;

PROCEDURE DocDay(var s:str);

Tin học & Nhà trường 100 Đề Toán - Tin học