Xây dựng menu sắp xếp mảng không giảm, số nguyên tố trong Pascal

Xây dựng menu sắp xếp mảng không giảm, số nguyên tố trong Pascal

Nhập vào mảng có n giá trị n<=100, dếm số lần xuất hiện của các phần tử trong mảng.

>>Tính x^n với n là số nguyên không âm trong Pascal

>>Viết phương trình pascal tìm số tự nguyên lớn nhất và in ra màn hình

Đầu tiên sắp xếp trước rồi sau đó đếm các phần tử giống nhau.

Program Dem_so_lan_xuat_hien_trong_mang;
Uses CRT;
    Var i,j,n,dem:byte;
            tam:integer;
        a: Array [1..100] of integer;
Begin
    Clrscr;
    write('Nhap so pt:');readln(n);
    For i:=1 to n do Begin  write('A[',i,']=');readln(a[i]); End;
    For i:=1 to n-1 do {Sap xep A tang dan}
      For j:=i+1 to n do
        if a[i]>a[j]then
              Begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;
        i:=1;
        While i<=n do  {duyet qua mang}
         Begin
           Write(a[i],' xuat hien ');
           dem:=1;
           While a[i]=a[i+1] do begin inc(dem); inc(i); end; {Dem pt trung}
           inc(i); Writeln(dem,' lan');
         End;
    Readln
End.

Viết chương trình nhập mảng gồm n phần tử kiểu nguyên(n<=100) và cho ra màn hình phần tử xuât hiện nhiều nhất và số lần xuât hiện của nó trong mảng

Program Tansuat;
Uses crt;
var i,k,j,n,max:integer;
b,st: array [1..100] of integer;
begin
    clrscr;
        write('Nhap so pt:');readln(n);
        for i:=1 to n do
    Begin
        write('st[',i,']=');readln(st[i]);
    End;
        b[i]:=0;
        for i:=1 to n do
            for j:=i to n do
                if st[i]=st[j]then inc(b[i]);
                max:=b[1];
                for i:=1 to n do if b[i]>max then max:=b[i];
                    write('--So xuat hien nhieu nhat la--');
                for i:=1 to n do
                    if max=b[i]then write(st[i],' ');
    write('---xuat hien--- ',max,' –lan--');
    Readln
End.

Viết chương trình nhập vào mảng gồm n phần tử (n<=100) tìm và hiển thị vị trí phần tử có giá trị lớn nhât, sau đó sắp xếp các phần tử theo thứ tự tăng dần và hiển thị các phần tử sắp xếp đó ra màn hình.

Program Tim_vi_tri;
Uses crt;
var a: array[1..100] of integer;
var i,n,j, tg,max, vt: integer;
begin
    clrscr;
    write(' nhap so phan tu cua mang ');
    readln(n);
    writeln(' moi nhap cac phan tu cua mang ');
        for i:=1 to n do
            begin
                write('A', i,']= ');
                readln(a[i]);
            end;
    Max:=a[1]; vt:=1;
        For i:=1 to n do
        begin
            If A[i]>max then
            Begin
                Max:=a[i]; vt:=i;
            End;
        End;
    Writeln('gia tri lon nhat la ', max, ' nam o vi tri thu ',vt);
    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;
    writeln(' day sau khi sap xep la ');
        for i:=1 to n do    
        write( a[i]: 4);
    readln;
End.

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 mảng theo thứ tự tăng dần (không giảm) và in kết quả ra màn hình.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
    Begin
    {Nhập mảng}
        Write('Nhap N='); Readln(N);
        For i:=1 To N Do
        Begin
            Write('A[',i,']='); Readln(A[i]);
        End;
    {Sắp xếp}
        For i:=1 To N-1 Do
            For j:=i+1 To N Do
                If A[i]>A[j] Then
                Begin
                    Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
                End;
    {In kết quả ra màn hình}
    Writeln('Ket qua sau khi sap xep:');
        For i:=1 To N Do Write(A[i]:5);
    Readln;
End.

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 mảng theo thứ tự giảm dần và in kết quả ra màn hình.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
    {Nhập mảng}
    Write('Nhap N='); Readln(N);
    For i:=1 To N Do
        Begin
            Write('A[',i,']='); Readln(A[i]);
        End;
    {Sắp xếp}
    For i:=1 To N-1 Do
        For j:=i+1 To N Do
        If A[i]>A[j] Then
            Begin
                Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
            End;
    {In kết quả ra màn hình}
    Writeln('Ket qua sau khi sap xep:');
        For i:=1 To N Do Write(A[i]:5);
    Readln;
End.
Bạn thấy bài viết này như thế nào?: 
Average: 9.9 (100 votes)
Ảnh của Tommy Tran

Tommy Tran owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
3 + 0 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Phễu sản phẩm làm quá trình Marketing và bán hàng thuận lợi nhiều hơn

Phễu sản phẩm làm quá trình Marketing và bán hàng thuận lợi nhiều hơn

Hầu hết các doanh nghiệp đều chỉ có 1 sản phẩm hoặc có nhiều sản phẩm nhưng họ không phân loại sản phẩm theo phễu điều này làm cho quá trình Marketing và bán hàng gặp rất nhiều khó khăn.

9 lý do máy tính bảng Android sẽ thất bại

9 lý do máy tính bảng Android sẽ thất bại

Bảo mật kém, thiếu đổi mới, doanh số thấp, Google tỏ thái độ thờ ơ, sự thách thức của iPad và Windows 8.. nhiều lý do đang cản trở thành công của tablet Android.

Hướng dẫn sử dụng Drupal Aggregator Module

Hướng dẫn sử dụng Drupal Aggregator Module

I blame it on the confusing name. No, Aggregator is not an animal in Florida that eats people. Aggregator is a module that imports content from RSS feeds into Drupal.

Wordpress Freelancer

 

Wordpress Freelancer