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

Tuyển nhân sự diễn đàn 2014

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

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

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

Tin tức công nghệ mới nhất

Sản phẩm đáng chú ý tại Asus Expo 2014
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
    623
    Cảm ơn
    743
    Điểm
    604/298 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
    623
    Cảm ơn
    743
    Điểm
    604/298 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
    428
    Cảm ơn
    433
    Điểm
    633/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
  •