Các bạn ơi mau giúp người mù Pascal đi

[vantruong]

Các bạn ơi mau giúp mình đi :rolleyes: :rolleyes: .
Đây la đề bai
Viet program dổi từ hệ thập phân sang hệ nhị phân và ngược lại dung chuong trinh con Procedure
Ai biết chỉ dùm nha tui mù pascal muh
:.( :.( :.(
Các bạn nhanh lên nha thứ 2 tui nộp bài ah
thanks

[vantruong]

trời ơi các bạn chỉ dùm tui đi muh.Thứ 2 nộp rùi huhuhuhuhuhuhuhuhuh

[White_Rose]

sub-pro 1: Số nguyên hệ 10 sang nhị phân:


function ToBin(n:longint):string;
Var s:string;
begin
s='';
while n<>0 do
begin
s := chr(ord('0')+n mod 2) + s;
n:=n div 2;
end;
if length(s)=0 then ToBin:="0" else ToBin:=s;
end;

sub-pro 2: Số nguyên hệ 10 từ nhị phân:


function ToDec(s:string):longint; {không kiểm tra tràn}
var n:longint; i : integer;
begin
n:=0;
for i:=1 to length(s) do
n:=n*2 + ord(s[i])-ord('0');
ToDec:=n;
end;


To vantruong: Bạn cứ từ từ. Còn cả ngày chủ nhật cơ mà. Hơn nữa cái này giống làm hộ bài quá :(

[vantruong]

Thanks White Rose.Nhưng yêu cầu đề là xài Procedure chứ đâu có xài Function.

Nói thiệt chứ tui mù Pascal ah.Học tòan cúp không nên 0 biết gì cả.hichic SV Kiến Trúc mà bắt học Pascal.Ah mà ai làm dùm gởi Source cho tui đi .

cảm ơn nhiềuhichichcichciccjhcihcich

[White_Rose]

thì bạn đổi lại một chút chứ có gì đâu


procedure ToBin(n:longint,var s:string);
begin
s='';
while n<>0 do
begin
s := chr(ord('0')+n mod 2) + s;
n:=n div 2;
end;
if length(s)=0 then s:="0";
end;



procedure ToDec(s:string; var n:longint); {không kiểm tra tràn}
var i : integer;
begin
n:=0;
for i:=1 to length(s) do
n:=n*2 + ord(s[i])-ord('0');
end;

[ringo]

!

[haibang]

the ban nao biet lam the nao de chu co the chay tren passcal khong ?
lam on gui soure cho minh voi minh cung chi moi bat dau hoc pascal thoi lam on nhe!

[thocon]

Bạn thấy chữ chạy chứ thực ra không phải vậy , mỗi lần chữ chạy là mỗi lần chúng ta xoá chữ cũ rồi in chữ mới ở vị trí khác thui . Bạn dùng vòng lặp for , lệnh gotoxy ... thử xem sao , đơn giản quá phải không ...

[haibang]

vay khi chay chuong trinh do hoa thi phai lam gi?
minh thu copy mot bai do hoa co san trong sach nhung khong cho no chay duoc nhu la nhan ctrl+f9 duoc vay ban chi minh di!

[namtuocbongtoi]

bạn phải gởi source thì mọi người mới biết nó lỗi chỗ nào chứ

[btkiet]

Trong đồ hoạ thì cũng xoá chữ cũ rồi dùng hàm outtextxy kết hợp với vòng lặp để viết chữ ra giống hệt trên text.

[jonhnywalker]

nhuc qua,sinh vien ma di hoi bai

[vinh_hai]

Phai tu minh lam bai chu, SV gi ma luoi ghe vay. Hoc the thi lam sao ma thi.