help me bai kiem tra kho qua

[duythanh8433]

đầu bài là : cho ma trận m x n hãy lập trình
a: đưa ra màn hình mảng vừa nhập
b: nhập vào một số k đêm xem trong mảng có bao nhiêu số giống số k
c: kiểm tra xem trong mảng có bao nhiêu số chính phương
d: kiểm tra xem trong mảng có bao nhiêu số nguyên tố

[QuyNam]

program baitap;
uses crt;
{-- Hàm KT nguyên tố --}
function nt(n : integer) : boolean;
  var i:integer;
  begin
    nt:=false;
    if n<2 then exit;
    for i:=2 to trunc(sqrt(n)) do if n mod i=0 then exit;
    nt:=true;
  end;
{-- Hàm KT số chính phương --}
function cp(n:integer) : boolean;
  var i : integer;
  begin
    cp:=false;
    for i:=1 to trunc(sqrt(n)) do
      if i*i = n then cp:=true; exit;
  end;
{-- Chương trình chính --}
var i,j,m,n,k,a,b,c : integer;
a : array[1..200,1..200] of integer;
begin
clrscr;
write('Nhap m va n : ');
readln(m,n);
write('Nhap k : ');
readln(k);
clrscr;
for i:=1 to m do
  for j:=1 to n do
    begin
      write('A[',i,',',j,'] = ');
      readln(a[i,j]);
      if a[i,j]=k then inc(a);
      if nt(a[i,j])=true then inc(b);
      if cp(a[i,j])=true then inc(c);
    end;
write('Co ',a,' so giong k');
write('Co ',b,' so nguyen to');
write('Co ',c,' so chinh phuong');
readln;
end.

[duythanh8433]

cảm ơn quý nam bài này quá nếu có cách không sử dụng hàm thì có làm được không

[1+1=2]

Kiểm tra số cp phức tạp quá,
scp <~> sqr(trunc(sqrt(n))) = n
Nếu n quá phạm vi integer => x = trunc(sqrt(n)) => x * x = n;

[luongnl]

viết toàn cái khó hiểu

[onix95]

hix hĩ cha? hiểu gì sất

[ma_moi]

úi trời , theo mình bài này thì chuyển sang kiểm tra các số thỏa mãn các yêu cầu của đề bài trong một tập hợp gồm m x n phàn tử Aij của ma trận nói trên rồi giải bình thường. Các bài toán kiểm tra số chính phương, số nguyên tố và kiểm tra số hạng giống nhau đều có trong các sách Pascal cơ bản rồi. Không nhất thiết phải dùng đến hàm cho phức tạp làm gì.

[Nhoc_chuoi]

oác bài này mà cũng hỏi ah T_T