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

 
Chưa có quyết định về việc sáp nhập VinaPhone và MobiFone

Chưa có quyết định về việc sáp nhập VinaPhone và MobiFone

Thông tin về việc Bộ TT&TT đồng ý cho sáp nhập 2 mạng di động MobiFone và VinaPhone như đã đưa trước đó là không chính xác.

Công nghệ Dual LED Light Bar được ứng dụng cho iPad 3

Công nghệ Dual LED Light Bar được ứng dụng cho iPad 3

Dual LED Light Bar là công nghệ mới, sử dụng 2 thanh đèn LED để tăng độ sáng cho màn hình.

Apple phát hành bản cập nhật Java

Apple phát hành bản cập nhật Java

Java cho Mac OS X 10.7 Update 1, phát hành hôm thứ 3 ngày 8/11, cập nhật phần mềm cho phiên bản 1.6.0_29, và cung cấp một số cải thiện về độ tin cậy, bảo mật, khả năng tương thích cho người dùng Mac OS X Lion.

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

 

Diet con trung