Persist.inp
|
persist.out
|
Giải thích
|
100
|
77
|
Doben(77)=Doben(49)+1=Doben(36)+1+1=Doben(18)+1+1+1=Doben(8)+1+1+1+1=0+1+1+1+1=4
|
Giải thuật:
- Để tìm độ bền một số cần một hàm tính tích các chữ số của n TICH(n).
- Cho d = 0. Lặp lại điều kiện n >9 việc: Tăng d lên 1 thay n = TICH(n).
Program Do_ben;
uses crt;
Var n,d,i,j,max:longint;
Function TICH(n:Longint):Longint;
Var tam:integer;
Begin
if n=0 then tam:=0 else tam:=1;
While n<> 0 do
Begin
Tam:=tam*(n mod 10);
n:=n div 10;
End;
TICH:=Tam;
End;
Begin
clrscr;
Write('Nhap n:');Readln(n);
Max:=0;
For i:=1 to n do
Begin
d:=0;
j:=i;
gotoxy(1,2);
Write('Dang duyet den so: ',i);
While j>9 do
Begin
d:=d+1;
j:=TICH(j);
End;
if d>=Max then
Begin
max:=d;
gotoxy(1,3);
Writeln('So co do ben lon nhat dang la ',i,' do ben la:',d);
End;
End;
Gotoxy(1,4);
Writeln('Da duyet xong');
Readln
End.
|
CHƯƠNG X
CHUYÊN ĐỀ ĐA THỨC (Một biến).
A. LÝ THUYẾT:
- Để lưu trữ một đa thức ta chỉ cần lưu các hệ số (bằng một mảng)và bậc của đa thức.
- Các phép toán đối với một đa thức gồm cộng, trừ, nhân, chia hai đa thức.
- Việc tính giá trị đa thức tại một giá trị của biến được thực hiện thông qua lược đồ hooc nơ hoặc tính trực tiếp.
Chia sẻ với bạn bè của bạn: |