TÍnh TỔng CÁc ChỮ SỐ CỦa MỘt SỐ NguyÊn

[tranvanho]

gì mà chửi ghê vậy
hả................

[bilun167]

Thì lâu lâu có chỗ để ... chửi nên sung thế đấy.

+ s:=s[i] đây là type casting, đồ dốt ạ
+ s[i] luôn đúng, hình như bạn quá dốt, nên bỏ ước mơ lập trình đi.

Khúc này chắc nói cho mình ổng nghe và mình ổng hiểu.

[huyphuc1981_nb]

Lại chú nữa.
Các chú hỏi người ta lại bảo người ta vô duyên. Anh chửi thế còn nhẹ đấy.

Các chú không tin thì các chú cho đoạn mã của tên các chú bảo vô duyên đó vào mà chạy, nếu chạy được thì các chú là con bò nhé.

Đến khi các chú đã là con bò rồi thì các chú đọc lại về chuyển kiẻu và mảng nhé. Tiếng anh là type casting và array.

Anh không hơi đâu mà đi dạy mấy thằng con bò như các chú.

[Godbloc]

var s:string; i, code, va: integer;
begin
s:=1234;
forr i:=1 to length (s) do
val (s[i],va,code);
end.
hoàn toàn đúng.

??? Cái này chưa chắc .
Vd : S = 123.333 (số thực) thì sao ?

Function *** () : integer ;
var
s : string ;
begin
Readnl (S ) ;
if pos('.',s) <>0 then begin //say some thing ?
end ; // or
-------------------------------------------------
if pos('.',s) <>0 then begin
s := copy (s,1,pos(s)-1); // cutting
end ;
then ...


end; Okie ..

[ngtrhieu0011]

với những số lớn như có chừng ... 100 chữ số thỉ đành chịu thua với cách div và mod
em nghĩ là sẽ đếm lúc nhập lun cho nhanh (dùng thủ tục readkey với lần nhập phím số và enter để thoát (ord của enter là 13))
dùng mảng cũng dc nhưng lâu hơn thui

[Kha_kha]

var s:string; i, code, va: integer;
begin
s:=1234;
forr i:=1 to length (s) do
val (s[i],va,code);
end.
hoàn toàn đúng.

??? Cái này chưa chắc .
Vd : S = 123.333 (số thực) thì sao ?

Function *** () : integer ;
var
s : string ;
begin
Readnl (S ) ;
if pos('.',s) <>0 then begin //say some thing ?
end ; // or
-------------------------------------------------
if pos('.',s) <>0 then begin
s := copy (s,1,pos(s)-1); // cutting
end ;
then ...


end; Okie ..

Nhảm, đọc lại cái đề đi!

[bilun167]

@huyphuc: em có bảo ai vô duyên hồi nào đâu???
với lại anh có nhất thiết mắng người khác là con bò hem. cái source đó nhìn thì ai chả bik là đúng (còn bạn tranvannho chắc nhìn màn hình riết bị "lộn xộn" nói năng hơi nhảm.
và em cũng chưa từng nhờ anh giảng giải type casting, array chi cả???

[lee_huynh306]

Oài, bài này thuộc dạng basic các bác có cần phải cãi nhau ghê vậy hem. Có cần thì qua mấy thread như tìm số nguyên tố hay khai căn số cực lớn í.
@huyphuc1981_nb: Mình đọc qua mấy post của bạn cũng thấy bạn là người có hiểu biết. Nhưng hình như bạn hơi tự phụ đấy bạn à. Khiêm tốn chút và kiềm chế chút đi bạn nhé, không mất gì đâu mà lại được nhiều thứ là khác!

[huyphuc1981_nb]

@huyphuc: em có bảo ai vô duyên hồi nào đâu???
với lại anh có nhất thiết mắng người khác là con bò hem. cái source đó nhìn thì ai chả bik là đúng (còn bạn tranvannho chắc nhìn màn hình riết bị "lộn xộn" nói năng hơi nhảm.
và em cũng chưa từng nhờ anh giảng giải type casting, array chi cả???

Nhảm gì.
Theo anh cái tội hỏi người khác, người ta cất công trả ời rồi lại mắng người ta vô duyên không nhẹ, anh chửi thé còn ít đấy. Chú xen vào như thế thì chú quá vô duyen rồi.

Hay là các chú định bơm vá kiểu mẹ hát con khen. Vậy thì anh nhắc mọi người lần sau cạch các chú ra.

[tranhaanh]

var s:string; i, code, va: integer;
begin
s:=1234;
forr i:=1 to length (s) do
val (s[i],va,code);
end.
hoàn toàn đúng.

??? Cái này chưa chắc .
Vd : S = 123.333 (số thực) thì sao ?

Function *** () : integer ;
var
s : string ;
begin
Readnl (S ) ;
if pos('.',s) <>0 then begin //say some thing ?
end ; // or
-------------------------------------------------
if pos('.',s) <>0 then begin
s := copy (s,1,pos(s)-1); // cutting
end ;
then ...


end; Okie ..

đọc đề kỹ đi cu. Không thấy trên đó nói là số nguyên à. Supper Nood à quên Chick