Giup em voi, Ngay mai nop gap!!!!!!!!!!

[anhcomno3]

MẢNG Hai CHIỀU
In ra màn hình:
1.Tổng các phần tử ở đường chéo chính
2. Dong 2, cot 3
3. In ra phần tử dòng k
4. Xét xem ma trận có số dương nào ko? Nếu có thi bao nhiêu số?
5. Kiểm tra tính đối xứng ma trận
6. DOng x cột y
7. phan tu m ở vị trí nao?
Mấy a e làm nhanh lên nhé!!
Phẩp nộp gấp!
Thank!

[gietbo]

Đừng ai giúp nó nha !!!!!!!!!!!!!!!!!

[anhcomno3]

sao lai the?
Em co lam j dau ma ko ai guiup em?

[kingnand]

Các anh chị toàn đem bài tập thầy cho lên hỏi, những câu đơn giản thế này mà không tự làm thì code gì nữa bây giờ Phải tự tìm hiểu chứ, vả lại đây là những vấn đề căn bản thì chắc là phải có học lý thuyết rồi thầy/cô mới cho. Không lo suy nghĩ mà chỉ chờ người khác code sẵn rồi lấy về nộp. Nếu có nói gì sai sự thật thì bạn góp ý nhe. <xin lỗi vì mình đã quá thẳng thắn>

[Ricky1990]

Quan điểm là hỏi những câu phát sinh trong quá trình học, chứ không phải hỏi cái câu cơ bản và đơn giản đến nỗi sinh viên mới học cũng phải làm được ... kiểu này sẽ ỉ lại và không phát triển được bản thân .

Theo mình, bạn nên tự nghiên cứu và học đi .

[Dustin Đỗ]

Đồng ý với bạn Kingnand và Ricky90. Các bài tập này thực sự rất đơn giản. Các bạn chú ý nghe giảng + tìm hiểu tài liệu thì làm được thôi. Cứ như thế thì VN làm sao ptriển đc!!

[auauau97]

var a:array[1..50,1..50] of real;
n,i,j,k,duong,x,y: integer;
s,m:real;
begin 
 writeln;
 write(' nhap do dai 1 chieu cua mang :');
 readln(n);
 for i:=1 to n do 
 begin
  for j:= 1 to n do 
   begin
   write(' nhap phan tu ');
   read( a[i,j]); write(a[i,j],' ');
   end;
  writeln;
 end;
 writeln;
 write(' tong duong cheo chinh: ');
 s:=0;
 for i:=1 to n do s:=s+a[i,i];
 write(s:5:3);
 writeln;
 write(' in dong 2: ');
 for i:=1 to n do write(a[2,i],' ');
 writeln(' in cot 3:');
  for i:=1 to n do writeln(a[i,3]);
 writeln(' nhap k: '); read(k);
 writeln(' in phan tu o dong ',k);
 for i:= 1 to n do write(a[k;i],' ');
 
 writeln(' xet so duong'); duong:=0;
 for i:= 1to n do 
 for j:= 1 to n do 
  begin if a[i,j] > 0 then duong :=duong+1; 
        write(a[i,j],' ');
  end;
 writeln(' co ',duong,' so duong');
 {tim phan tu dong x cot y}
 writeln(' nhap x , y ');
 read(x,y); writeln(' phan tu dong ',x,' cot ',y,' la: ',a[x,y]);
 writeln('nhap m ');read(m);
 for i:= 1 to n do
  for j:=1 to n do if m=a[i,j] then 
    begin
      write(m,' o vi tri dong ',i,' cot ',j );
      break;
      break;
readln;
end.

[=========> Bổ sung bài viết <=========]

Cách để kiểm tra tính đối xúng của ma trận nè bạn :

Kiemtra := TRUE;
    For i:=1 to N do
    For j:=1 to N do
      if A[i, j]<>A[j, i] then Kiemtra:=FALSE ;
    If Kiemtra=TRUE then writeln(‘ Ðối xứng ‘)
    else
      writeln(‘ Không đối xứng ‘);

Trong đó Kiemtra là một biến kiểu lôgic.
Nhận xét rằng hai lệnh For ở trên quét qua tất cả các phần tử của ma trận nên có hơn nửa số lần lặp là thừa. Thật vậy, đường chéo chính chia ma trận ra làm hai phần: nửa trái và nửa phải. Các phần tử trên đường chéo chính thì đối xứng với chính nó nên không cần phải kiểm tra. Nếu mỗi phần tử ở nửa bên trái đều bằng phần tử đối xứng với nó ở nửa bên phải thì ma trận rõ ràng là đối xứng. Vì vậy chỉ cần duyệt kiểm tra các phần tử ở nửa bên trái đường chéo chính là đủ (vùng tam giác).

Thuật toán tốt hơn được đề nghị là :

   
 Kiemtra := TRUE;
    For i:=2 to N do
    For j:=1 to i-1 do
      if A[i, j]<>A[j, i] then Kiemtra:=FALSE ;
    If Kiemtra=TRUE then writeln(‘ Ðối xứng ‘)
    else
      writeln(‘ Không đối xứng ‘);

Hai câu lệnh For trên vẫn còn một nhược điểm là: khi xảy ra A[i,j]<>A[j, i] rồi, lẽ ra có thể dừng lại và kết luận không đối xứng ngay thì các vòng For vẫn tiếp tục, i chạy đến N và j đến i-1.
Bạn có thể chỉnh lại bằng cách thêm break vào :

 Kiemtra := TRUE;
    For i:=2 to N do
    For j:=1 to i-1 do
      if A[i, j]<>A[j, i] then 
        Begin
          Kiemtra:=FALSE ;
          Break;
          Break;
        End;
    If Kiemtra=TRUE then writeln(‘ Ðối xứng ‘)
    else
      writeln(‘ Không đối xứng ‘);

Sử dụng câu lệnh While sẽ khắc phục được nhược điểm này. Chỉ cần xảy ra A[i,j]<>A[j,i] một lần là biến Kiemtra được gán ngay gía trị FALSE, khi đó điều kiện Kiemtra=TRUE bị sai và cả hai vòng lặp đều kết thúc .

      
 Kiemtra:=TRUE;
    i:=2;
    While (Kiemtra=TRUE) and (i<= N) do
      begin
        j:=1;
        While ( Kiemtra=TRUE) and ( j<=i-1) do
          if A[i, j] <> A[j, i] then Kiemtra:=FALSE 
          else 
            j:=j+1;
        i:=i+1;
      end;
    If Kiemtra=TRUE then writeln(‘ Ðối xứng ‘)
    else
      writeln(‘ Không đối xứng ‘);

[/QUOTE]