Viết Chương Trình Sắp Xếp Mảng A Theo Thứ Tự Tăng Dần , Giảm Dần ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

tranthihongha
Chưa có nhóm

Trả lời
0
Điểm
27
Cảm ơn
0

Tin Học
Lớp 11
10 điểm
tranthihongha - 22:57:47 13/06/2020

viết chương trình sắp xếp mảng A theo thứ tự tăng dần , giảm dần ( sử dụng chương trình con )

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

ttphulhp
Chưa có nhóm

Trả lời
913
Điểm
17366
Cảm ơn
515

ttphulhp

Câu trả lời hay nhất!
13/06/2020

program oken;uses crt;type mang= array [1..100] of integer;var a: mang; n: integer;procedure nhap(x: longint; var d: mang); var i: longint; begin for i:=1 to x do begin write('A[',i,']: '); readln(d[i]); end; end;procedure xuat(d: mang; pt:longint); var i: longint; begin for i:=1 to pt do write(d[i],' '); writeln; end;procedure sxgiam(var d: mang; pt:longint); var i,j,tam: longint; begin for i:=1 to pt-1 do for j:=i+1 to pt do if d[i]<d[j] then begin tam:=d[i]; d[i]:=d[j]; d[j]:=tam; end; end;procedure sxtang(var d: mang; pt:longint); var i,j,tam: longint; begin for i:=1 to pt-1 do for j:=i+1 to pt do if d[i]>d[j] then begin tam:=d[i]; d[i]:=d[j]; d[j]:=tam; end; end;begin clrscr; write('Nhap so phan tu cua mang A: '); readln(n); nhap(n,a); xuat(a,n); write('Sap xep mang A tang dan: ');sxtang(a,n); xuat(a,n); write('Sap xep mang A giam dan: ');sxgiam(a,n); xuat(a,n); readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar3 voteGửiHủy

Cảm ơn 1
Báo vi phạm

- ttphulhp
- Chưa có nhóm
- Trả lời
  913
- Điểm
  17366
- Cảm ơn
  515
thanks bạn nha :D

Đăng nhập để hỏi chi tiết avatar

manhquang0306
team IQ vô cực

Trả lời
2289
Điểm
45102
Cảm ơn
1741

manhquang0306

26/05/2021

uses crt; type kieumang=array[1..10000] of integer;var a:kieumang; n,i,j:integer;{---Nhap---}procedure nhap_mang(var a:kieumang; n:integer);begin for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(a[i]); end;end;{---Xuat---}procedure xuat_mang(var a:kieumang; n:integer);begin for i:=1 to n do write(a[i],' ');end;{---Tang-dan---}procedure tang_dan(var a:kieumang; n:integer); var tg,i,j:integer; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; end;{---Giam-dan---}procedure giam_dan(var a:kieumang; n:integer); var tg,i,j:integer; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; end;{---Chuong-trinh-chinh---}BEGIN clrscr; write('Nhap so luong phan tu: '); readln(n); nhap_mang(a,n); xuat_mang(a,n); writeln; write('Day tang dan: '); tang_dan(a,n); xuat_mang(a,n); writeln; write('Day giam dan: '); giam_dan(a,n); xuat_mang(a,n); readln;END.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy