Code:WRite('Nhap mot so = '); Readln(so); Write('Nhao so dao nguoc cua so do = '); Readln(sò) WRite('So dao nguoc cua ',so,' la = ',so2, ' dung hay khong tuy nguoi nhap ');
Code:WRite('Nhap mot so = '); Readln(so); Write('Nhao so dao nguoc cua so do = '); Readln(sò) WRite('So dao nguoc cua ',so,' la = ',so2, ' dung hay khong tuy nguoi nhap ');
bó tay cái bài giải.
Toi thay tren dien dan nay cac ban rat hay. Dua ra cac loi giai tot!
cách code string thì dễ rồi !
quan trọng là cách không dùng string ấy
Code:read(so); n:=0; repeat n:=n*10+so mod 10 ; so:=so div 10; until so=0; write('so dao nguoc la ',n);
Dùng cách string thì em hiểu,nhưng còn ko sử dụng string thì ai giải thích giùm em với,nhất là với câu lạnh VAL ( cách sử dụng và ý nghĩa).
program dao_so;
Uses Crt;
var n:longint;
Procedure nhap (Var n:longint);
Begin
Write('Nhap n '); Readln(n);
End;
Function so_dao (n:longint):longint;
Var r,m:longint;
begin
m:=0;
while n>0 do
begin
r:=n mod 10;
n:=n div 10;
m:=m*10+10*r;
end;
So_dao:=m div 10;
End;
Begin
Clrscr;
Nhap(n);
Write('So dao cua so ',n,' la so ',So_dao(n));
Readln;
End.
Xin được chỉ giáo
thầy mình cũng cho 1 bài = hàm nhưng khó ở chỗ ko dùng string mới mệt ai co cách ko dùng string ko nha
Program dao_so;
uses crt;
var x,y:longint;
begin
writeln('nhap so can dao: '); readln(x);
y:=0;
repeat
y:=y*10+x mod 10;
x:=x div 10;
until x=0;
writeln('so dao cua so do la: ',y);
readln
end.
cái này dễ thôi
Code:function dao(x:integer):integer; var tg:integer; begin tg:=0; while x<>0 do begin tg:=tg*10 + (x mod 10); x:=x div 10; end; dao:=tg; end;
Bookmarks