Bài 15: Thao tác với tệp

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

a:array[1..100]of integer;

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

const fi='dulieu.inp'

fo='kq.inp'

var f1,f2:text;

a,b,c,delta:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b,c);

delta:=sqr(b)-4*a*c;

if delta<0 then writeln(f2,'Phuong trinh vo nghiem');

if delta=0 then writeln(f2,'Phuong trinh co nghiem kep la: ',-b/(2*a):4:2);

if delta>0 then 

begin

writeln(f2,'Nghiem thu nhat la: ',(-b+sqrt(delta))/(2*a):4:2);

writeln(f2,'Nghiem thu hai la: ',(-b-sqrt(delta))/(2*a):4:2);

end;

close(f1);

close(f2);

end. 

var n,i,dem:longint;
a:array[1..1000000] of longint;
f:array[1..1000000] of boolean;
begin
assign(input,'text.inp'); reset(input);
assign(output,'text.out'); rewrite(output);
read(n); dem:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then
begin
f[i]:=true;
inc(dem);
end;
end;
writeln(dem);
for i:=1 to n do
if f[i] then write(a[i],' ');

end.

const fi='chia.inp'

fo='chia.out'

var f1,f2:text;

a:array[1..100]of integer;

i,n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

for i:=1 to n do

  if a[i] mod 7=2 then write(f2,a[i]:4);

close(f1);

close(f2);

end.

uses crt;

const fi='baitap.txt'

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln('Chu vi la: ',(a+b)*2);

writeln('Dien tich la: ',a*b);

close(f1);

readln;

end.

Xóa, Di chuyển và đổi tên

Subversion cho phép đổi tên và di chuyển các tập tin và thư mục. Vì vậy, có các mục trình đơn để xóa và đổi tên trong trình đơn phụ TortoiseSVN.

Xóa các tập tin và thư mục

Sử dụng TortoiseSVN → Xóa để loại bỏ các tập tin và thư mục khỏi Subversion.

Khi bạn TortoiseSVN → Xóa một tập tin hoặc thư mục, nó được loại bỏ khỏi bản làm việc của bạn ngay lập tức cũng như được đánh dấu xóa khỏi kho trong lần cam kết tiếp theo. Thư mục mẹ của mục đó hiển thị một biểu tượng lớp phủ “được sửa đổi”. Cho tới khi bạn cam kết các thay đổi, bạn có thể lấy lại tập tin bằng cách dùng TortoiseSVN → Hoàn Nguyên trên thư mục mẹ.

Nếu bạn muốn xóa một mục khỏi kho lưu trữ, nhưng giữ nó tại địa phương như là một tập tin / thư mục không được phiên bản, sử dụngTrình đơn ngữ cảnh mở rộng → Xóa (giữ lại địa phương) . Bạn phải giữ phím Shift trong khi nhấp chuột phải vào mục trong cửa sổ danh sách thám hiểm (cửa sổ bên phải) để thấy điều này trong trình đơn ngữ cảnh mở rộng.

Nếu một mục được xóa thông qua explorer thay vì dùng trình đơn ngữ cảnh TortoiseSVN, hộp thoại cam kết hiển thị các mục này như đã mất và để bạn loại bỏ chúng khỏi kiểm soát phiên bản trước khi cam kết. Tuy nhiên, nếu bạn cập nhật bản làm việc, Subversion sẽ phát hiện mục bị mất và thay thế nó với phiên bản mới nhất từ kho. Nếu bạn cần xóa một tập tin được đánh phiên bản, luôn luôn sử dụngTortoiseSVN → Xóa để Subversion không phải đoán điều bạn thật sự muốn làm.

Di chuyển tập tin và thư mục

Nếu bạn muốn làm một đổi tên tại chỗ đơn giản của một tập tin hoặc thư mục, sử dụng Trình đơn ngữ cảnh → Đổi tên ... Nhập tên mới cho mục đó và bạn xem như xong.

Nếu bạn muốn di chuyển các tập tin vòng vòng bên trong bản sao làm việc của bạn, có lẽ đến một thư mục con khác, sử dụng xử lý chuột phải kéo-và-thả:

lựa chọn các tập tin hoặc thư mục mà bạn muốn di chuyển

kéo phải chúng đến vị trí mới bên trong các bản sao làm việc

thả nút chuột phải

trong trình đơn bật lên chọn Trình Đơn Ngữ Cảnh → SVN Di chuyển các tập tin được phiên bản tới đây

