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.

Dịch vụ quét mã độc cho mã nguồn WordPress miễn phí năm 2020

Average: 5 (5 votes)

Theo VietnamWorks lương của lập trình viên C++ hơn 1.000 USD mỗi tháng

Average: 5 (7 votes)

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.
Fivestar: 
Average: 5 (1 vote)

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

 
Thỉnh thoảng, bạn cần Migrate - Module từ Drupal version (from 6.x to 7.x)?

Sometimes while website development it is necessary to transfer data from one database to another

Drupal viet nam
Quản lý Drupal node bằng Taxonomy Access Control.module

The hole is that Drupal allows you to control who can create, edit and delete content but not who can view it.

Facebook Timeline chính thức ra mắt người dùng trên toàn thế giới
Facebook Timeline chính thức ra mắt người dùng trên toàn thế giới

Sau khi được giới thiệu tại F8 từ tháng 9 và cung cấp cho người dùng tại Úc, tính năng Timeline cuối cùng cũng được cung cấp cho toàn bộ người dùng Facebook.