In Ma Trận Chuyển Vị | VN4000 PASCAL

VN4000 PASCAL

Lý thuyết và Bài tập Lập trình Pascal

  • Home
  • About us

Tổng bình phương số âm trong ma trận Ma trận chuyển vị 2

In ma trận chuyển vị

January 2, 2012

vn4000 Ví dụ và Bài tập lập trình Pascal Leave a comment

Chương trình In ma trận chuyển vị

Viết chương trình nhập vào một ma trận. In ma trận chuyển vị của nó ra màn hình. Ma trận B là ma trận chuyển vị của ma trận A nếu các phần tử của chúng có quan hệ B[i, j] = A[j, i].

Program Ma_Tran_Chuyen_Vi; Uses Crt; Type MT = array[1..20,1..20] of integer; Var a,b:MT; n,m:integer; Procedure Input(Var a:MT; n,m:integer); Var i, j:integer; Begin For i:=1 to n do For j:=1 to m do Begin Write(‘a’,i,j,’=’); Readln(a[i,j]); End; End; Procedure Output(a:MT;n,m:integer); Var i,j:integer; Begin For i:=1 to n do Begin For j:=1 to m do write (a[i,j]:3); writeln; End; End; Procedure Chuyenvi(a:MT;n,m:integer; var b:MT); Var i,j:integer; Begin

For j:=1 to m do For i:=1 to n do

b[j,i]:=a[i,j]; End;

Begin Clrscr; Writeln(‘TIM MA TRAN CHUYEN VI’); Write(‘Nhap vao so dong n = ‘);readln(n); Write(‘Nhap vao so cot m = ‘);readln(m); Input(a,n,m); Writeln(‘Ma tran a la:’); Output(a,n,m); Chuyenvi(a,n,m,b); Writeln(‘Ma tran chuyen vi b la:’); Output(b,m,n);

Readln;

End.

Share this:

  • Facebook
  • X
Like Loading...

Related

Comments are closed.

Tổng bình phương số âm trong ma trận Ma trận chuyển vị 2

Tìm kiếm

Bài viết mới

  • Bài 29 FULL SCREEN cho DOSBOX
  • Bài 28 Runtime Error 200
  • Bài 27 Một Số Hàm Số
  • Bài 26 Cấu trúc rẽ nhánh và lựa chọn phần 3
  • Bài 25 Cấu trúc rẽ nhánh và lựa chọn phần 2

Danh mục

  • Lý thuyết lập trình Pascal
  • Ví dụ và Bài tập lập trình Pascal

Create a free website or blog at WordPress.com.

Privacy & Cookies: This site uses cookies. By continuing to use this website, you agree to their use. To find out more, including how to control cookies, see here: Cookie Policy
  • Reblog
  • Subscribe Subscribed
    • VN4000 PASCAL
    • Sign me up
    • Already have a WordPress.com account? Log in now.
    • VN4000 PASCAL
    • Customize
    • Subscribe Subscribed
    • Sign up
    • Log in
    • Copy shortlink
    • Report this content
    • View post in Reader
    • Manage subscriptions
    • Collapse this bar
%d Design a site like this with WordPress.comGet started

Từ khóa » Bài Tập Ma Trận Chuyển Vị