Bài tập ngày 30/9/08 (C.Nhung)

Bài 1:

Một ảnh đen trắng kích thước n*m ( n>=8, m>=15) có thể được mã hoá thành một dãy các ký tự bằng cách: điểm đen được ghi bằng ký tự “d”, điểm trắng được ghi bằng ký tự “t”. Thứ tự ghi theo từng dòng từ trái sang phải, từ trên xuống dưới, hết dòng này đến dòng khác.



Ttdddddttdtttdtdtttttdtdtttttdtdtttttdttdtttddtttdddtdt
Nhiệm vụ: Lập trình để giải mã dãy kí tự trên để khôi phục ảnh ban đầu
Dữ liệu vào:
Cho trong tập tin IMAGE.INP gồm 3 dòng”
+ Dòng đầu: số n
+ Dòng thứ hai: m
+ Dòng thứ ba: dãy kí tự sau khi mã hoá

Dữ liệu ra:
Dữ liệu ra được xuất ra màn hình là hình ban đầu theo qui định
Điểm đen: xuất dấu sao “*”; điểm trắng: xuất dấu trắng “ “
Ví dụ
Dữ liệu vào: Tập tin IMAGE.INP
8
8
ttdddddttdttttdtdtttttdtdtttttdtdtttttdtdtttttdttdtttddtttdddtdt
Dữ liệu ra: xuất ra màn hình dạng
* * * * *
* *
* *
* *
* *
* *
* * *
* * * *


Bài 2:
Cho số tự nhiên n. Hãy biểu diễn n sang hệ nhị phân

Bài 3:
Cho số tự nhiên n. Hãy biểu diễn n sang hệ bất kỳ.

Help me !!

Vi dụ của bài sai rùi đó đừng quan tâm nha !!!
Thành thật sorry các bạn !

program image;
const fi='image.inp';
fo='image.out';
var f:text;n,m:integer;s:string;
procedure nhap;
begin
assign(f,fi);
reset(f);
readln(f,n);
readln(f,m);
read(f,s);
close(f);
end;
procedure xuly;
var k,i,j,spt:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
if s[(i-1)*m+j]='t' then write(f,' ')
else write(f,'*');
writeln(f);
end;
close(f);
end;
begin
nhap;
xuly;
end. co' len^

day ne`
program nhifan;
const fi='nhifan.inp';
fo='nhifan.out';
type mang=array[1..100] of integer;
var f:text;n:integer;a:mang;
procedure nhap;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f)
end;
procedure xuly;
var spt,i:integer;
begin
assign(f,fo);
rewrite(f);
spt:=0;
while n<>0 do
begin
inc(spt);
a[spt]:=n mod 2;
n:=n div 2;
end;
for i:=spt downto 1 do
write(f,a[i]);
close(f);
end;
begin
nhap;
xuly;
end.

Program Chuyen;
Const fi='Chuyen.inp';
fo='Chuyen.out';
Type mang=array[1..50] of integer;
Var s:string;
A:mang;
{---------------------------------}
Procedure Nhap;
Var f:text;
Begin
Assign(f,fi);
Reset(f);
Read(f,s);
Close(f);
End;
{---------------------------------}
Function Nhan(t:integer):integer;
Var So,j:integer;
begin
So:=1;
For j:=1 to t do
So:=So*2;
nhan:=So;
End;
{----------------------------------}
Function Doi:integer;
Var spt,i,Si,code,l:integer;
Begin
l:=length(s);
For i:=1 to l do
Val(S[i],A[i],code);
Si:=0;
For i:=1 to l do
Si:=Si+A[i]*nhan(spt-i);
Doi:=Si;
End;
{----------------------------------}
Procedure Xuly;
Var f:Text;
Su:integer;
Begin
Assign(f,fo);
Rewrite(f);
Su:=Doi;
Write(f,Su);
Close(f);
End;
{-----------------------------------}
Begin
Nhap;
Xuly;
End.

Thanks very much !!!!!!

cho hỏi là cô Nhung nào zậy?
nhìu Nhung thế sao?

Aqua_Love_So31 đã viết:

cho hỏi là cô Nhung nào zậy?
nhìu Nhung thế sao?

Chị Aqua ơi cô Nhung ở đây là cô đang dạy đội tuyển Tin học của tụi em đó chị

tại chị cũng bik 1 cô Nhung nữa nhưng cô í dạy tuyễn toán cơ; và h đương là hiệu trưỡng LAX:D
tên Nhưng giõi ghê ta;

xathiman ơi. Em hỏi cô nhung còn nhớ thằng nào tên Duy Hoàng không !!
Nó hỏi cô Nhung đó =))

kệ nó chứ anh Chịt , cô còn nhìu chiện phải lo=)) mnhớ nó làm rì) nó co đẹp trai hok mà nhớ

Aqua_Love_So31 đã viết:

kệ nó chứ anh Chịt , cô còn nhìu chiện phải lo=)) mnhớ nó làm rì) nó co đẹp trai hok mà nhớ

Đẹp chai thì nhớ ! ^^ Còn ko đẹp thì nhớ làm rì cho mệt óc ? ,..

xathiman_vcn_dtc đã viết:

Aqua_Love_So31 đã viết:

cho hỏi là cô Nhung nào zậy?
nhìu Nhung thế sao?

Chị Aqua ơi cô Nhung ở đây là cô đang dạy đội tuyển Tin học của tụi em đó chị

Là cô Phạm Thị Hồng Nhung _ Hiệu trưởng LAX hả ???
( Nghi ko phải wá ! )

kaldimj đã viết:

xathiman ơi. Em hỏi cô nhung còn nhớ thằng nào tên Duy Hoàng không !!
Nó hỏi cô Nhung đó =))

Da em se~ chuye^n? lo?i`, anh Duy Hoang cu~ng hok dt tin cung` khoa' vo?'i anh ha? anh Kal

tyty_angel1712 đã viết:

xathiman_vcn_dtc đã viết:

Aqua_Love_So31 đã viết:

cho hỏi là cô Nhung nào zậy?
nhìu Nhung thế sao?

Chị Aqua ơi cô Nhung ở đây là cô đang dạy đội tuyển Tin học của tụi em đó chị

Là cô Phạm Thị Hồng Nhung _ Hiệu trưởng LAX hả ???
( Nghi ko phải wá ! )

Da hok phai chi tyty_angel1712 o?i
Do' la` co^ Mai Thi Ngoc Nhung giao' vie^n day. tin hoc cua tru?o?ng em