Sửa chữa đổi tên tập tin

Đôi khi IDE thân thiện của bạn sẽ đổi tên tập tin cho bạn như là một phần của bài tập cấu trúc lại, và tất nhiên nó không báo cho Subversion. Nếu bạn cố gắng cam kết thay đổi của bạn, Subversion sẽ xem tên tập tin cũ như đã bị mất tích và tên mới như là một tập tin không phiên bản. Bạn chỉ có thể kiểm tra tên tập tin mới để có được nó được thêm vào, nhưng sau đó bạn sẽ mất truy tìm lịch sử, bởi Subversion không biết các tập tin có liên quan.

Một cách tốt hơn là để thông báo cho Subversion rằng sự thay đổi này thực sự là một đổi tên, và bạn có thể làm điều này trong hộp thoạiCam kết và Kiểm tra cho sửa đổi . Đơn giản chỉ cần chọn cả hai tên (mất tích) và tên mới (chưa phiên bản) và sử dụng Trình Đơn Ngữ Cảnh → Sửa chữa Di chuyển để ghép hai tập tin như đổi tên một.

Xóa các tập tin chưa phiên bản

Thông thường bạn đặt danh sách bỏ qua của bạn theo cách mà tất cả các tập tin được tạo ra được bỏ qua trong Subversion. Nhưng điều gì sẽ xảy ra nếu bạn muốn để xóa tất cả những mục được bỏ qua để sản xuất một bản xây dựng sạch? Thông thường, bạn sẽ thiết lập rằng trong makefile của bạn, nhưng nếu bạn gỡ rối các makefile, hoặc thay đổi hệ thống xây dựng nó rất hữu ích để có một cách để dọn dẹp các sàn.

TortoiseSVN chỉ cung cấp một tùy chọn sử dụng Trình Đơn Ngữ Cảnh mở rộng → Xóa mục chưa phiên bản ... . Bạn phải giữShift trong khi cách nhấp chuột phải vào một thư mục trong cửa sổ danh sách thám hiểm (cửa sổ bên phải) để thấy điều này trong trình đơn ngữ cảnh mở rộng. Điều này sẽ tạo ra một hộp thoại trong đó liệt kê tất cả các tập tin chưa phiên bản bất cứ nơi nào trong bản sao làm việc của bạn. Sau đó, bạn có thể chọn hoặc bỏ chọn các mục được gỡ bỏ.

Khi các hạng mục bị xóa, thùng rác được sử dụng, vì vậy nếu bạn phạm sai lầm ở đây và xóa một tập tin mà cần phải có được phiên bản, bạn vẫn có thể phục hồi nó.

có chức năng giúp cho chúng ta có thể thực hiện được những bài toán khi dữ liệu vào nằm trên tệp

var a,b,c:real;

begin

assign(input,'canh-huyen.inp'); reset(input);

assign(output,'canh-huyen.out'); rewrite(output);

read(a,b);

c:=sqr(a*a)+sqr(b*b);

write(c);

end.

const fi='dulieu.txt'     

fo='ketqua.txt'

var f1,f2:text;   

a,b,c,d:array[1..100]of integer;   

i,n,dem,dem1:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

begin     

n:=n+1;     

readln(f1,a[n],b[n]); 

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

if a[i]>b[i] then     

begin       

inc(dem);       

inc(dem1);       

c[dem]:=a[i];       

d[dem]:=b[i];     

end 

else begin         

inc(dem);         

inc(dem1);         

c[dem]:=b[i];         

d[dem]:=a[i];       

end;

for i:=1 to dem do 

write(f2,c[i]:4);

writeln(f2);

for i:=1 to dem1 do 

write(f2,d[i]:4);

close(f1);

close(f2);

end.

Câu 1: 

uses crt;

const fi='nguon.txt'

var f1:text;

a,b,c:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

assign(f1,fi); rewrite(f1);

writeln(f1,a);

writeln(f1,b);

writeln(f1,c);

close(f1);

readln;

end.

Câu 2: 

const fi='nguon.txt'

fo='kq.txt'

var f1,f2:text;

a,b,c,max,min:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a);

readln(f1,b);

readln(f1,c);

writeln(f2,(a+b+c)/3:4:2);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(f2,max);

min:=a;

if min>b then min:=b;

if min>c then min:=c;

writeln(f2,min);

close(f1);

close(f2);

end.