YOMEDIA
NONE

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.

a) In m

b) In ra các số chính phương.

Yêu cầu: không được dùng mảng 2 chiều để lưu trữ dữ liệu.

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • 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.

      bởi Aser Aser 30/11/2021
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
AANETWORK
OFF