Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Bóc hộp Wiko Getaway giá rẻ, dáng đẹp và Selfie thì cực Chất

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Reviews hay rinh note 4, galaxy V được vi vu Hàn Quốc

Mời anh em tham gia Vn-zoom support team

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

Tin tức công nghệ sản phẩm mới
kết quả từ 1 tới 6 trên 6
  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
    623
    VZD
    2.323
    Cảm ơn
    743
    Điểm
    604/298 bài viết

    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
    VZD
    181
    Cảm ơn
    1
    Điểm: 1/1 bài viết

    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
    623
    VZD
    2.323
    Cảm ơn
    743
    Điểm
    604/298 bài viết

    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
    428
    VZD
    2.725
    Cảm ơn
    433
    Điểm
    633/248 bài viết

    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)

  6. #5
    nobi pham 97's Avatar
    nobi pham 97 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2014
    Bài
    2
    VZD
    0
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    ẩn m để lm j z

  7. #6
    nobi pham 97's Avatar
    nobi pham 97 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2014
    Bài
    2
    VZD
    0
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default


 

 

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
  •