Thuật toán (Ai giúp với)

[thecuong064]

Đề bài: Nhập n(integer), cho biết n có bao nhiêu chữ số, in ra số đảo ngược (dùng while do)
VD: n = 123
Số chữ số: 3
Số đảo ngược: 321
Mình mới code được ý 1, nhưng lại ko chạy đc, ko bít sao nữa, còn ý 2 thì chịu.


program while_do;
uses crt;
var n:integer;
dem,i:integer;
const e=0.1;
begin
clrscr;
writeln('Nhap vao n ');
readln(n);
dem:=0;
i:=n/10;
while (i > e) do
begin
dem:=dem+1;
end;
writeln('So cac chu so',dem);
readln;
end.

[auauau97]

USES crt;
VAR
n,d,dem:INTEGER;
BEGIN
Clrscr;
Write('Enter n:');
Readln(n);
Write('So dao cua ',n,':');
WHILE n<>0 DO
BEGIN
d:=n MOD 10;
n:=n DIV 10;
Write(d);
dem:=dem+1;
END;
Writeln;
Write('So chua so cua so vua nhap:',dem);
Readln;
END.
bạn xem thử xem đúng chưa nhá !

[thecuong064]

Cám ơn nhá. Mà auauau97 hoạt động trong nhìu forum nhỉ

[Farmer_Boy]

Ý 1: Làm theo cách trên cũng dc, hoặc đổi sang string tính cho nhanh
Ý 2: Dùng string hồi nãy đảo lại. Xong

[Farmer_Boy]

Cái code trên không chạy dc là đúng rồi, biến i để kiểu integer trong khi n/10 lại là kiểu real

[auauau97]

Cám ơn nhá. Mà auauau97 hoạt động trong nhìu forum nhỉ
Tại rỗi việc thôi mà !
không làm gì thì lên 4rum cho đỡ chán ấy mà !
Có gì tiện thì hỏi các bạn khác luôn !

[thecuong064]

Cái code trên không chạy dc là đúng rồi, biến i để kiểu integer trong khi n/10 lại là kiểu real
Tks bạn nhá. Mình sẽ sửa

[thecuong064]

Ý 1: Làm theo cách trên cũng dc, hoặc đổi sang string tính cho nhanh
Ý 2: Dùng string hồi nãy đảo lại. Xong
Đề bài này nó yêu cầu dùng integer chứ ko phải string.

[auauau97]

Đề bài này nó yêu cầu dùng integer chứ ko phải string.
ý Bạn ấy bào là có 2 cách mà !

[Farmer_Boy]

Tôi biết rồi, lằng nhằng quá, tôi đổi integer sang string để làm, xuất ra integer 12345 hay string 12345 có khác j` nhau

[haplinhavxt]

Khác chứ! 1 cái là


write(n); {n là integer}

Còn 1 cái là


write(s); {s: string}

phải ko nhỉ? =))

[Farmer_Boy]

Khác chứ! 1 cái là


write(n); {n là integer}

Còn 1 cái là


write(s); {s: string}

phải ko nhỉ? =))

Trời ui, xuất ra màn hình 12345 ai biết string hay integer, chỉ biết là số 12345 thôi

[haplinhavxt]

Trời ui, xuất ra màn hình 12345 ai biết string hay integer, chỉ biết là số 12345 thôi
Đùa tĩ thôi mà =))! Bài này dùng xâu cho nhanh!

[thecuong064]

À, Mình hiểu rồi. Sorry vì đã hiểu nhầm bạn nhá Farmer_Boy

[Farmer_Boy]

Đùa tĩ thôi mà =))! Bài này dùng xâu cho nhanh!

Ẹc, haplinh mà cũng biết đùa ư? Chắc sắp tận thế rồi

[auauau97]

Ẹc, haplinh mà cũng biết đùa ư? Chắc sắp tận thế rồi
Sắp tận thế rồi sao ?
mình chưa muốn chết !
mình còn quá trẻ để chết !

[haplinhavxt]

Ẹc, haplinh mà cũng biết đùa ư? Chắc sắp tận thế rồi
Tôi thì không được đùa ah?

[thuonghieuvn]

này khó làm quá vậy chán nhất làm này

[haplinhavxt]

này khó làm quá vậy chán nhất làm này
Đây là Tiếng Việt ah bạn?

[Farmer_Boy]

Đây là Tiếng Việt ah bạn?

Uhm, đó là thứ gì vậy, ngữ pháp tiếng Việt mà như vầy ah`.
P/S: Ông auauau97 rảnh quá, like j` mà like dữ thế

[auauau97]

Uhm, đó là thứ gì vậy, ngữ pháp tiếng Việt mà như vầy ah`.
P/S: Ông auauau97 rảnh quá, like j` mà like dữ thế
Diễn đang cho nút like để like mà, đọc bài của mọi người rồi ấn like để họ có thêm động lực xây dựng diễn đàn thôi !