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: 5.4 (13 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

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

 
Sự vi diệu của Drupal's Extra Fields module một loại Field API

Sự vi diệu của Drupal's Extra Fields module một loại Field API

One of the challenges front-end developers face is adding new components to entity templates that exist outside of what is defined in the Field API; or in other words

5 loại côn trùng gián cần tiêu diệt 2016

5 loại côn trùng gián cần tiêu diệt 2016

Diệt và phòng ngừa các loại côn trùng gián như: côn trùng gián Mỹ, gián Đức, côn trùng gián xám, côn trùng gián vành nâu, côn trùng gián Phương Đông, v.v...và rất nhiều loại gián gây hại khác.

Facebook sẽ ra smartphone?

Facebook sẽ ra smartphone?

Sau nhiều năm cân nhắc, Facebook quyết định bắt tay với HTC để cho ra đời một smartphone chuyên dành riêng cho mạng xã hội, theo Fox News.

Wordpress Freelancer

 

Wordpress Freelancer