Các Bạn Giúp Mình Nhé , Sắp Xếp Dãy Tăng Dần Và Giảm Dần ... - Hoc24
Có thể bạn quan tâm
HOC24
Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng- Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn
Lớp học
- Lớp 12
- Lớp 11
- Lớp 10
- Lớp 9
- Lớp 8
- Lớp 7
- Lớp 6
- Lớp 5
- Lớp 4
- Lớp 3
- Lớp 2
- Lớp 1
Môn học
- Toán
- Vật lý
- Hóa học
- Sinh học
- Ngữ văn
- Tiếng anh
- Lịch sử
- Địa lý
- Tin học
- Công nghệ
- Giáo dục công dân
- Tiếng anh thí điểm
- Đạo đức
- Tự nhiên và xã hội
- Khoa học
- Lịch sử và Địa lý
- Tiếng việt
- Khoa học tự nhiên
- Hoạt động trải nghiệm
- Hoạt động trải nghiệm, hướng nghiệp
- Giáo dục kinh tế và pháp luật
Chủ đề / Chương
Bài học
HOC24
Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng - Tất cả
- Toán
- Vật lý
- Hóa học
- Sinh học
- Ngữ văn
- Tiếng anh
- Lịch sử
- Địa lý
- Tin học
- Công nghệ
- Giáo dục công dân
- Tiếng anh thí điểm
- Hoạt động trải nghiệm, hướng nghiệp
- Giáo dục kinh tế và pháp luật
Câu hỏi
Hủy Xác nhận phù hợp Chọn lớp Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1 Môn học Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Mới nhất Mới nhất Chưa trả lời Câu hỏi hay
Huỳnh Trí Nhân 16 tháng 4 2018 lúc 17:18 Các bạn giúp mình nhé , sắp xếp dãy tăng dần và giảm dần , ( lưu ý cho cả 2 ý chung 1 chương trình ) bằng pascal
Lớp 8 Tin học Lập trình đơn giản Những câu hỏi liên quan
- Hoài thịnh
Mọi người giúp mình bài này với ạ:
Viết chương trình pascal nhập 1 mảng sắp xếp số chẵn giảm dần và số lr tăng dần
Xem chi tiết Lớp 11 Tin học Bài 11: Kiểu mảng 1 0
Gửi Hủy 
Phía sau một cô gái 
27 tháng 2 2023 lúc 19:39 var A:
array[1..n] of integer;
i, j, n: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
for i := 1 to n - 1 do
for j := i+1 to n do
if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then
begin
swap(A[i], A[j]);
end;
writeln('Mang da sap xep la: ');
for i := 1 to n do
writeln(A[i]);
end.
Đúng 1 Bình luận (0) Gửi Hủy 
- Panda
1/Cho một dãy số N phần tử . Viết chương trình sắp xếp các phần tử đã cho theo thứ tự tăng dần (giảm dần)
2/ Viết chương trình chèn thêm 1 số nguyên vào 1 dãy số nguyên đã được sắp xếp theo thứ tự tăng dần sao cho dãy số không thay đổi trật tự sắp xếp
GIÚP MIK VỚI SẮP KT 1 TIẾT RÙI!!!!!!!!!!!!!........
Xem chi tiết Lớp 8 Toán Câu hỏi của OLM 0 0 Gửi Hủy - Hoài thịnh
viết chương trình pascal nhập mảng sắp xếp lẻ giảm dần và chẵn tăng dần
Xem chi tiết Lớp 11 Tin học Bài 11: Kiểu mảng 0 0 Gửi Hủy 
- Thị Huyền Nguyễn
Viết chương trình nhập vào và in ra 1 dãy các số nguyên. Sắp xếp dãy này theo yêu cầu ( tăng hoặc giảm dần)
Xem chi tiết Lớp 11 Tin học 1 0 Gửi Hủy 
Nguyễn Lê Phước Thịnh CTV 
1 tháng 3 2022 lúc 13:49 #include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,chon;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
cin>>chon;
if (chon==0)
{
for (i=1; i<=n; i++) cout<<a[i]<<" ";
}
else
{
for (i=n; i>=1; i--) cout<<a[i]<<" ";
}
return 0;
}
Đúng 0 Bình luận (0) Gửi Hủy 
- k_o_t_en
-
mô tả thuật toán và viết chương trình sắp xếp dãy số A gồm N phần tử(N được nhập từ bàn phím) sắp xếp theo thứ tự tăng dần
(pascal)
Xem chi tiết Lớp 8 Tin học 0 0 Gửi Hủy 
- Đỗ Phương Thùy
Bài 1. Cho dãy số a1,a2,...an. Sắp xếp thành dãy giảm dần Bài 2. Cho dãy a1,a2,a3...an gồm n số nguyên dương. -Sắp xếp các số chẵn về đầu hàng tăng dần -Sắp xếp các số lẻ về cuối hàng giảm dần GIÚP EM VỚI Ạ :(((
Xem chi tiết Lớp 10 Tin học Bài 4: Bài toán và thuật toán 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 31 tháng 10 2021 lúc 15:18 Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long a[100],n,i,j,tam;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n-1; i++)
for (j=i+1; j<=n; j++)
if (a[i]<a[j]) swap(a[i],a[j]);
for (i=1; i<=n;i++)
cout<<a[i]<<" ";
return 0;
}
Đúng 1 Bình luận (0) Gửi Hủy 
- Huy Phạm
1.Viết chương trình nhập vào một dãy số gồm n phần tử.Sắp xếp dãy số theo thứ tự tăng dần sau đó in ra màn hình dãy số đã sắp xếp. 2.Viết chương trình nhập vào một dãy số gồm n phần tử. Sắp xếp dãy số theo thứ tự giảm dần sau đó in ra màn hình dãy số đã sắp xếp.(cứu mk với mai thi r ạ🥲
Xem chi tiết Lớp 8 Tin học Ôn tập cuối năm 2 0 Gửi Hủy 
Kiều Vũ Linh CTV 
3 tháng 5 2023 lúc 6:12 1)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] > a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep tang dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
Đúng 0 Bình luận (0) Gửi Hủy Kiều Vũ Linh CTV 3 tháng 5 2023 lúc 6:13 2)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] < a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep giam dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
Đúng 0 Bình luận (0) Gửi Hủy 
- Asuna
-
Sắp xếp dãy số Tên chương trình: sorting.pasCho dãy N số nguyên a1, a2,..., an. Hãy sắp dãy số đã cho theo thứ tự tăng dần các số lẻvà giảm dần các số chẵn?Dữ liệu vào: File sorting.inp gồm hai dòng+ Dòng 1: ghi số nguyên N (0< N<1000)+ Dòng 2: ghi N số a1, a2,...< aN (với ai <=109)Dữ liệu ra: File sorting.out gồm hai dòng+ Dòng 1: Ghi các số lẻ tăng dần+ Dòng 2: ghi các số chẵn giảm dầnVí dụ:
Sorting.inp Sorting.out
62 3 5 1 4 6
1 3 56 4 2
Xem chi tiết Lớp 8 Tin học Bài 9. Làm việc với dãy số 2 0 Gửi Hủy 
✎﹏ɗʊɣ‿✶2ƙ11❖( TΣΔM...??... 
11 tháng 8 2023 lúc 20:13 Dưới đây là mã chương trình Pascal để sắp xếp dãy số theo yêu cầu đã cho:
```pascalprogram sorting;
constMAX_N = 1000;
varN, i, j, temp: integer;arr: array[1…MAX_N] of integer;oddArr, evenArr: array[1…MAX_N] of integer;oddCount, evenCount: integer;inputFile, outputFile: text;
begin// Mở file input và đọc dữ liệuassign(inputFile, 'sorting.inp');reset(inputFile);readln(inputFile, N);for i := 1 to N doread(inputFile, arr[i]);close(inputFile);
// Sắp xếp mảng theo yêu cầuoddCount := 0;evenCount := 0;for i := 1 to N dobeginif arr[i] mod 2 = 1 thenbeginoddCount := oddCount + 1;oddArr[oddCount] := arr[i];endelsebeginevenCount := evenCount + 1;evenArr[evenCount] := arr[i];end;end;
// Sắp xếp mảng số lẻ tăng dầnfor i := 1 to oddCount - 1 dofor j := i + 1 to oddCount doif oddArr[i] > oddArr[j] thenbegintemp := oddArr[i];oddArr[i] := oddArr[j];oddArr[j] := temp;end;
// Sắp xếp mảng số chẵn giảm dầnfor i := 1 to evenCount - 1 dofor j := i + 1 to evenCount doif evenArr[i] < evenArr[j] thenbegintemp := evenArr[i];evenArr[i] := evenArr[j];evenArr[j] := temp;end;
// Mở file output và ghi kết quảassign(outputFile, 'sorting.out');rewrite(outputFile);for i := 1 to oddCount dowrite(outputFile, oddArr[i], ' ');writeln(outputFile);for i := 1 to evenCount dowrite(outputFile, evenArr[i], ' ');close(outputFile);end.```
Bạn có thể sao chép mã chương trình trên vào một tệp tin có tên `sorting.pas`, sau đó tạo một tệp tin `sorting.inp` và nhập dữ liệu theo định dạng đã cho. Chạy chương trình và kết quả sẽ được ghi vào tệp tin `sorting.out`.
Đúng 1 Bình luận (0) Gửi Hủy 
Phạm Dương Phúc Khang 21 tháng 1 2024 lúc 22:55 var i,n:longint; a:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(k);
b[k]:=a[i];
end
else
begin
inc(t);
c[t]:=a[i];
end;
for i:=1 to k-1 do
for j:=i+1 to k do
if b[i]<b[j] then
begin
d:=b[i];
b[i]:=b[j];
b[j]:=d;
end;
for i:=1 to t-1 do
for j:=i+1 to t do
if c[i]>c[j] then
begin
d:=c[i];
c[i]:=c[j];
c[j]:=d;
end;
for i:=1 to k do write(b[i],' ');
for i:=1 to t do write(c[i],' ');
end.
Đúng 0 Bình luận (0) Gửi Hủy 
- nguyensonbd
Viết chương trình nhập vào 1 dãy số nguyên gồm n phân tử sắp xếp lại dãy (Đây là dãy tăng dần) sao cho các số chẵn tăng dần ở đầu dãy,các số lẻ giàm dần cuối dãy
Xem chi tiết Lớp 8 Tin học 1 1 Gửi Hủy 
Nguyen Hung 28 tháng 4 2021 lúc 21:04 Program Tin_hoc;
Uses crt;
Var i,tam,n,chan,le,j:integer;
a,daychan,dayle:array[1..10000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
chan:=0;le:=0;
Writeln('Nhap ',n,' phan tu cua mang:');
For i:= 1 to n do
Begin
write('A[',i,'] = ');
Readln(a[i]);
If a[i] mod 2 = 0 then
Begin
inc(chan);
daychan[chan]:=a[i];
end
else
Begin
inc(le);
dayle[le]:=a[i];
End;
End;
For i:= 1 to chan do
for j:= i to chan do If daychan[i]>daychan[j] then
Begin
tam:=daychan[i];
daychan[i]:=daychan[j];
daychan[j]:=tam;
End;
For i:= 1 to le do
for j:= i to le do If dayle[i]<dayle[j] then
Begin
tam:=dayle[i];
dayle[i]:=dayle[j];
dayle[j]:=tam
End;
Writeln('Day sau khi sap xep:');
For i:= 1 to chan do write(daychan[i],' ');
For i:= 1 to le do write(dayle[i],' ');
Readln;
End.
Đúng 1 Bình luận (4) Gửi Hủy Khoá học trên OLM (olm.vn)
- Toán lớp 8 (Kết nối tri thức với cuộc sống)
- Toán lớp 8 (Cánh Diều)
- Toán lớp 8 (Chân trời sáng tạo)
- Ngữ văn lớp 8 (Kết nối tri thức với cuộc sống)
- Ngữ văn lớp 8 (Cánh Diều)
- Ngữ văn lớp 8 (Chân trời sáng tạo)
- Tiếng Anh lớp 8 (i-Learn Smart World)
- Tiếng Anh lớp 8 (Global Success)
- Khoa học tự nhiên lớp 8 (Kết nối tri thức với cuộc sống)
- Khoa học tự nhiên lớp 8 (Cánh diều)
- Khoa học tự nhiên lớp 8 (Chân trời sáng tạo)
- Lịch sử và địa lý lớp 8 (Kết nối tri thức với cuộc sống)
- Lịch sử và địa lý lớp 8 (Cánh diều)
- Lịch sử và địa lý lớp 8 (Chân trời sáng tạo)
- Giáo dục công dân lớp 8 (Kết nối tri thức với cuộc sống)
- Giáo dục công dân lớp 8 (Cánh diều)
- Giáo dục công dân lớp 8 (Chân trời sáng tạo)
- Công nghệ lớp 8 (Kết nối tri thức với cuộc sống)
Từ khóa » Viết Chương Trình Sắp Xếp Mảng Tăng Dần Pascal
-
Sắp Xếp Dãy Số Theo Chiều Tăng Dần
-
Viết Chương Trình Sắp Xếp Dãy Tăng Dần Và Giảm Dần?
-
1,Viết Chương Trình Sắp Xếp Dãy Số Giảm Dần 2,Viết ... - MTrend
-
Sắp Xếp Dãy Số Giảm Dần | VN4000 PASCAL
-
Tài Liệu Sắp Xếp Dãy Số Theo Thứ Tự Tăng Dần Pascal - 123doc
-
Sắp Xếp Dãy Số Theo Chiều Tăng Dần - 123doc
-
Pascal, Sắp Xếp Dãy Số Theo Thứ Tự Giảm Dần Và Tăng Dần, Lập Trình ...
-
Viết Chương Trình Sắp Xếp Mảng A Theo Thứ Tự Tăng Dần , Giảm Dần ...
-
Code Pascal - Tin Hoc 11: Sắp Xếp Mảng 1 Chiều - Code Pascal
-
Viết Chương Trình Nhập Vào Một Mảng Gồm N Số Nguyên. Sắp Xếp Lại ...
-
Lập Trình Pascal: Viết Chương Trình Sắp Xếp Dãy Số Chẵn Lẻ
-
Viết Chương Trình Nhập Vào N Số Nguyên: Sắp Xếp Theo Thứ Tự Tăng ...