Sinh ngẫu nhiên tệp tăng



Sinh ngẫu nhiên tệp tăng



               Sinh ngẫu nhiên n số tự nhiên  sắp tăng và ghi vào một tệp văn bản có tên cho trước.

Thuật toán
Bạn đọc cùng gia sư tin học tại nhà xem trực tiếp chương trình và giải thích cách làm.
(*  Pascal  *)
(*---------------------------------------
  Sinh ngau nhien n so tu nhien sap tang
  va ghi vao tep van ban co ten cho truoc
----------------------------------------*)
program FincGen;
uses crt;
const BL = #32; { dau cach }
(*---------------------------
       Sinh du lieu
-----------------------------*)
procedure Gen(fn: string; n: integer);
var   f: text; i: integer; x: longint;
begin
assign(f,fn); {fn: file name (ten tep)}
rewrite(f); randomize;
x := 0;
for i:= 1 to n do
begin
x := x+random(10); write(f,x,BL);
{ moi dong trong file chua 20 so }
if i mod 20 = 0 then writeln(f);
end;
if i mod 20 <> 0 then writeln(f);
close(f);
end;
procedure Test;
begin
Gen('DATA.INP',200);
write('Ket'); readln;
end;
BEGIN
Test;
END.

Không có nhận xét nào:

Đăng nhận xét