Chuyên tin!
Cho dãy số thực bất kì, kiểm tra xem dãy đã sắp xếp chưa
nếu rồi xem là tăng hay giảm
hậu tạ 50 điểm!!!!!
Chuyên tin!
Cho dãy số thực bất kì, kiểm tra xem dãy đã sắp xếp chưa
nếu rồi xem là tăng hay giảm
hậu tạ 50 điểm!!!!!
uses crt;
type mang = array [1..1000] of integer;
var a:mang;
i,j,n:longint;
function tang(a:mang):boolean;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then exit(false);
exit(true);
end;
function giam(a:mang):boolean;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] < a[j] then exit(false);
exit(true);
end;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’:’);
read(a[i]);
end;
clrscr;
if tang(a) then write(‘Mang tang dan’)
else if giam(a) then write(‘Mang giam dan’)
else write(‘Mang khong duoc sap xep’);
readln;
readln;
end.
Program BTT;
Uses crt;
Type manga = array[1..10000] of longint;
Var A: manga;
n,i: longint;
Function ktra_tang(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]>A[j] then exit(false);
exit(true);
End;
Function ktra_giam(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then exit(false);
exit(true);
End;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘); Readln(A[i]);
End;
If ktra_tang(A,n) then Write(‘Mang tang dan’)
Else If ktra_giam(A,n) then Write(‘Mang giam dan’)
Else Write(‘Mang chua duoc sap xep’);
Readln
End.