n số nguyên ngẫu nhiên. Nhập 2 số m, n từ bàn phím, sau đó sinh ngẫu nhiên m có giá trị từ 15 đến 300 để ghi vào file BANG.TXT. Sau đó thực hiện các yêu cầu sau: n số đã sinh dạng ma trận m dòng, n cột.

Chương trình:

var m,n : integer;

    f : text;

procedure sinh;

var

    i,j : integer;

begin

     write('Nhap vao 2 so m,n: '); readln(m,n);

     assign(f,'BANG.TXT'); rewrite(f);

     writeln(f,m,' ',n);

     for i := 1 to m do begin

         for j := 1 to n do

             write(f,15 + random(300-15+1) : 6); {sinh số ngẫu nhiên từ 15 đến 300}

         writeln(f);

     end;

     close(f);

end;

{Hàm chính phương}

function cp(k : integer) : boolean;

begin

     if sqr(round(sqrt(k))) = k then cp := true

     else cp := false;

end;

 

procedure chinhphuong;

var

    i,j,k : integer;

begin

     assign(f,'BANG.TXT'); reset(f);

     readln(f,m,n);

     writeln('CAC SO CHINH PHUONG CUA BANG:');

     for i := 1 to m do begin

         for j := 1 to n do begin

             read(f,k);

             if cp(k) then write(k,' '); {vừa đọc vừa xử lí}

         end;

     end;

     close(f);

end;

 

procedure inbang;

var

    i,j,k : integer;

begin

     assign(f,'BANG.TXT'); reset(f); {mở lại để in dạng ma trận}

     readln(f,m,n);

     writeln(#10,'IN BANG DANG MA TRAN:');

     for i := 1 to m do begin

         for j := 1 to n do begin

             read(f,k);

             write(k : 6);   {đọc đến đâu in đến đó}

         end;

         writeln;

     end;

     close(f);

end;

 

BEGIN

     sinh;

     chinhphuong;

     inbang;

END.