Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Project 16 Pascal
//fpc 3.0.0 program Project16; var i,n,du,s,mu,cs,khoang : integer; a:array[1..10000] of byte; //Tang gioi han so chu so toi da o day // Chuong trinh tinh luy thua voi so mu va co so bat ky. // Gioi han : 10000 chu so (co the tang them tuy cau hinh may). // Nguyen ly : Moi phan tu cua mang luu mot chu so, tinh toan theo phuong phap nhan tay. // De thuan tien, cac chu so duoc luu tu phai sang trai (theo chieu nhan tay) // Vd : a[1] luu hang don vi, a[2] luu hang chuc, ... // Bonus : Tinh tong cac chu so cua luy thua :p begin n:=0;a[1]:=1; // So ban dau : 1 de phu hop voi moi co so mu:=20;cs:=5;khoang:=20; // Tuy chinh : so mu, co so, khoang : so chu so cua ket qua ma minh muon hien thi while n<>mu do begin inc(n);du:=0; for i:=1 to khoang do begin a[i]:=a[i]*cs + du; if a[i] > 9 then du:=a[i] div 10 else du:=0; a[i] := a[i] - du*10; end; end; s:=0; for i:=khoang downto 1 do begin write(a[i]);s:=s+a[i];end; writeln;write(s); end.
run
|
edit
|
history
|
help
0
Mon ami Simon
Multiplicação de Matrizes
Pokazivaci, ulancane liste
Fb password
JESSICA GOMES DE SOUZA FERREIRA 600621634
Tugas1
Tableau
1101010
funcion esprimo con boolean
6