=))
chưa ai trả lời, thằng j đó có đẹp rai hok???

Aqua_Love_So31 đã viết:

=))
chưa ai trả lời, thằng j đó có đẹp rai hok???

Em cung~ hok bik nu~a, anh Kal o?i tra lo?i cho chi Aqua di

thế chị phải gọi em = giới tính nào đây nhĩ;

Topic chát chít àh ~~

hehe! đâu cũng là nơi để anh em chat chít hết

xathiman_vcn_dtc đã viết:

tyty_angel1712 đã viết:

xathiman_vcn_dtc đã viết:

Aqua_Love_So31 đã viết:

cho hỏi là cô Nhung nào zậy?
nhìu Nhung thế sao?

Chị Aqua ơi cô Nhung ở đây là cô đang dạy đội tuyển Tin học của tụi em đó chị

Là cô Phạm Thị Hồng Nhung _ Hiệu trưởng LAX hả ???
( Nghi ko phải wá ! )

Da hok phai chi tyty_angel1712 o?i
Do' la` co^ Mai Thi Ngoc Nhung giao' vie^n day. tin hoc cua tru?o?ng em

Lần sau kêu là chị Khanh dc gòy ^^ Thấy em đánh nguyên cái nick chị ra thấy khổ sở wá ! ,..

tai chĩ có con điên mới đặt 1 cái nick ngu ngốc như zậy:))

tyty_angel1712 đã viết:

xathiman_vcn_dtc đã viết:

tyty_angel1712 đã viết:

xathiman_vcn_dtc đã viết:

Aqua_Love_So31 đã viết:

cho hỏi là cô Nhung nào zậy?
nhìu Nhung thế sao?

Chị Aqua ơi cô Nhung ở đây là cô đang dạy đội tuyển Tin học của tụi em đó chị

Là cô Phạm Thị Hồng Nhung _ Hiệu trưởng LAX hả ???
( Nghi ko phải wá ! )

Da hok phai chi tyty_angel1712 o?i
Do' la` co^ Mai Thi Ngoc Nhung giao' vie^n day. tin hoc cua tru?o?ng em

Lần sau kêu là chị Khanh dc gòy ^^ Thấy em đánh nguyên cái nick chị ra thấy khổ sở wá ! ,..

Dạ em bík rùi chị Khanh ơi

em phải gọi là Lâm phu nhân mới đúng

ê sự tích jì mà gọi Lâm phu nhận ếy kể tao nghe coi...để tao đi đồn!!!

thì chuyện pà Bap81 làm vợ pác Lâm đếy:))

Pé xathiman_vcn_dtc giỏi wá ih !!! À mà cho chị hỏi, pé tên jì thế ?

Aqua_Love_So31 đã viết:

thì chuyện pà Bap81 làm vợ pác Lâm đếy:))

Hạnh ! Mài lại bắt đầu gòy phải hông ? =.=" HOy nhe !!!
Pớ người ta !!! 2 đứa bắt nạt 1 đứa kìa ! Hông chịu đâu >.< Ai cứu pé dzới !!!!!!!!!!! ... ^^

tyty_angel1712 đã viết:

Pé xathiman_vcn_dtc giỏi wá ih !!! À mà cho chị hỏi, pé tên jì thế ?

Chi Khanh vao` danh sa'ch do^i tuye^?n tin do', o? do' co' ca? ho va` te^n cu?a em lun
Em hok no'i ra da^u

=)) tai hiền mún chik chứ bik bắt nạt ai?
co đứa lớp tao còn kiu dễ dụ nữa kìa:D ngây thơ chưa