Follow us on...
Follow us on Facebook

VN-Zoom.com chung tay vì Cộng đồng

Kaka - ứng dụng hát Karaoke trên mobile

Tuyển Mod Mobile diễn dàn Vn-Zoom.com 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Vui thể thao quà ý nghĩa

VPS siêu rẻ cho VNZ 150k/tháng.Server 2 CPU, 16GB RAM,300GB SAS 3tr/tháng
kết quả từ 1 tới 4 trên 4
  1. #1
    rac1's Avatar
    rac1 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Apr 2011
    Đến từ
    Hà Nội
    Bài
    631
    Cảm ơn
    747
    Điểm
    602/299 bài viết
    VR power
    0

    Default

    Trích tuanhuy180903 View Post
    Nhập vào từ bàn phím mảng hai chiều gồm các số nguyên có kích thước nxn
    - Tính tổng các phần tử nằm trên đường chéo chính (đường chéo chính là vị trí a11, a22, a33, a44,... ann)
    - Tính tích các phần tử nằm ở hàng chẵn cột lẻ

    Cac AE giai gium BT. Thanks Nha!
    Code:
    Program Ma_tran;
    Uses crt;
    Var
      a:array[1..100,1..100] of longint;
      m,n,i,j,tong:longint;
    Begin
      Clrscr;
      Write('Nhap hang cua ma tran:');
      Readln(n);
      For i:=1 to n do
        For j:=1 to n do
          Begin
            Write('Nhap a[',i,',',j,']:');
            Readln(a[i,j]);
          End;
      For i:=1 to n do
        tong:=tong+a[i,i];
      Write(tong);
      Readln;
    End.

  2. #2
    tuanhuy180903's Avatar
    tuanhuy180903 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jan 2008
    Bài
    11
    Cảm ơn
    1
    Điểm: 1/1 bài viết
    VR power
    0

    Default Bai tap ve mang hai chieu trong pascal

    Nhập vào từ bàn phím mảng hai chiều gồm các số nguyên có kích thước nxn
    - Tính tổng các phần tử nằm trên đường chéo chính (đường chéo chính là vị trí a11, a22, a33, a44,... ann)
    - Tính tích các phần tử nằm ở hàng chẵn cột lẻ

    Cac AE giai gium BT. Thanks Nha!

  3. #3
    rac1's Avatar
    rac1 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Apr 2011
    Đến từ
    Hà Nội
    Bài
    631
    Cảm ơn
    747
    Điểm
    602/299 bài viết
    VR power
    0

    Default

    phần 2:
    Code:
    Program Ma_tran;
    Uses crt;
    Var
      a:array[1..100,1..100] of longint;
      m,n,i,j,tong,tich:longint;
    Begin
      Clrscr;
      Write('Nhap hang cua ma tran:');
      Readln(n);
      For i:=1 to n do
        For j:=1 to n do
          Begin
            Write('Nhap a[',i,',',j,']:');
            Readln(a[i,j]);
          End;
      tich:=1;
      For i:=1 to n do
        For j:=1 to n do
          Begin
            tong:=tong+a[i,i];
            If (i mod 2=0) and (j mod 2=1) then tich:=tich*a[i,j];
          End;
      Writeln(tong);
      Writeln(tich);
      Readln;
    End.
    Thay đổi nội dung bởi rac1; 10-08-2011 lúc 16:46.

  4. #4
    Đam mê lập trình's Avatar
    Đam mê lập trình vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    May 2011
    Đến từ
    Trên núi
    Bài
    429
    Cảm ơn
    437
    Điểm
    625/248 bài viết
    VR power
    0

    Default

    Code:
    Program Ma_tran;
    Uses crt;
    Var
      a:array[1..100,1..100] of longint;
      m,n,i,j,tong,tich:longint;
    Begin
      Clrscr;
      Write('Nhap hang cua ma tran:');
      Readln(n);
      For i:=1 to n do
        For j:=1 to n do
          Begin
            Write('Nhap a[',i,',',j,']:');
            Readln(a[i,j]);
          End;
      tich:=1;
      For i:=1 to n do
        For j:=1 to n do
          Begin
            tong:=tong+a[i,i];
            If (i mod 2=0) and (j mod 2=1) then tich:=tich*a[i,j];
          End;
      Writeln(tong);
      Writeln(tich);
      Readln;
    End.

  5. Có 1 thành viên cảm ơn Đam mê lập trình cho bài viết này:
    rac1 (10-08-2011)

 

 

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •