Ðề tài: Giúp em 1 bài lập trình PASCAL

thầy em có cho 1 số bài tập về làm , còn có mỗi bài này em bí :( , anh chị nào đã học qua giúp em với nhé

Đề : Nhập vào 1 số nguyên dương , viết chương trình nhập hiển thị số đó theo chiều ngược lại .
VD : 12345 ----> 54321

ps : phần kiến thức này nằm trong phần kiến thức về vòng lặp và em chỉ mới dc học đến biểu thức điều kiện , biểu thức chọn và vòng lặp . Mong các anh chị giúp đỡ :D

Cảm ơn :burn_joss_stick:

View more random threads:

• Laptop k0 sử dụng được quét vân tay khi vừa cài Win XP...
• Bài tập tin 11. Mọi người cùng làm nhé
• Xin Microsoft Office 2007 và Microsoft Office 2010
• Cần giúp đỡ liên quan đến yahoo
• Tự học lập trình
• Nhờ giúp đỡ ....tks
• Kiểm tra lỗi Windows?
• Hỏi đáp
• Nhờ anh chị giúp đỡ bài pascal
• Ai có theme win7 nào đẹp ko em xin cái

Nguồn: http://diendankienthuc.net.

đầu tiên là đếm số cs(n)
nếu n chẵn
cho i chạy từ 1 đến n/2,gán ai=a(n-i) (thông qua biến trung gian)
nếu i lẻ tương tự cho i chạy từ 1 đến (n-1)/2
khung ch trình là vậy,bạn thử trên máy xem ổn không nhá Nguồn: http://diendankienthuc.net.

wan trọng là em ko biết cách đếm số chữ số của n , tại vì nhập vào là số nguyên bất kì , m00n hướng dẫn em chỗ đó nhé :D Nguồn: http://diendankienthuc.net.

có thể làm thế này

{khai báo biến và nhập các dữ liệu, chắc bạn biết làm}
if n mod 2=0 then
begin
for i:=1 to n*0.5 do
begin
a[i]:=tg;
tg:=a[i-1];
a[i-1]:=a[i];
end;
end;
else
begin
for i:=1 to (n-1)*0.5 do
{như trên}




theo mình nghĩ thỳ bài đó đúng... sai thỳ chúc bạn may mắn lần sau =.=" Nguồn: http://diendankienthuc.net.

dùng phép chia cho 10,đến khi thương =0 ấy Nguồn: http://diendankienthuc.net.

Nguyên văn bởi m00n

dùng phép chia cho 10,đến khi thương =0 ấy

ah , xong rồi , nhờ cái ý tưởng này của m00n , e nảy ra dc 1 hướng khác khá ổn :D

Code:

program bai64;
uses crt;
var
 n,so:longint;
begin
 clrscr;
 writeln('DAY LA CHUONG TRINH IN RA SO NGUYEN DUONG NGUOC LAI VOI SO DA NHAP VAO');
 write('Nhap vao 1 so nguyen duong : ');
 readln(n);
 write('So dao nguoc la : ');
 repeat
 so:=n mod 10;
 write(so);
 n:=n div 10;
 until(n div 10 = 0);
 so:=n mod 10;
 write(so);
 readln;
end.

Cảm ơn vì sự giúp đỡ chân thành của mọi ng` :D Nguồn: http://diendankienthuc.net.

Bạn thử đặt biến a là số đó
var a,p:string;
i,x:byte;
begin
{Bước đầu tiên bạn phải xuất ra màn hình chuỗi bạn nhập là a 12345}
x:=length(a); {length(a) dúng để đếm số kí tự có trong chuỗi a (a của bạn là có 5 số)}
p:=' '; {Bạn tạo một xâu rỗng để sau đó bạn gán chuỗi đảo ngược vào p này}
for i:=x downto 1 do p:=p+a[i];
write('So dao nguoc la:',p);
readln
end.

{ Cái này hình như trong sách nó có, bạn tham khảo thêm trang 71,72 gì đó trong SGK Tin Học 11 xem để biết chính xác } Nguồn: http://diendankienthuc.net.