Question

[Lâm Dolce]

cho dãy số A gồm n phần tử (0<n<100)

Viết chương trình thực hiện các yêu cầu sau

1.xây dựng hàm nhập cho phép nhập n phần tử từ bàn phím

2.xây dựng hàm in dãy cho phép in dãy A ra màn hình

3.xây dựng hàm sắp xếp để sắp dãy A theo thứ tự giảm dần theo phương pháp phân đoạn

4.Xây dựng hàm chính để thực hiện gọi các hàm trên

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;
type mang=array[1..100]of integer;
var a:mang;
{-------------------cau-1---------------------------}
function nhap(var b:mang):integer;
var i,n:integer;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(b[i]);
end;
end;
{-------------------cau-2---------------------------}
function xuat(var b:mang):integer;
var i,n:integer;
begin
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(b[i]:4);
end;
{-------------------cau-3---------------------------}
function sapxep(var b:mang):integer;
var i,n,tam,j:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
writeln;
writeln('Day so giam dan la: ');
for i:=1 to n do write(b[i]:4);
end;
{-----------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(a);
xuat(a);
sapxep(a);
readln;
end.