Bài tập turbo pascal

1 ... 23 24 25 26 27 28 29 30 ... 42

100 bài tập pascal
13234

b. Nhận xét:

- Nếu bỏ từ var ở khai báo var x,y:real thì chương trình vẫn không báo lỗi nhưng chức năng đổi giá trị của hai biến không thực hiện được.

Bài tập 6.3:

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

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.

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

f,g:text;

Procedure swap(var x,y:real);

var tam:real;

begin

tam:=x;

x:=y;

y:=tam;

end;

Begin

Assign(f,’bai6_3.inp’); reset(f);

Assign(g,’bai6_3.out’); rewrite(g);

Readln(f,n);

Readln(f,max);

Readln(f,nhi);

if nhi > max then swap(Max,nhi)

For i:= 3 to n do

Begin

Readln(f,so);

if (so>nhi) and (so

if so>max then

Begin

nhi:=max;

max:=so;

End;

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

Close(f); close(g);

End.

Chia sẻ với bạn bè của bạn:

1 ... 23 24 25 26 27 28 29 30 ... 42