|
Bài tập sáng ngày 19/08/2011
|
|
| nguyenchauthuan | Date: Friday, 19-08-11, 1:59 PM | Message # 1 |
 Sergeant
Group: Users
Messages: 33
Status: Offline
| Bài tập sáng ngày 19/08/2011
Rơi
|
| |
| |
| kiepmeodoremon | Date: Friday, 19-08-11, 2:07 PM | Message # 2 |
 Major
Group: Users
Messages: 91
Status: Offline
| đâu ? 
Giàu thì ghét - Đói rét thì khinh - Thông minh thì diệt.
|
| |
| |
| nguyenchauthuan | Date: Friday, 19-08-11, 2:10 PM | Message # 3 |
|
Sergeant
Group: Users
Messages: 33
Status: Offline
| PROCEDURE CauA;
VAR Dem:Byte;
Tam:LongInt;
BEGIN
Tam:=N;
Dem:=0;
WHILE Tam<>0 DO
begin
Tam:=Tam div 10;
Dem:=Dem+1;
end;
WriteLn(Dem);
END;
Rơi
|
| |
| |
| pebo | Date: Friday, 19-08-11, 3:31 PM | Message # 4 |
 Private
Group: Users
Messages: 3
Status: Offline
| bt sang nay nek ngen
procedure b;
var k,t,ngc:longint;
begin
k:= n;ngc:=0;
while (k<>0) do
begin
t:=k mod 10;
if k>10 then ngc:=(ngc+t)*10
else
if k<10 then ngc:=ngc+t;
k:=k div 10;
end;
writeln(ngc;
readln;
end.
|
| |
| |
| Angle_Bup | Date: Friday, 19-08-11, 3:39 PM | Message # 5 |
|
Sergeant
Group: Administrators
Messages: 25
Status: Offline
| Quote (pebo) Code procedure b; var k,t,ngc:longint; begin k:= n;ngc:=0; while (k<>0) do begin t:=k mod 10; if k>10 then ngc:=(ngc+t)*10 else if k<10 then ngc:=ngc+t; k:=k div 10; end; writeln(ngc; readln; end.
Thuận và Tiên post lại!
Trình bày code rõ ràng! Trong phần post bài có hỗ trợ post code theo đúng định dạng.
|
| |
| |
| nguyenchauthuan | Date: Friday, 19-08-11, 3:53 PM | Message # 6 |
|
Sergeant
Group: Users
Messages: 33
Status: Offline
| Code
PROCEDURE CauA;
VAR Dem:Byte;
Tam:LongInt;
BEGIN
Tam:=N;
Dem:=0;
WHILE Tam<>0 DO
begin
Tam:=Tam div 10;
Dem:=Dem+1;
end;
WriteLn(Dem);
END;
Rơi
|
| |
| |
|
| kiepmeodoremon | Date: Friday, 19-08-11, 8:16 PM | Message # 8 |
|
Major
Group: Users
Messages: 91
Status: Offline
| ở trên mạng có ng dùng repeat....until hay lắm
Giàu thì ghét - Đói rét thì khinh - Thông minh thì diệt.
|
| |
| |
| punky | Date: Friday, 19-08-11, 8:28 PM | Message # 9 |
 Sergeant
Group: Users
Messages: 20
Status: Offline
| dùng repeat... until hay while... do cung~ như nhau chỉ có khác ở chỗ là repeat...until thì lặp cho đến khi nào điều kiện ở "until" đúng koàn kái kia thì lặp choa đến khi nào điều kiện chỗ "while" sai thui mừ 
BLACKJACKs 4ever ^_^
|
| |
| |
| pebo | Date: Saturday, 20-08-11, 9:32 AM | Message # 10 |
|
Private
Group: Users
Messages: 3
Status: Offline
| PROCEDURE b;
VAR k,t,ngc:longint;
BEGIN
k:= n;
ngc:=0;
WHILE (k<>0) do
BEGIN
t:=k mod 10;
IF k>10 THEN
ngc:=(ngc+t)*10
ELSE
IF k<10 THEN
ngc:=ngc+t;
k:=k div 10;
END;
writeln(ngc);
readln;
END.
|
| |
| |
| comet | Date: Saturday, 20-08-11, 4:15 PM | Message # 11 |
 Lieutenant
Group: Moderators
Messages: 76
Status: Offline
| Quote (pebo) PROCEDURE b;
VAR k,t,ngc:longint;
BEGIN
k:= n;
ngc:=0;
WHILE (k<>0) do
BEGIN
t:=k mod 10;
IF k>10 THEN
ngc:=(ngc+t)*10
ELSE
IF k<10 THEN
ngc:=ngc+t;
k:=k div 10;
END;
writeln(ngc);
readln;
END.
Đây là bài xuất số ng của 1 số cho trước, ví dụ 123->321; 102->201 phải k?
em test trường hợp số nhập vào có 2 chữ số hàng lớn nhất là 10 chưa? Ví dụ 102,105,1010,...Added (20-08-11, 4:03 PM)
---------------------------------------------
@pebo: em sữa "IF k>10 then" thành IF k>=10 then" là ok Added (20-08-11, 4:15 PM)
---------------------------------------------
bài này có cách giải gọn hơn, k biết thì có cho em up lên k
"tìm" và "diệt"
Message edited by comet - Saturday, 20-08-11, 12:39 PM |
| |
| |
| Angle_Bup | Date: Saturday, 20-08-11, 4:54 PM | Message # 12 |
|
Sergeant
Group: Administrators
Messages: 25
Status: Offline
| Quote (comet) bài này có cách giải gọn hơn, k biết thì có cho em up lên k
cứ post cho các em tham khảo nhé em!
Ah, em qua bên kia post 1 bài tự giới thiệu cho mấy em làm quen nghen!
|
| |
| |
| comet | Date: Saturday, 20-08-11, 5:04 PM | Message # 13 |
|
Lieutenant
Group: Moderators
Messages: 76
Status: Offline
| Code var k,ngc:longint;
begin
k:=n;
while k<>0 do
begin
ngc:=ngc*10+(k mod 10);
k:=k div 10;
end;
writeln(ngc); readln;
end.
Tuy độ phức tạp như nhau nhưng code này tiết kiệm được biến nhớ và chi phí thời gian hơn
"tìm" và "diệt"
Message edited by comet - Saturday, 20-08-11, 5:07 PM |
| |
| |
| kiepmeodoremon | Date: Friday, 26-08-11, 8:17 PM | Message # 14 |
|
Major
Group: Users
Messages: 91
Status: Offline
| haizz
Giàu thì ghét - Đói rét thì khinh - Thông minh thì diệt.
|
| |
| |
