Trang 2 / 2 FirstFirst 12
Hiển thị kết quả từ 11 đến 13 / 13
  1. #11
    Tham gia
    10-05-2009
    Bài viết
    353
    Like
    23
    Thanked 24 Times in 24 Posts
    hình như tâm trạng bạn hok được tốt nên đọc câu ý hok được hay, sorry, hãy đọc cấu đó với giọng điệu hài hước bạn nhé!

  2. #12
    Tham gia
    10-10-2010
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    mình có một bài tập suy nghĩ mãi không ra mong các anh chị trên diễn đàn giúp đỡ
    đề bài như sau: Xây dựng chuơng trình nhập vào một dãy ma trận cùng cấp n,sau đó tính tổng các ma trận đó

  3. #13
    Tham gia
    17-09-2008
    Bài viết
    4
    Like
    0
    Thanked 0 Times in 0 Posts
    Quote Được gửi bởi vanquyenhp View Post
    Mình được rao một bài tập mà nghĩ mãi không ra, mong các bạn giúp đỡ
    Đề bài: Nhập vào một số n (n là kích thước của một ma trận vuông) và nhập các phần tử cho ma trận đó. Hãy xây dựng thuật toán để in ma trận ra màn hình với điều kiện mà trận in ra phải là ma trận hình xoáy chôn ốc
    Ví dụ về ma trận xoáy trôn ốc
    Code:
     1      2     3     4
    12     13     14    5
    11     16     15    6
    10      9     8     7
    Mong các bạn giúp đỡ
    Thanks!!!!!!!!!!!!!!!!
    {xoan octheo chieu kim dong ho voi n hang, m cot}
    Var A:Array[1..50,1..50] of integer;
    i,j,k,n,m:integer;
    BEGIN
    Write('Nhap so hang va so cot :');Readln(n,m);
    k:=0; i:=1;
    Repeat
    For j:=i to m+1-i do begin inc(k);A[i,j]:=k;end; {sang phai}
    if k=n*m then Break;
    For i:=m+2-j to n-m+j do begin inc(k);A[i,j]:=k;end; {di xuong}
    if k=n*m then Break;
    For j:=i+m-n-1 downto n+1-i do begin inc(k);A[i,j]:=k;end; {sang trai}
    if k=n*m then Break;
    For i:=n -j downto j+1 do begin inc(k);A[i,j]:=k;end; {di len}
    if k=n*m then Break;
    Until k=n*m;

    {---Viet ra mang A---}
    For i:=1 to n do
    Begin
    for j:=1 to m do Write(A[i,j]:3);
    Writeln;
    end;
    END.
    ══════ 10:1 ═════◄■▒▒▒▒▒▒▒▒▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─

Trang 2 / 2 FirstFirst 12

Bookmarks

Quy định

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