Bài tập Pascal : Số đơn điệu

Ngày 8/3/2009
Bài tập Pascal
Bài 1: Số đơn điệu
Định nghĩa: Các số nguyên dương luân phiên tăng giảm hoặc giảm tăng được gọi là các số đơn điệu.
Ví dụ: 4537 vì 4 < 5 > 3 < 7
Yêu cầu: Viết chương trình xác định số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của một số cho trước.
Dữ liệu: DuLieu.Vao
Kết quả: KetQua.Ra
Ví dụ:
DuKieu.Vao KetQua.Ra
4537 4
*Phân tích tìm thuật giải:
- Các dạng số đơn điệu: Có 2 dạng phụ thuộc vào hai chữ số đầu.
- Dạng 1:
Chữ số thứ nhất lớn hơn chữ số thứ hai. Ví dụ: 7564
Đặt: a1=7; a2=5; a3=6; a4=4. Ta có: a1 > a2; a2 < a3; a3 > a4
Gọi i là chữ số thứ i. Khi đó:
If i mod 2 <> 0 then a[i] > a[i+1]
If i mod 2 = 0 then a[i] < a[i+1]
- Dạng 2:
Chữ số thứ hai lớn hơn chữ số thứ nhất . Ví dụ: 5746
Đặt: a1=5; a2=7; a3=4; a4=6. Ta có: a1 < a2; a2 > a3; a3 < a4
Gọi i là chữ số thứ i. Khi đó:
If i mod 2 <> 0 then a[i+1] > a[i]
If i mod 2 = 0 then a[i+1] < a[i]
*Từ đó ta có chương trình
Var
xau : string; i, n : integer;
kt : boolean;
so1, so2,x1,x2, z : integer;
St1 : Text; St2: Text;

begin
Assign(St1,”dulieu.Vao”); Reset(St1); if not eof(St1) then read(St1,xau); close(St1);
kt:=false; i:=1; n:=1;
if length(xau)>1 then
begin
repeat
i:=i+1;
if i=length(xau) then kt:=true;
if i<length(xau) then
val(xau[i],so1,z); val(xau[i+1],so2,z); val(xau[1],x1,z); val(xau[2],x2,z);
begin
if x1>x2 then
begin
if i mod 2 = 0 then if so2>so1 then n:=n+1 else begin n:=n+1; kt:=true; end;
if i mod 2 <> 0 then if so1>so2 then n:=n+1 else begin n:=n+1; kt:=true; end;
end;
if x2>x1 then
begin
if i mod 2 = 0 then if so1>so2 then n:=n+1 else begin n:=n+1; kt:=true; end;
if i mod 2 <> 0 then if so2>so1 then n:=n+1 else begin n:=n+1; kt:=true; end;
end;
end;
until KT;
write(n);
Assign(St2,”Ketqua.ra”); Rewrite(St2); Write(St2, n); Close(St2);
end;
readln
end.