10 Tin 2k11 - THPT Chuyên Lương Thế Vinh Đồng Nai Data Structures + Algorithms = Programming Tuesday, 18-01-22, 4:07 PM
[ New messages · Members · Forum rules · Search · RSS ]
  • Page 1 of 1
  • 1
Forum moderator: comet  
Forum » Thuật Toán » Thuật Toán » Bài tập sáng ngày 19/08/2011
Bài tập sáng ngày 19/08/2011
nguyenchauthuanDate: Friday, 19-08-11, 1:59 PM | Message # 1
Sergeant
Group: Users
Messages: 33
Reputation: 0
Status: Offline
Bài tập sáng ngày 19/08/2011

Rơi
 
kiepmeodoremonDate: Friday, 19-08-11, 2:07 PM | Message # 2
Major
Group: Users
Messages: 91
Reputation: 0
Status: Offline
đâu ? angry

Giàu thì ghét - Đói rét thì khinh - Thông minh thì diệt.
 
nguyenchauthuanDate: Friday, 19-08-11, 2:10 PM | Message # 3
Sergeant
Group: Users
Messages: 33
Reputation: 0
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
 
peboDate: Friday, 19-08-11, 3:31 PM | Message # 4
Private
Group: Users
Messages: 3
Reputation: 0
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_BupDate: Friday, 19-08-11, 3:39 PM | Message # 5
Sergeant
Group: Administrators
Messages: 25
Reputation: 0
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.
 
nguyenchauthuanDate: Friday, 19-08-11, 3:53 PM | Message # 6
Sergeant
Group: Users
Messages: 33
Reputation: 0
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
 
punkyDate: Friday, 19-08-11, 8:05 PM | Message # 7
Sergeant
Group: Users
Messages: 20
Reputation: 0
Status: Offline
Thankz phát đã hehe smile smile smile smile smile smile smile

BLACKJACKs 4ever ^_^
 
kiepmeodoremonDate: Friday, 19-08-11, 8:16 PM | Message # 8
Major
Group: Users
Messages: 91
Reputation: 0
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.
 
punkyDate: Friday, 19-08-11, 8:28 PM | Message # 9
Sergeant
Group: Users
Messages: 20
Reputation: 0
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ừ biggrin biggrin

BLACKJACKs 4ever ^_^
 
peboDate: Saturday, 20-08-11, 9:32 AM | Message # 10
Private
Group: Users
Messages: 3
Reputation: 0
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.
 
cometDate: Saturday, 20-08-11, 4:15 PM | Message # 11
Lieutenant
Group: Moderators
Messages: 76
Reputation: 0
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 biggrin biggrin biggrin


"tìm" và "diệt"

Message edited by comet - Saturday, 20-08-11, 12:39 PM
 
Angle_BupDate: Saturday, 20-08-11, 4:54 PM | Message # 12
Sergeant
Group: Administrators
Messages: 25
Reputation: 0
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!
 
cometDate: Saturday, 20-08-11, 5:04 PM | Message # 13
Lieutenant
Group: Moderators
Messages: 76
Reputation: 0
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
 
kiepmeodoremonDate: Friday, 26-08-11, 8:17 PM | Message # 14
Major
Group: Users
Messages: 91
Reputation: 0
Status: Offline
haizz

Giàu thì ghét - Đói rét thì khinh - Thông minh thì diệt.
 
Forum » Thuật Toán » Thuật Toán » Bài tập sáng ngày 19/08/2011
  • Page 1 of 1
  • 1
Search:

Website builderuCoz!-->
Copyright Hoàng Anh © 2022