Lập Trình Pascal: Viết Chương Trình Sắp Xếp Dãy Số Chẵn Lẻ

Trang chủ » Tìm Số Chẵn Lẻ Pascal » Lập Trình Pascal: Viết Chương Trình Sắp Xếp Dãy Số Chẵn Lẻ

Có thể bạn quan tâm

Bài Kiểm Tra © 2020 Bài Kiểm Tra.com. All Rights Reserved. logo 1
  • Trang nhất
  • Tin học
Thứ ba, 17/02/2026, 15:40 Lập trình Pascal: Viết chương trình sắp xếp dãy số chẵn lẻ 2020-01-01T22:49:16+07:00 Viết chương trình nhập vào một dãy số nguyên có n phần tử.a. Đưa những phần tử lẻ ra đầu danh sách, những phần tử chẵn về cuối danh sách và in kết quả ra màn hình.b. Sắp xếp các phần tử lẻ đầu danh sách theo thứ tứ tăng dần, sắp xếp các phần tử chẵn cuối danh sách theo thứ tự giảm dần. In danh sách ra màn hình. chương trình sắp xếp dãy số chẵn lẻ, lập trình pascal https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg Bài Kiểm Tra Thứ tư - 01/01/2020 22:47
  • In ra
Viết chương trình nhập vào một dãy số nguyên có n phần tử.a. Đưa những phần tử lẻ ra đầu danh sách, những phần tử chẵn về cuối danh sách và in kết quả ra màn hình.b. Sắp xếp các phần tử lẻ đầu danh sách theo thứ tứ tăng dần, sắp xếp các phần tử chẵn cuối danh sách theo thứ tự giảm dần. In danh sách ra màn hình.
Program DAY_CHAN_LE; Uses crt; Type ma=array[1..50] of integer; Var a:ma;n:integer; Procedure Input(var a:ma;n:integer); Var i: integer; Begin For i:=1 to n do Begin Write('nhap phan tu thu ',i,'='); Readln(a[i]); End; End; Procedure Output(a:ma;n:integer); Var i:integer; Begin For i:=1 to n do Write(a[i]:3); End; Procedure Odd_Even(var a:ma;n:integer); Var l,r,t:integer; Begin l:=1; r:=n; Repeat While (l<r) and (a[l] mod 2 = 1) do l:=l+1; While (r>l) and (a[r] mod 2 = 0) do r:=r-1; If l<r then Begin t:=a[l]; a[l]:=a[r]; a[r]:=t; End; Until l>=r; End; Procedure Sort( var a:ma;n:integer); Var i,j,k,t:integer; Begin k:=0; For i :=1 to n do If a[i] mod 2 <> 0 then k:=k+1; For i:=1 to k-1 do For j :=i+1 to k do If a[i]>a[j] then Begin t:=a[i]; a[i]:=a[j]; a[j]:=t; End; For i:=k+1 to n -1 do For j :=i+1 to n do If a[i]<a[j] then Begin t:=a[i]; a[i]:=a[j]; a[j]:=t; End; End; Begin Clrscr; Writeln('CHUONG TRINH SAP XEP CHAN LE'); Writeln('-------------------------------'); Write('Nhap so phan tu cua day n= ');readln(n); Input(a,n); Writeln('Day ban bau la: '); Output(a,n); odd_even(a,n); Writeln; Writeln('Day sau tach le va chan:'); Output(a,n); Writeln; Writeln('Day sau sap xep la:'); Sort(a,n); Output(a,n); Readln; End.
Tags: Lập trình Pascal

Ý kiến bạn đọc

Sắp xếp theo bình luận mới Sắp xếp theo bình luận cũ Sắp xếp theo số lượt thích
  • Trần Nhật Phát Admin cho mình hỏi là cách sắp xếp dãy số trong mảng theo thứ tự tăng dần ưu tiên số chẵn, số lẻ VD (2,5,3,4)-(2,4,3,5) làm sao vậy Trần Nhật Phát 08/12/2021 14:40
    • Trả lời
    • Thích 3
    • Không thích 0

Theo dòng sự kiện

    /assets/news/2024_09/image-20240919121618-1.png Soạn Ngữ văn lớp 11 sách Chân trời sáng tạo, bài 1: Cõi lá

    /assets/news/2024_09/image-20240919121156-1.png Soạn Ngữ văn lớp 11 sách Chân trời sáng tạo, bài 1: Ai đã đặt tên cho dòng sông

Xem tiếp...

Những tin cũ hơn

    /assets/news/2020_01/de-cuong-on-tap.jpg Đề cương ôn tập thi học kì 1, môn Tin học 7

    /assets/news/2020_01/de-cuon-on-tap-tin-hoc-8.jpg Đề cương ôn tập thi học kì 1, Tin học 8

GIẢI BÀI TẬP
Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5
Lớp 6 Lớp 7 Lớp 8 Lớp 9
Lớp 10 Lớp 11 Lớp 12
Bài học Bài soạn Bài giảng
Bài giới thiệu Bài hướng dẫn
Bài làm văn Bài trắc nghiệm
Kiểm tra 15P Kiểm tra 1 tiết
Kiểm tra HK1 Kiểm tra HK2
Thi vào lớp 10 Tốt nghiệp THPT
BÀI LUYỆN THI
Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5
Lớp 6 Lớp 7 Lớp 8 Lớp 9
Lớp 10 Lớp 11 Lớp 12
Kiểm tra 15 phút Kiểm tra 1 tiết
Kiểm tra học kì 1 Kiểm tra học kì 2
Luyện thi theo Bài học
Luyện thi THPT Quốc Gia
THÀNH VIÊN Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site Nhập mã do ứng dụng xác thực cung cấp Thử cách khác Nhập một trong các mã dự phòng bạn đã nhận được. Thử cách khác Đăng nhập Đăng ký © 2020 Bàikiểmtra.com. All Rights Reserved. Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây

Từ khóa » Tìm Số Chẵn Lẻ Pascal