Bài tập sáng ngày 19/08/2011

[ 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

nguyenchauthuan

Date: 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

kiepmeodoremon

Date: Friday, 19-08-11, 2:07 PM | Message # 2

Major

Group: Users

Messages: 91

Reputation: 0

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

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

pebo

Date: 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_Bup

Date: 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.

nguyenchauthuan

Date: 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

punky

Date: Friday, 19-08-11, 8:05 PM | Message # 7

Sergeant

Group: Users

Messages: 20

Reputation: 0

Status: Offline

Thankz phát đã hehe smile

BLACKJACKs 4ever ^_^

kiepmeodoremon

Date: 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.

punky

Date: 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

BLACKJACKs 4ever ^_^

pebo

Date: 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.

comet

Date: 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_Bup

Date: 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!

comet

Date: 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

kiepmeodoremon

Date: 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