bai tap pascal

[thuonghcm]

function kts(c:char):boolean;
begin kts:=false;if c in ['0'..'9']then kts:=true end;

function ktc(c:char):boolean;
begin ktc:=false;c:=upcase(c);
if c in ['A'..'Z']then ktc:=true end;

var s:char;
begin
readln(s);
if ktc(s) then write(s,' la chu');
if kts(s) then write(s,' la so');
end.

[pham ha]

minh muon lam mot trang web! cac ban co biet trang wed nao cho tao web mien phi ko? cho biet voi! cam on!

[duongtien]

Ai làm dùm em bài này với:

Viết 1 chương trình cho phép nhập vào 1 kí tự, xác định kí tự đó là chữ hay là số.

Bạn có thể dùng tập hợp. Nếu ký tự đó nằm trong ['a'..'z'] hay ['A'..'Z'] {không biết có dấu nháy đơn không nữa} thì là chữ còn trog [0..9] thì là số.

[duongtien]

minh muon lam mot trang web! cac ban co biet trang wed nao cho tao web mien phi ko? cho biet voi! cam on!

Bạn sang box Internet - Web, sẽ có nhiều người giúp bạn.

[SecretToReview]

Có ai có lòng hảo tâm giúp em với :
Ta có thể viết một số dưới dạng cơ số 3 gồm các chữ số 0,1,2.
Hãy viết chương trình nhập vào 1 số và in ra số đó có các chữ số là 0,-1,1
Ex : 19=1*3^3+(-1)*3^3+0*3^2+1*3=1-101(hệ cơ số 3 mới).

[active_boy2701]

val nếu đc thì đó là số ngược lại là chữ
bài hệ cơ số thì tui không hỉu

[bete]

Ta có thể viết một số dưới dạng cơ số 3 gồm các chữ số 0,1,2.
Hãy viết chương trình nhập vào 1 số và in ra số đó có các chữ số là 0,-1,1
Ex : 19=1*3^3+(-1)*3^3+0*3^2+1*3=1-101(hệ cơ số 3 mới).

Tui nghĩ như vầy:

19 = 6*3 + 1
6 = 2*3 + 0
2 = 0*3 + 2 = (0+1)*3 - 1 = 1*3 + (-1)

Do đó có thể viết 19 là 1(-1)01 theo hệ cơ số "kỳ cục" này

Kiểm tra lại:

19 = 6*3 + 1
= (2*3 + 0)*3 + 1
= ((1*3 + (-1))*3 + 0)*3 + 1
= 1*(3^3) + (-1)*(3^2) + 0*(3^1) + 1*(3^0)

Tóm lại: cứ làm như mình đang muốn làm cho hệ cơ số 3:
x = 3*q + r (r là 0 hay 1 hay 2)
Nhưng nếu r là 2 thì tăng q lên 1 (tức là thay vì có x = 3*q + 2 thì thay bằng x = 3*(q+1) + (-1)) là được

(có gì sai sót mong được góp ý, xin cám ơn)

-thân

[ktvnguyenchien]

Có ai có lòng hảo tâm giúp em với :
Ta có thể viết một số dưới dạng cơ số 3 gồm các chữ số 0,1,2.
Hãy viết chương trình nhập vào 1 số và in ra số đó có các chữ số là 0,-1,1
Ex : 19=1*3^3+(-1)*3^3+0*3^2+1*3=1-101(hệ cơ số 3 mới).

Đề Sai rồi làm sao mà làm....
. 1*3^3=27
. (-1)*3^3=-27
. 0*3^2=9
. 1*3^1=3
. Cộng lại=11 chứ đâu có = 19 ????

[ktvnguyenchien]

Cùng phân tích:
+ Hệ số 10 sử dụng 0,1,2,3...9 ( mười chữ số)
+ hệ số 2 sử dụng 0,1 ( hai chữ số)
+ hệ số 16 sử dụng 0,1,2,3.... A,B,C,D,E,F ( mười sáu chữ số)
==> Nếu là hệ số 3 phải sử dụng 0,1,2 ( ba chữ số mới hợp lý)nhưng thay thế chữ số 2 = -1.
vậy 19=(-1)01=(-1)*3^2+0*3^1+1*3^0=2*9+0*3+1*1=19
20=(-1)0(-1)=(-1)*3^2+0*3^1+(-1)*3^0=2*9+0*3+2*1=20
Từ đó thuật toán đơn giản.
Chia số đó đến khi phần chia còn =0, lần lượt lấy số dư theo chiều ngược, thay 2 = (-1)====> OK.
Ví dụ số 25
25:3=8 dư 1
8:3 =2 dư 2
2:3 =0 dư 2
0:3:=0
25= 221=(-1)(-1)1=(-1)*3^2+(-1)*3^1+1*3^0=2*9+2*3+1*1=25



Phù phù có thế thôi mà.....

[Tiasangtinhyeu]

Sặc....nói đến lập trình và cả cái pascal chết tiệt này là em đau đầu....em học kinh tế mà cũng fai học cái này...em chả hiểu sao nữa...học ba lần rồi chưa qua.