Pascal - Tìm số lớn thứ nhì trong n số được nhập từ bàn phím

Pascal - Tìm số lớn thứ nhì trong n số được nhập từ bàn phím

Tìm số lớn thứ nhì trong n số được nhập từ bàn phím.

Ví dụ: Nhập các sô 10; 10; 9; 9; 8 thì được số lớn nhì là 9.

Giải thuật:

  • Nhập 2 số, Xác định giá trị cho hai biến Max, Nhi.
  • Lần lượt nhâp các số. Với mỗi số được nhập xét:
    • Nếu So > Max thì gán Nhi = Max, Max = So.
    • Nếu Nhi < So < Max thì gán Nhi = So.

Cài đặt

Program So_lon_nhi;

Var n,i,so, nhi,max,tam:integer;

Procedure swap(var x,y:real);

var tam:real;

begin

tam:=x;

x:=y;

y:=tam;

end;

Begin

    Write('Nhap n: ');Readln(n);

    Write('nhap so:');Readln(max);

    Write('nhap so: ');Readln(nhi);

    if nhi > Max then swap(Max,nhi)

    For i:= 3 to n do

    Begin

         Write('Nhap so: ');Readln(so);

         if (so>nhi) and (so<max) then nhi:=so;

         if so>max then

         Begin

            nhi:=max;

            Max:=so;

         End;

    End;

    Write('So thu nhi la: ',nhi);

    Readln

End.
Bạn thấy bài viết này như thế nào?: 
Average: 9 (60 votes)
Ảnh của Tommy Tran

Tommy 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

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

 
Ủy Ban Châu Âu sẽ offering bug bounties cho các Open Source software

Ủy Ban Châu Âu sẽ offering bug bounties cho các Open Source software

The European Commission worked with the Drupal Security Team to set aside 89,000€ (or roughly $100,000 USD) for a Drupal bug bounty.

Foxconn tăng 16 đến 25% lương cho công nhân

Foxconn tăng 16 đến 25% lương cho công nhân

Sau một tuần biểu tình, Foxconn - đối tác sản xuất sản phẩm lớn nhất thế giới Apple - đã tăng lương cho các công nhân nhà máy tại Trung Quốc.

Mike Tyson với trang trại cần sa rộng 418 héc ta tại California

Mike Tyson với trang trại cần sa rộng 418 héc ta tại California

Không chỉ là một võ sĩ quyền Anh, một ngôi sao điện ảnh hay gần đây nhất là một diễn giả, cuộc đời của Mike Tyson dường như sắp bước sang một chương mới với tư cách là một ‘ông trùm’ cần sa.

Công ty diệt chuột T&C

 

Diet con trung